10 DIM F$(120,18),W(400,2),A$(72)
20 FILE#1:"DTA1:PRFWK.BA"
30 INPUT#1:A$,H\Z2=VAL(A$)\FOR I=1 TO Z2\INPUT#1:F$(I)\NEXT I
40 CLOSE#1
50 FOR I=1 TO Z2\FOR I1=1 TO 13
60 IF SEG$(F$(I),I1+3,I1+3)="1" THEN 80
70 NEXT I1\GOTO 90
80 Z3=Z3+1\W(Z3,1)=VAL(SEG$(F$(I),1,3))\W(Z3,2)=I1\GOTO 70
90 NEXT I
100 FILEV#2:"SYS:PRFW.BA"
110 PRINT#2:Z3\FOR I=1 TO Z3\PRINT#2:W(I,1),W(I,2)\NEXT I
120 CLOSE#2
130 END