10 DIM P$(70,3),A(100,4),F$(13,1),F1$(13)
20 FILE#1:"DTA1:PRLPER.BA"\INPUT#1:Z1,H,H
30 FOR I=1 TO Z1\INPUT#1:P$(I),H\IF END#1 THEN 40
40 NEXT I\CLOSE#1\F1$="DEFLKNGMPCBRS"
50 FILE#2:"DTA1:PRAUS.BA"\INPUT#2:Z2,H,H
60 FOR I=1 TO Z2\FOR I1=1 TO 4\INPUT#2:A(I,I1)
70 NEXT I1\INPUT#2:H,H\IF END#2 THEN 80
80 NEXT I\CLOSE#2\FOR I=1 TO 13\F$(I)=SEG$(F1$,I,I)\NEXT I
90 FOR I=1 TO 13\PRINT\PRINT\PRINT F$(I)\PRINT
100 FOR I1=1 TO Z2\IF A(I1,1)<>I THEN 140
120 PRINT I1;"  ";F$(I);\FOR I2=2 TO 4
130 PRINT " ";P$(A(I1,I2));\NEXT I2\PRINT
140 NEXT I1
150 NEXT I
160 END