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 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