10 DIM S(120),S$(120,30),W(400,2),F$(13,1),F1$(13)
20 FILE#1:"DTA1:PRPERS.BA"
30 Z2=Z2+1\INPUT#1:S(Z2),H,H,S$(Z2)\IF END#1 THEN 45\INPUT#1:H
40 GOTO 30
45 F1$="DEFLKNGMPCBRS"
50 CLOSE#1\FOR I1=1 TO 13\F$(I1)=SEG$(F1$,I1,I1)\NEXT I1
60 FILE#2:"SYS:PRFW.BA"\INPUT#2:Z,H,H
70 FOR I=1 TO Z\FOR I1=1 TO 2\INPUT#2:W(I,I1)\NEXT I1
80 INPUT#2:H,H\IF END#2 THEN 90
90 NEXT I\CLOSE#2
100 FOR I=1 TO Z\PRINT W(I,1);" ";
110 FOR I1=1 TO Z2\IF S(I1)=W(I,1) THEN 120\NEXT I1
120 PRINT S$(I1);"  ";F$(W(I,2));"  -----"
130 NEXT I
140 FOR I=1 TO 15\PRINT PNT(12);\NEXT I
150 END