10 DIM B$(70),H$(70),K$(4,20),L$(22),V$(20),W$(20)
15 L$="                      "
20 FILE#3:"SYS:SORTHJ.BA"
30 FILEV#2:"DTA1:PRIFI.BA"
40 INPUT#3:H$\CLOSE#3
50 FILE#1:H$
60 INPUT#1:H$,H$
70 Z=VAL(H$)\INPUT#1:H$
80 FOR I=1 TO Z\INPUT#1:K$(I)\IF END#1 THEN 180\NEXT I
85 FOR I=1 TO Z\L(I)=LEN(K$(I))\NEXT I
90 IF W$=K$(3) THEN 100
95 PRINT#2:"***"\PRINT#2:K$(3)\PRINT#2:"*"\Y=0
100 Y=Y+1
110 IF Y<=40 THEN130
120 PRINT#2:"*"\Y=0
130 B$=K$(1)&SEG$(L$,L(1)+1,22)&K$(2)&SEG$(L$,L(2)+1,22)
140 IF Z=3 THEN 160
150 B$=B$&K$(4)
160 PRINT#2:B$\W$=K$(3)
170 GOTO 80
180 CLOSE#1\CLOSE#2
190 CHAIN"SYS:DRUCK1.BA"
200 END