1 REM *** Written by Mark Ray, please read welcome.msg first ***
2 ON ERROR IF ERR=27 THEN CH."AUTO" ELSE REPORT:PRINT " at ";ERL
5  CLS:PRINT SPC(35);"LIST SORTER"''
10 INPUT LINE "Read from:"IN$:INPUT LINE "Write To :"OUT$
15 OSCLI "RENAME "+IN$+" SORTIN":X=0
20 REPEAT:AGAIN=FALSE:I=OPENIN("SORTIN"):O=OPENOUT("SORTOUT")
25 INPUT#I,T$:X=X+1:PRINT "Pass Number ";X
30 REPEAT:INPUT#I,B$:IF B$<T$ THEN X$=B$:B$=T$:T$=X$:AGAIN=TRUE
40 PRINT#O,T$:T$=B$:UNTIL EOF#I:PRINT#O,T$:CLOSE#I:CLOSE#O
50 OSCLI "DELETE SORTIN":OSCLI "RENAME SORTOUT SORTIN":UNTIL NOT AGAIN
60 OSCLI "RENAME SORTIN "+OUT$:CHAIN"AUTO"