Listing of file='SORT405A' on disk='vmedia/701-2425A.wvd.zip'
# Sector 236, program filename = 'SORT405A' 0010 REM SORT405A,08/10/77,COPYRIGHT WANG LABS.1976 0550 Y=1 : GOSUB '82(1070) : X$=HEX(A8AD) : STR(X$,3)="M0$(),P2$(G),Z@O0$(O):" : FOR C=1TO N3 : CONVERT CTO Y$,(#) : STR(X$,4,1),STR(X$,19,1)=Y$ : GOSUB 7560 : NEXT C : GOSUB '82(1170) : X$="?%(F=O$)O$()FROMP0$," : Y=0 : GOSUB 7560 : X$="O0$()," : FOR C=1TO N3 : CONVERT CTO STR(X$,2,1),(#) : GOSUB 7570 : NEXT C : GOSUB 8760 : Y=1 : GOSUB '82(2060) : X$=HEX(A887) 0850 STR(X$,3)="O$()<00000,O(0)>@M0$()<(X-1)*O(0)+1,O(0)>:" : N=3 : FOR C=1TO N3 : CONVERT CTO Y$,(#) : STR(X$,16,1),STR(X$,21,1),STR(X$,34,1),STR(X$,41,1)=Y$ : CONVERT NTO STR(X$,8,5),(#####) : GOSUB 7560 : N=N+O(C)*P2 : NEXT C : GOSUB 9040 : P1=3 : GOSUB 8960 : Y=2 : GOSUB '82(500) : X$="O$(000)62," : C=INT((P2*N5+1)/62)+1 : CONVERT CTO STR(X$,4,3),(###) 1060 GOSUB 7570 : CONVERT P2TO P6$,(###) : FOR P=1TO N3 : X$="O0$(000)00," : CONVERT PTO STR(X$,2,1),(#) : STR(X$,5,3)=P6$ : CONVERT O(P)TO STR(X$,9,2),(##) : GOSUB 7570 : NEXT P : IF P3=P5THEN 1250 : FOR C=P3+1TO P5 : GOSUB '80(VAL(X0$(C))) : X$=X1$ : STR(X$,3)="$00," : CONVERT VAL(X1$(C))TO STR(X$,4,2),(##) : GOSUB 7570 : NEXT C 1250 FOR P=1TO L : IF F$="A"THEN 1280 : IF X3$(P)>HEX(01)THEN 1360 1280 X=1 : GOSUB '81(0,P) : IF X<7THEN 1360 : GOSUB 7570 : IF M7>0THEN 1330 : IF B<2THEN 1360 1330 X=1 : GOSUB '81(0,P+60) : GOSUB 7570 1360 NEXT P : X$="L$00,K$00," : CONVERT O(1)TO X1$,(##) : STR(X$,3,2),STR(X$,8,2)=X1$ : GOSUB 7570 : Y=1 : GOSUB '82(700) : X$="O=1:" : IF M7=0THEN 1500 : STR(X$,5)="B=00000:" : X=M7 : IF F$="V"THEN 1480 : X=2 : STR(X$,13)="!G0$(1))=0:" 1480 CONVERT XTO STR(X$,3,1),(#) : CONVERT N0TO STR(X$,7,5),(#####) 1500 GOSUB 7560 : IF P3=P5THEN 1690 : Y=0 : X$=HEX(97A1BD) : STR(X$,4)="T#F(3),(M0$,X1$)" : GOSUB 7570 : FOR C=1TO P5 : X$="K$," : IF C<=P3THEN 1640 : GOSUB '80(VAL(X0$(C))) : X$=X1$ : STR(X$,3)="$," 1640 GOSUB 7570 : NEXT C : GOSUB 8760 : Y=1 1690 GOSUB '82(840) : X$="?^(F=O$)O$()@X2$,O1$(),O2$():" : IF N3=2THEN 1740 : STR(X$,23)=STR(X$,29) 1740 GOSUB 7560 : GOSUB '82(900) : X$="?^(F=N1$)O0$(P)<00>@P2$,N$:" : CONVERT N3TO STR(X$,11,1),(#) : CONVERT N1+1TO STR(X$,17,2),(##) : IF N3=1THEN 1860 : STR(X$,16)=STR(X$,20) : GOTO 1880 1860 STR(X$,10,2)="K$" : STR(X$,12)=STR(X$,16) 1880 GOSUB 7560 : X$=HEX(97A1) : STR(X$,3)=B$ : STR(X$,4)="T#F(1),(P2$,P2$)" : Y=0 : GOSUB 7570 : GOSUB '89(0) : IF F$<>"A"THEN 2020 : GOSUB '92(HEX(EAE6B2),0) 2020 IF M7>0THEN 2050 : IF B=1THEN 2410 2050 X$="Q=;N$)*256+;&N$,2)):" : IF F$<"P"THEN 2090 : IF N0>256THEN 2100 2090 STR(X$,3)=STR(X$,12) 2100 GOSUB 7560 : IF M7>0THEN 3340 : IF F$<"P"THEN 2220 : X$=HEX(A887) : STR(X$,3)="A0$()<Q,I>@G0$()<O,I>:" : GOSUB 7560 : GOTO 2410 2220 FOR P=1TO L : IF X7$(P)=HEX(01)THEN 2380 : FOR C=1TO VAL(X5$(P)) : K$="O" : X=1 : GOSUB '81(C,P+60) : STR(X$,X)="=" : X=X+1 : K$="Q" : GOSUB '81(C,P) : STR(X$,X)=":" : GOSUB 7570 : NEXT C 2380 NEXT P 2410 X$=HEX(9AFF30003A) : GOSUB 7570 : IF B=1THEN 3590 : GOSUB '82(1340) : X$=HEX(9F4F3D31B1FF16003A) : GOSUB 7570 : K$="O" : IF F$=" "THEN 2720 : IF F$="A"THEN 2650 : X$=HEX(E42846462941302428293AA887) : STR(X$,14)="A0$()@G0$()<O,I>:" : GOSUB 7560 : GOTO 3290 2650 P=2 : Z=1 : GOSUB 2880 : GOTO 2800 2720 FOR P=1TO L : IF P=1THEN 2750 : IF X6$(P)<>HEX(FE)THEN 2770 2750 Z=1 : GOSUB 2880 2770 NEXT P 2800 FOR C=1TO K : P=VAL(STR(X6$,C)) : Z=VAL(STR(X5$,C)) : GOSUB 2880 : NEXT C : GOTO 3290 2880 X1=VAL(X3$(P)) : IF F$="A"THEN 2910 : IF X1>1THEN 3110 2910 X=1 : IF STR(X0$,X1+1,1)<HEX(A0)THEN 2980 : X$=HEX(E428464629) : X=6 : IF X1<8THEN 2980 : STR(X$,3,2)="99" 2980 GOSUB '81(Z,P+60) : X4=VAL(X4$(P)) : ON X1GOTO 3130,3020,3160,3180,3210,3210,3250 3020 STR(X$,X)=":" : IF X1<>8THEN 3100 : STR(X$,X+1)=HEX(DE) : X=X+2 : GOSUB '81(Z,P) : STR(X$,X)=")=9:" 3100 GOSUB 7570 3110 RETURN 3130 STR(X$,X)="=9E99:" : GOTO 3100 3160 IF X4>14THEN 3130 3180 IF X4=1THEN 3110 : X4=X4-1 3210 STR(X$,X)="=9999999999999" : X=X+X4+1 : GOTO 3020 3250 X4=X4*2-1 : GOTO 3210 3290 X$=HEX(9AFF30003A9CFF13403A) : GOSUB 7570 : GOTO 3590 3340 X$=HEX(A887) : STR(X$,3)="A0$()<Q,2>@J$():" : GOSUB 7560 : X$="I=;J$(1))+1:" : IF F$="T"THEN 3410 : STR(X$,10)=":" : IF M7=1THEN 3410 : STR(X$,10)="*256+;&J$(1),2)):" 3410 GOSUB 7560 : X$=HEX(9F4F2B493C3D42B1FF12003A) : GOSUB 7570 : X$=HEX(9AFF31003A) : GOSUB 7570 : GOSUB '82(1200) : X$=HEX(A887) : STR(X$,3)="A0$()<Q,I>@G0$()<O+1,I>:O=O+I:" : GOSUB 7560 : GOSUB '82(1340) : IF F$="V"THEN 3560 : X$="!G0$(1))=240:" : GOSUB 7560 3560 X$=HEX(9AFF31003A) : GOSUB 7570 3590 GOSUB '82(3120) : IF M7=0THEN 3760 : IF M7=2THEN 3710 : IF F$="T"THEN 3684 : X$="!G0$(1))=O:" : IF B$=HEX(BD)THEN 3730 : STR(X$,11)="-1:" : GOTO 3730 3684 X$="!&G0$(1),2))=O+1:" : GOTO 3730 3710 X$="X=WO/256):!G0$(1))=X:!&G0$(1),2))=O-256*X:" 3730 GOSUB 7560 3760 IF F$<>"A"THEN 3790 : GOSUB '92(HEX(EAE246524F4D),60) 3790 X$=HEX(9785) : STR(X$,3)=B$ : STR(X$,4)="T$#F(4),(X2,X2)" : Y=0 : GOSUB 7570 : N=60*SGN(M7+B-1) : GOSUB '89(N) : X$="O=2:" : IF M7=2THEN 3940 : IF F$="T"THEN 3940 : X$="O=1:" 3940 STR(X$,5)=HEX(9B3A) : GOSUB 7570 : GOSUB 9040 : LOAD DC T#F(5),"SORT406A"10,6999 4020 DEFFN'89(N) : C=26 : FOR P=1TO L : IF X3$(P)>HEX(01)THEN 4110 : X=1 : GOSUB '81(9E9,P+N) : C=C+X : IF C>256THEN 4160 : GOSUB 7570 4110 NEXT P : Y=1 : GOSUB 8760 : RETURN 4160 E=14 : RETURN CLEAR 4180 GOTO 7020 4230 DEFFN'92(Z$,N) : C=0 : P=1 : Y=0 : GOSUB 4400 4280 P=P+1 : IF P>LTHEN 4540 : IF P<>33THEN 4340 : GOSUB 8760 : GOSUB 4400 4340 X=1 : GOSUB '81(9E9,P+N) : GOSUB 7570 : C=C+VAL(X4$(P))*VAL(X5$(P))*VAL(X7$(P)) : GOTO 4280 4400 X$=Z$ : STR(X$,3)="(F=00$)A0$()" : GOSUB '80(P+60) : STR(X$,6,2)=X1$ : BIN(STR(X$,10))=65+N*.1 : X=15 : IF C=0THEN 4500 : STR(X$,15)="<00000>" : CONVERT C+1TO STR(X$,16,5),(#####) : X=22 4500 STR(X$,X)=STR(Z$,3) : GOSUB 7570 : RETURN 4540 GOSUB 8760 : Y=1 : RETURN