Directory of image this file is from
This file as a plain text file

10 REM LISTE DER MDL. ABI-PRUEFUNGEN, GEORDNET NACH PRUEFLINGEN
20 REM (FUER KONFERENZZIMMER).
30 DIM N$(20),X$(14),F$(6,5)
40 PRINT "ANZURUFENDER DATENSATZ";\INPUT X$
50 X$ = "DTA1:"&X$&".BA"
60FILE#1:X$
70FOR I = 1 TO 8\ PRINT\ NEXT I
80 Y = 0
90 PRINT TAB(36);"PRUEFUNGEN WEGEN"
100 PRINT TAB(32);"ABWEICHUNG";TAB(52);"GEFAEHRDUNG"
110 GOSUB 390
120 INPUT#1:N$,X
130 IF N$ <> "ENDE"THEN 170
140 PRINT\PRINT
150 PRINT TAB(32);Y;" PRUEFUNGEN"
160 STOP
170 FOR I = 1 TO 6
180 INPUT#1:F$(I),X
190 NEXT I
200 PRINT N$;
210 FOR I = 1 TO 3
220 PRINT TAB(26+5*I);F$(I);
230 IF F$(I)=" " THEN 270\IF F$(I)="O" THEN 270
240 IF F$(1) = "BESTA" THEN 270
250 IF F$(1)= "NICHT" THEN 270
260 Y=Y+1
270 NEXT I
280 FOR I = 1 TO 3
290 PRINT TAB(46+5*I);F$(3+I);
300 IF F$(1)= "NICHT" THEN 330
310 IF F$(I+3)=" " THEN 330\ IF F$(I+3)="O" THEN 330
320 Y = Y+1
330 NEXT I
340 PRINT
350 Z = Z + 1
360 IF Z<3 THEN 380
370 GOSUB 390
380 GOTO120
390 Z = 0
400 FOR K = 1 TO 32
410 PRINT TAB(2*K-1);"- ";
420 NEXT K
430 PRINT
440 RETURN
450 END