10 DIM W(300,2),F$(13,1),F1$(13),A(100,4),K(300,5),L$(5)
20 F1$="DEFLKNGMPCBRS"\FOR I=1 TO 13\F$(I)=SEG$(F1$,I,I)\NEXT I
30 FILE#1:"SYS:PRFW.BA"\INPUT#1:Z,H,H
40 FOR I=1 TO Z\FOR I1=1 TO 2\INPUT#1:W(I,I1)\NEXT I1
50 INPUT#1:H,H\IF END#1 THEN 60
60 NEXT I\CLOSE#1
70 FILE#2:"DTA1:PRAUS.BA"\INPUT#2:Z1,H,H
80 FOR I=1 TO Z1\FOR I1=1 TO 4\INPUT#2:A(I,I1)\NEXT I1
90 INPUT#2:H,H\IF END#2 THEN 100
100 NEXT I\CLOSE#2
110 FOR I=1 TO Z\PRINT I;"  ";F$(W(I,2));"  ";\INPUT L$\IF L$="^"THEN141
111 L=VAL(L$)
120 K(I,1)=W(I,1)\K(I,2)=W(I,2)
130 IF L<=Z1 THEN 150
140 PRINT "DIESE NUMMER IST ZUR PRUEFUNG NICHT VORGESEHEN"
141 I=I-2\GOTO 160
150 FOR I1=2 TO 4\K(I,I1+1)=A(L,I1)\NEXT I1
160 NEXT I
170 FILEV#3:"DTA1:PRKOM.BA"\PRINT#3:Z
180 FOR I=1 TO Z\FOR I1=1 TO 4\PRINT#3:K(I,I1);\NEXT I1
190 PRINT#3:K(I,5)\NEXT I\CLOSE#3
200 END