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$