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

10 DIM P$(45,3),M(40,10),M1(40,10),K(200,5),A$(4,10),F1$(12),F$(12,1)
20 FILE#1:"DTA1:PRKOM.BA"\INPUT#1:Z,H,H
30 FOR I=1 TO Z\FOR I1=1 TO 5\INPUT#1:K(I,I1)\NEXT I1
40 INPUT#1:H,H\IF END#1 THEN 50
50 NEXT I\CLOSE#1
55 F1$="DEFLKNGMPCBR"\FOR I=1 TO 12\F$(I)=SEG$(F1$,I,I)\NEXT I
60 FILE#2:"SYS:PRMAT.BA"\FOR I=1 TO 40\FOR I1=1 TO 10
70 INPUT#2:M(I,I1)\NEXT I1\INPUT#2:H,H\FOR I1=1 TO 10
80 INPUT#2:M1(I,I1)\NEXT I1\INPUT#2:H,H\IF END#2 THEN 90
90 NEXT I\CLOSE#2
100 FILE#3:"DTA1:PRLPER.BA"\INPUT#3:Z1,H,H
110 FOR I=1 TO Z1\INPUT#3:P$(I),H\IF END#3 THEN 120
120 NEXT I\CLOSE#3
130 FILEV#4:"LPT:"
135 A$(1)="VORS."\A$(2)="PRUEF"\A$(3)="PROT."\A$(4)="ZUH. "
140 FOR I=1 TO Z1\Z2=4\PRINT#4:\PRINT#4:P$(I)\PRINT#4:
145 PRINT#4:"I STD I FUNKT I SCH. I FACH I ";
146 PRINT#4:"VORS. I PRUEF I PROT. I ZUHOERER  I"
150 FOR I1=1 TO 40\FOR I2=1 TO 10\IF M(I1,I2)=0 THEN 240
155 A=INT(M1(I1,I2)/100)
160 FOR I3=3 TO 5\IF K(M(I1,I2),I3)=I THEN 180\NEXT I3\I3=6
170 IF A=I THEN 180\IF M1(I1,I2)-100*A=I THEN 180\GOTO 230
180 PRINT#4:"I ";I1;TAB(7);"I ";A$(I3-2);" I ";K(M(I1,I2),1);
190 PRINT#4:TAB(22);"I  ";F$(K(M(I1,I2),2));"   I ";\B=M(I1,I2)
200 PRINT#4:P$(K(B,3));TAB(37);"I ";P$(K(B,4));TAB(45);"I ";P$(K(B,5));
210 PRINT#4:TAB(53);"I ";P$(A);",";P$(M1(I1,I2)-100*A);TAB(65);"I"
220 Z2=Z2+1\GOTO 240
230 NEXT I2
240 NEXT I1
250 V=(INT(Z2/72)+1)*72-Z2
260 FOR I1=1 TO V\PRINT#4:\NEXT I1
270 NEXT I\PRINT#4:
280 PRINT#4:"ES FEHLEN NOCH ZUHOERER FUER FOLGENDE PRUEFUNGEN:"
290 PRINT#4:\PRINT#4:\PRINT#4:"I STD I FACH I ANZ. I"\Z2=5
300 FOR I=1 TO 40\FOR I1=1 TO 12\Z3=0
310 FOR I2=1 TO 10\IF M(I,I2)=0 THEN 350\IF K(M(I,I2),2)<>I1THEN350
320 A=INT(M1(I,I2)/100)\IF A=0 THEN 340
330 IF M1(I,I2)-100*A<>0 THEN 350\Z3=Z3+1\GOTO 350
340 Z3=Z3+2
350 NEXT I2\IF Z3=0 THEN 380
360 PRINT#4:"I ";I;TAB(7);"I  ";F$(I1);"   I ";Z3;TAB(21);"I"
370 Z2=Z2+1
380 NEXT I1
390 NEXT I
400 FOR I=1 TO (INT(Z2/72)+1)*72-Z2+72\PRINT#4:\NEXT I\CLOSE#4
410 END