Listing of file='SORT404A' on disk='vmedia/701-2425A.wvd.zip'
# Sector 258, program filename = 'SORT404A' 0010 REM SORT404A,08/24/77,COPYRIGHT WANG LABS.1976 0520 IF P0=0THEN 570 : IF N6>0THEN 660 : IF M7>0THEN 750 : IF F$="A"THEN 1150 0570 GOSUB '82(720) : X$=HEX(9AFF09003A) : GOSUB 7570 : GOSUB '82(940) : GOTO 1150 0660 X$=HEX(A887) : STR(X$,3)="N0$()<000,000>@O$()<000,000>:" : CONVERT I+M7+1TO STR(X$,23,3),(###) : CONVERT M6+1TO STR(X$,9,3),(###) : CONVERT N6TO P6$,(###) : STR(X$,13,3),STR(X$,27,3)=P6$ : GOSUB 7560 0750 GOSUB '82(720) : X$="I=;M9$)*256+;&M9$,2)):" : IF M7=2THEN 810 : STR(X$,8)=":" : IF F$="V"THEN 810 : STR(X$,8)="+1:" 0810 GOSUB 7560 : X$=HEX(9F512B493C3D42B1FF07403A) : GOSUB 7570 : X$=HEX(9AFF09203A) : GOSUB 7570 : GOSUB '82(740) : X$=HEX(A887) : STR(X$,3)="O$()@A0$()<Q+1,I>:Q=Q+I:" : GOSUB 7560 : GOSUB '82(940) : IF M7=2THEN 1070 : IF F$="T"THEN 1044 : X$="!A0$(1))=Q:" : IF B$=HEX(BD)THEN 1110 : STR(X$,11)="-1:" : GOTO 1110 1044 X$="!&A0$(1),2))=Q+1:" : GOTO 1110 1070 X$="X=WQ/256):!A0$(1))=X:!&A0$(1),2))=Q-256*X:" 1110 GOSUB 7560 1150 X$=HEX(9785BD) : STR(X$,4)="T$#F(4),(X2,X2)" : IF P0=0THEN 1220 : STR(X$,3,1)=B$ : Y=0 : GOSUB 7570 : GOTO 1270 1220 STR(X$,19)="A0$():" : GOSUB 7570 : GOTO 1410 1270 N=25 : E=14 : FOR P=1TO L : IF X3$(P)>HEX(01)THEN 1360 : X=1 : GOSUB '81(9E9,P) : N=N+X : IF N>256THEN 7020 : GOSUB 7570 1360 NEXT P : GOSUB 8760 : Y=1 1410 X$="Q=1:" : IF P0=0THEN 1480 : IF M7=2THEN 1450 : IF F$<>"T"THEN 1480 1450 X$="Q=2:" 1480 GOSUB 7570 : X$=HEX(9B3A) : GOSUB 7570 : 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) 1850 X$=HEX(A887) : 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 : IF P0*M7=0THEN 2040 : GOSUB '82(2700) : IF F$="V"THEN 2000 : X$="!A0$(1))=240:" : GOSUB 7560 2000 X$=HEX(9AFF09203A) : GOSUB 7570 : GOTO 2980 2040 IF P0=0THEN 2070 : IF B=1THEN 2980 2070 GOSUB '82(2700) : X$=HEX(9F513D31B1FF27703A) : GOSUB 7570 : IF P0=0THEN 2190 : IF F$=" "THEN 2380 : IF F$="A"THEN 2310 : X$=HEX(E4284646294F2428293AA8874F242829B241302428293C512C493E3A) : GOSUB 7570 : GOTO 2950 2190 X$=HEX(E4) : STR(X$,2)="(FF)A0$(Q):" : GOSUB 7570 : GOTO 2950 2310 P=2 : Z=1 : GOSUB 2540 : GOTO 2460 2380 FOR P=1TO L : IF P=1THEN 2410 : IF X6$(P)<>HEX(FE)THEN 2430 2410 Z=1 : GOSUB 2540 2430 NEXT P 2460 FOR C=1TO K : P=VAL(STR(X6$,C)) : Z=VAL(STR(X5$,C)) : GOSUB 2540 : NEXT C : GOTO 2950 2540 X1=VAL(X3$(P)) : IF F$="A"THEN 2570 : IF X1>1THEN 2770 2570 X=1 : IF STR(X0$,X1+1,1)<HEX(A0)THEN 2640 : X$=HEX(E428464629) : X=6 : IF X1<8THEN 2640 : STR(X$,3,2)="99" 2640 GOSUB '81(Z,P) : X4=VAL(X4$(P)) : ON X1GOTO 2790,2680,2820,2840,2870,2870,2910 2680 STR(X$,X)=":" : IF X1<>8THEN 2760 : STR(X$,X+1)=HEX(DE) : X=X+2 : GOSUB '81(Z,P) : STR(X$,X)=")=9:" 2760 GOSUB 7570 2770 RETURN 2790 STR(X$,X)="=9E99:" : GOTO 2760 2820 IF X4>14THEN 2790 2840 IF X4=1THEN 2770 : X4=X4-1 2870 STR(X$,X)="=9999999999999" : X=X+X4+1 : GOTO 2680 2910 X4=X4*2-1 : GOTO 2870 2950 X$=HEX(9AFF09003A9CFF27003A) : GOSUB 7570 2980 GOSUB '82(4960) : IF P0=0THEN 3270 : X$=HEX(97A1BD) : STR(X$,4)="T#F(3),(M0$,X1$)" : Y=0 : GOSUB 7570 : FOR N9=1TO P3+P0 : X=1 : GOSUB '86(9E9) : GOSUB 7570 : NEXT N9 : GOSUB 8760 : Y=1 : IF M7=0THEN 3520 : GOSUB '82(6400) : X$="Q=0:B=00000:!A0$(1))=0:" : X=2 : IF F$="T"THEN 3210 : X=M7 : STR(X$,12)=":" 3210 CONVERT XTO STR(X$,3,1),(#) : CONVERT N0TO STR(X$,7,5),(#####) : GOSUB 7560 : GOTO 3520 3270 X$="N1$=00000A004):" : STR(X$,5,1)=HEX(D2) : GOSUB '88(N1) : STR(X$,8,2)=X1$ : GOSUB 7570 : IF N3=1THEN 3470 : X$=HEX(4E30243DD2) : X=6 : FOR C=1TO N3 : STR(X$,X)="A0" : GOSUB '88(O(C)) : STR(X$,X+2,2)=X1$ : X=X+4 : NEXT C : STR(X$,X)="):" : GOSUB 7570 3470 GOSUB '82(6400) : X$="Q,I=1:B=50:" : GOSUB 7570 3520 GOSUB 9040 : LOAD DC T#F(5),"SORT406A"10,6999 5170 DEFFN'86(Q) : GOSUB '80(VAL(X0$(N9))) : STR(X$,X)=X1$ : STR(X$,X+2)="$" : X=X+3 : M5=VAL(X1$(N9)) : IF M5<128THEN 5320 : M5=M5-128 : STR(X$,X)="(1)" : IF Q<9E9THEN 5300 : STR(X$,X)="()" : X=X-1 5300 X=X+3 5320 IF Q>0THEN 5350 : CONVERT M5TO STR(X$,X,2),(##) : X=X+2 5350 STR(X$,X)="," : RETURN 6620 DEFFN'88(A) : P=INT(A/16) : BIN(X1$)=48+P : Q=A-16*P : BIN(STR(X1$,2))=48+Q+7*INT(Q/10) : RETURN