5 PRINT"BITTE OBERSTE DRUCKZEILE EINSTELLEN (1 ZEILIG)"
6 PRINT"WENN FERTIG, BITTE BELIEBIGES ZEICHEN EINGEBEN";
7 INPUT A$
10 DIM B$(50,70),H$(70),K$(70),L$(70)
20 FILE#1:"SYS:SORTHI.BA"
30 FILE#2:"DTA1:PRIFI.BA"
35 PRINT\PRINT\PRINT\PRINT
40 INPUT#1:H$
50 PRINT"ES FOLGEN DIE LISTEN, DIE DURCH SORTIERUNG NACH"
60 PRINT H$;" ENTSTANDEN"
70 FOR I=1 TO 67\PRINT\NEXT I
100 S=1
110 INPUT#2:K$,K$,L$
120 GOSUB 1000
130 GOSUB 3000
135 IF W2=1 THEN 170
140 IF B$(Z-2)<>"***" THEN 160
150 K$=B$(Z-1)\Z=Z-3\GOTO 170
160 Z=Z-1
170 GOSUB 2000
180 IF W2=1 THEN 200
190 GOTO 120
200 STOP
1000 PRINT"SORTIERUNG NACH";TAB(60);"SEITE ";S
1010 PRINT H$\PRINT
1020 PRINT TAB(25);K$\PRINT
1030 RETURN
2000 FOR I=1 TO Z\PRINT B$(I)\NEXT I
2010 S=S+1\FOR I=1 TO 67-Z\PRINT\NEXT I
2020 RETURN
3000 FOR I=1 TO 50\INPUT#2:B$(I)\IF END#2 THEN 3040
3010 IF B$(I)=L$ THEN 3030
3020 NEXT I
3030 W1=1\GOTO 3050
3040 W2=1
3050 Z=I
3060 RETURN
4000 END