10 REM SUPERSORT
20 REM SORTS SUPERSCRIPT FILE
30 REM STARTING AT SELECTED CHARACTER
40 REM COPYRIGHT JAN 1990, MIKE GREGORY
50 :
60 DIMC$(100):CR$=CHR$(13)
70 OPEN15,8,15,"I0"
80 OPEN6,8,6,"0:SORTFILE,S,R":GOSUB220:IFERGOTO170
90 GOSUB190
100 N=N+1:C$(N)=C$:IFLEFT$(C$,3)<>"***"GOTO90
110 F$="0:"+MID$(C$,4)+",S,W"
120 OPEN7,8,7,F$:GOSUB220:IFERGOTO170
130 FORI=1TON-1:PRINT#7,C$(I):NEXT
140 GOSUB190
150 S=VAL(MID$(C$,4))-1
160 POKE2980,S:SYS2568:GOSUB220
170 CLOSE6:CLOSE7:CLOSE15:END
180 :
190 C$=""
200 GET#6,A$:IFA$<>CR$THENC$=C$+A$:GOTO200
210 RETURN
220 INPUT#15,ER,ER$,T,S
230 IFERTHENPRINT""ER;ER$;T;S
240 RETURN