10 DIM B$(50,20),H$(70),M$(70),F$(20),V$(24),N$(15),F1$(20),C$(301,24)
15 DIM W$(1)
20 FILE#1:"SYS:SORTHI.BA"
30 INPUT#1:M$,S1$,S2$,S3$,J$,F$\CLOSE#1
40 FILE#1:F$
45 N=POS(F$,":",1)\N1=0
46 F1$="DTA1:"&SEG$(F$,N+1,N+5)&"X.BA"
50 FILEV#2:F1$
60 FILE#3:"SYS:SORTH2.BA"
62 FILEV#4:"SYS:SORTHJ.BA"
64 PRINT#4:F1$\CLOSE#4
70 S1=VAL(S1$)\S2=VAL(S2$)\S3=VAL(S3$)
80 IF S3=0 THEN 100
90 N1=1
100 PRINT#2:F1$\PRINT#2:STR$(N1+3)\PRINT#2:"***"
110 FOR I=1 TO 300\INPUT#3:C$(I)\IF END#3 THEN 112\NEXT I
112 I=I-1\FOR J=1 TO I
115 C$(J)=SEG$(C$(J),POS(C$(J),"#",1)+1,24)
117 NEXT J
120 FOR K=1 TO I\Z=VAL(C$(K))
121 IF B=0 THEN 124
122 IF Z>B THEN 126
124 A=1\RESTORE#1\INPUT#1:H$,H$,H$\GOTO 129
126 A=S1*B+1
129 IF Z=0 THEN 180
130 FOR I=A TO S1*(Z-1)\INPUT#1:H$\IF END#1 THEN 200\NEXT I
140 FOR I=1 TO S1\INPUT#1:B$(I)\IF END#1 THEN 200\NEXT I
150 PRINT#2:B$(3)&" "&B$(1)\PRINT#2:B$(2)\PRINT#2:B$(S2)
160 IF S3=0 THEN 180
170 PRINT#2:B$(S3)
180 B=Z
190 NEXT K\GOTO 210
200 PRINT"DATENSATZ NR.";Z;" NICHT GEFUNDEN"\GOTO 220
210 PRINT"ENDE DER AUSWAHL"
220 CLOSE#1\CLOSE#2\CLOSE#3
230 CHAIN"SYS:FFGCKV.BA"
240 END