Philips VG 8020 Gebruiksaanwijzing pagina 64
Inhoudsopgave
";F$
IFF
130
IFF
140
150
CAS:ADRES"
OPEN
#1
160
CLS
170
LOCATE
180
LOCATE
190
LOCATE
200
LOCATE
210
LOCATE
ct
";
(J/N)
IFF
220
N" GOTO
PRINT
#1,A$","B$",
240
250
LOCATE
(J/N)
";F$
s
260
N" GOTO
270
160
280
GOTO
290
*#1:RETURN
CLOSE
400
CLS
410
PRINT:PRINT
der
ingereedheid"
415
"en
PRINT
420
PRINT: PRINT:
:F$
IF
430
F$="N"
440
n"
450
"CAS:ADRES"
OPEN
*1
460
CLS: PRINT
470 IF EOF(1)
#1,A$,B$,
480
INPUT
"Naam
490
PRINT
500
"Adres
PRINT
"Woonplaats: ":C$:
510
PRINT
"Telefoon
520
PRINT
530
LOCATE
es (J/N)
";F$
IF
540
F$="N"
IF
550
F$="n""
560
460
GOTO
62
120
GOTO
N"
n"
120
GOTO
FOR
1,5:INPUT
"Naam";A$
"Adres";B$
1,7:INPUT
1,9:INPUT
"Woonplaats";
1,11:INPUT
1,20:INPUT
160
"
160
GOTO
1, '22:
INPUT "Nog
290
290
n"
GOTO
20
"Breng
druk
PLAY-toets
de
INPUT
420
GOTO
420
GOTO
FOR
570
THEN
C8,
il
:";D$
1,22:INPUT
"Volgende
570
GOTO
570
GOTO
OUTPUT
AS
"Telefoon";D$
dit
"Is
corre
"C$",
"D$
adre
een
datarecor
uw
in
"Klaar (J/N)
INPUT
AS
D$
";A$:
PRINT
B$: PRINT
PRINT
adr
"
Inhoudsopgave
