10 CLOSE:CLS:KEY OFF
20 COLOR 4,0:LOCATE 1,1:PRINT "De tijd is "TIME$,DATE$:LOCATE 2,1:PRINT STRING$(80,205):LOCATE 22,1:PRINT STRING$(80,205)
30 OPEN "leeftijd.dat" FOR APPEND AS #1
40 LOCATE 8,10:COLOR 14,0:PRINT "LEEFTIJDOPSLAG"
50 LOCATE 9,10:COLOR 4,0:PRINT STRING$(14,205)
60 LOCATE 11,10:PRINT "1. Uitvoer
70 LOCATE 12,10:PRINT "2. Invoer"
80 LOCATE 13,10:PRINT "3. Weghalen databestand
81 LOCATE 14,10:PRINT "4. Eruit
90 LOCATE 23,10:PRINT "Lengte databestand (LEEFTIJD.DAT) :"LOF(1)"byte(s)":COLOR 14,0:LOCATE 15,10:PRINT "Uw keuze ====>";
100 INPUT K
110 IF K=1 THEN 280
111 IF K=4 THEN RUN"a2menu
120 IF K=2 THEN 150
130 IF K=3 THEN CLOSE #1:KILL"leeftijd.dat":GOTO 10
140 LOCATE 23,1:COLOR 16,7:PRINT "Fout : Te groot of te klein getal":FOR A=1 TO 2000:NEXT:LOCATE 23,1:COLOR 4,0:PRINT STRING$(79," ");:GOTO 90
150 CLS:LOCATE 1,1:COLOR 4,0:PRINT "De tijd is "TIME$,DATE$:LOCATE 2,1:PRINT STRING$(80,205):LOCATE 22,1:PRINT STRING$(80,205)
160 FOR A=3 TO 20:LOCATE A,1:PRINT SPACE$(79);:NEXT:COLOR 14,0:LOCATE 5,10:LINE INPUT "Naam      ====> ";N$
170 LOCATE 7,10:LINE INPUT "Leeftijd  ====> ";L$
180 IF VAL(L$)<0 THEN LOCATE 23,1:PRINT "Wat is die "N$" toch jong":FOR A=1 TO 2000:NEXT A:LOCATE 23,1:PRINT STRING$(79," ");:GOTO 170
190 IF VAL(L$)>150 THEN LOCATE 23,1:PRINT "Bel het Guiness Book of Records voor "N$" !!":FOR A=1 TO 2000:NEXT A:LOCATE 23,1:PRINT STRING$(79," ");:GOTO 170
200 PRINT #1,N$,L$
210 LOCATE 5,3:PRINT "Naam                ====> "N$
220 LOCATE 6,3:PRINT "Leeftijd            ====> "L$
230 LOCATE 7,3:PRINT "Meer invoer         ====> ";
240 KEUZE$=INKEY$
250 IF KEUZE$="j" OR KEUZE$="J" THEN PRINT KEUZE$:GOTO 160
260 IF KEUZE$="n" OR KEUZE$="N" THEN PRINT KEUZE$:GOTO 10
270 GOTO 240
280 CLS:CLOSE
290 OPEN "LEEFTIJD.DAT" FOR INPUT AS #1
300 IF EOF(1) THEN GOTO 330
310 LINE INPUT#1,A$
311 PRINT A$
320 GOTO 300
330 PRINT:PRINT "Druk op een toets voor vervolg . . ."
340 K$=INKEY$:IF K$<>"" THEN GOTO 10
350 GOTO 340