10 DIM B$(300,24),M$(70),H$(70),F$(20)
20 FILE#1:"SYS:SORTHI.BA"
30 INPUT#1:M$,S1$,S2$,S3$,J$
40 CLOSE#1\J=VAL(J$)
45 FILE#1:"SYS:SORTH1.BA"
50 FOR I=1 TO J\INPUT#1:B$(I)\NEXT I
60 CLOSE#1
70 FOR I=1 TO J\FOR K=I+1 TO J
80 IF B$(I)<=B$(K) THEN 100
90 H$=B$(I)\B$(I)=B$(K)\B$(K)=H$
100 NEXT K\NEXT I
110 FILEV#1:"SYS:SORTH2.BA"
120 FOR I=1 TO J\PRINT#1:B$(I)
130 NEXT I\CLOSE#1
150 PRINT"SORTIERUNG BEENDET"
170 CHAIN"SYS:SORTNA.BA"
180 END