10 REM PRUEFUNGSLISTEN IM 4. FACH
20 REM AUS DATENSATZ DER ZA1-KONFERENZ
30 DIM N$(20),F(8),X$(14)
40 PRINT "NAME DES ABZURUFENDEN DATENSATZES";\ INPUT X$
50 X$ = "DTA1:"&X$&".BA"
60 FILE#1:X$
70 FOR I = 1 TO 5\ PRINT\ NEXT I
80 PRINT "KURS";\ INPUT K$
81 PRINT\PRINT\PRINT
85 IF K$ = "ENDE" THEN 200
90 INPUT#1:N$,X
95 IF N$ = "ENDE" THEN 180
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
150 IF F$(4) <>K$ THEN 90
160 PRINT N$;TAB(22);F(8)
165 PRINT
170 GOTO 90
180 RESTORE#1
190 GOTO 70
200 END