10 REM LISTE DER ABITURIENTENNAMEN
20 REM AUS DATENSATZ DER ZA1-KONFERENZ
30 DIM N$(20),F(8)
40 PRINT "NAME DES ABZURUFENDEN DATENSATZES";\ INPUT Y$
60 FILE#1:"DTA1:"&Y$&".BA"
65 PRINT"ABI-JAHRGANG";\INPUT J
70 FOR I = 1 TO 5\ PRINT\ NEXT I
80 PRINT"LISTE DER ABITURIENTEN ";J
85 PRINT\PRINT
90 INPUT#1:N$,X
95 IF N$ = "ENDE" THEN 200
100 INPUT #1: F$(1),X,F$(2),X,F$(3),X,F$(4),X
110 INPUT#1:F(1),F(2),F(3),F(4),F(5),X,X
111 INPUT#1:F(6),F(7),F(8),X,X
160 PRINT N$
170 FOR I = 1 TO 3\ PRINT\ NEXT I
180 GOTO 90
200 FOR I = 1 TO 6 \  PRINT\ NEXT I
210 END