10 CLS :PRINT "Dies ist ein Programm, indem die DATA-"
11 PRINT "Zeilen nachgeladen werden und das Pro-"
12 PRINT "gramm danach weiter abgearbeitet wird"
13 PRINT " ":PRINT "Druecke eine Taste"
14 a=INKEY 
15 IF a=0 THEN GOTO 14
16 DATA 10
17 PRINT "Lade Daten.."
18 LOAD "data.dat",3
19 RESTORE 
20 READ n
30 n=n-1
40 DIM #n(n,1)
50 DIM a(n)
60 FOR i=0 TO n
70 READ #n(i,0),#n(i,1),a(i)
80 NEXT i
90 INPUT "Altersgrenze?:";g
100 IF g<1 THEN GOTO 90
110 PRINT "Aelter als ";g;" Jahre sind:":PRINT " "
120 FOR i=0 TO n
130 IF a(i)>g THEN PRINT #n(i,1);",";#n(i,0);",";a(i):K=1
140 NEXT i
150 IF k=0 THEN PRINT "Keine Personen!"

