10 DV=PEEK(186):IFDV<8THENDV=8
20 PRINTCHR$(14):CLOSE15:OPEN15,DV,15:DIMB$(40,1):OPEN2,DV,2,"0:CATEGORIES,S,R":GOSUB1000
30 V=0:FORI=1TO40:FORJ=0TO1:INPUT#2,B$(I,J):IFB$(I,0)="-1"THENV=I-1:I=40
40 NEXT:NEXT:CLOSE2
50 S=0:FORI=1TOV-1:IFB$(I,0)<B$(I+1,0)THEN75
60 B$(0,0)=B$(I,0):B$(0,1)=B$(I,1):B$(I,0)=B$(I+1,0):B$(I,1)=B$(I+1,1):
70 B$(I+1,0)=B$(0,0):B$(I+1,1)=B$(0,1):S=1
75 NEXT:IFSTHEN50
80 FORI=1TOV:FORJ=0TO1:PRINTB$(I,J),:NEXT:PRINT:NEXT
90 PRINT#15,"S0:CATEGORIES":GOSUB1000
100 CLOSE2:OPEN2,DV,2,"0:CATEGORIES,S,W":GOSUB1000
110 FORI=1TOV:FORJ=0TO1:PRINT#2,B$(I,J):GOSUB1000
120 NEXT:NEXT:PRINT#2,"-1":PRINT#2,"0":CLOSE2:CLOSE15:END
1000 INPUT#15,ER,EM$,ET,ES
1010 IFER<20THEN1030
1020 PRINTER;EM$;ET;ES:STOP
1030 RETURN