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 Z\IF K(I,1)<G THEN 150\G=K(I,1)
150 NEXT I
153 FOR I=1 TO G
155 FOR I9=1 TO 72\PRINT#4:"-";\NEXT I9\PRINT#4:
160 PRINT#4:\PRINT#4:\PRINT#4:"SCH.NR.";I\PRINT#4:
170 PRINT#4:"I FACH I STD I VORS. I PRUEF I PROT. I"
180 Z2=6\FOR I1=1 TO 40\FOR I2=1 TO 10\A=M(I1,I2)\IF A=0 THEN 240
190 IF K(A,1)<>I THEN 230
200 PRINT#4:"I  ";F$(K(A,2));TAB(8);"I ";I1;TAB(14);"I ";
210 PRINT#4:P$(K(A,3));TAB(22);"I ";P$(K(A,4));TAB(30);"I ";P$(K(A,5));
220 PRINT#4:TAB(38);"I"\Z2=Z2+1\GOTO 240
230 NEXT I2
240 NEXT I1
250 V=12*(INT(Z2/12)+1)-Z2\FOR I1=1 TO V\PRINT#4:\NEXT I1
260 NEXT I\FOR I=1 TO 72*(INT(12*G/72)+1)-12*G\PRINT#4:\NEXT I
265 CLOSE#4
270 END