Listing of file='SORT406A' on disk='vmedia/701-2425A.wvd.zip'
# Sector 213, program filename = 'SORT406A' 0010 REM SORT406A,08/09/77,COPYRIGHT WANG LABS.1976 0530 P1=1 : M6$=X2$ : GOSUB 8960 : K$="Q" : Y=2 : GOSUB '82(500) : CONVERT P4TO X1$,(##) : CONVERT P9TO P6$,(###) : X$="X3$(000)2," : STR(X$,5,3)=P6$ : GOSUB 7570 : IF P4=1THEN 790 : X$="P3$(00)1,P4$(00)2," : STR(X$,14,2)=X1$ : CONVERT P4+1TO STR(X$,5,2),(##) : GOSUB 7570 : X$="M0$(00,000)00," : STR(X$,5,2)=X1$ : STR(X$,8,3)=P6$ : FOR P=1TO N3 : CONVERT PTO STR(X$,2,1),(#) 0760 CONVERT O(P)TO STR(X$,12,2),(##) : GOSUB 7570 : NEXT P 0790 X$="O$(000)62," : C=INT((P2*N5+1)/62)+1 : CONVERT CTO STR(X$,4,3),(###) : GOSUB 7570 : FOR P=N3TO 1STEP -1 : X$="O0$(000)00,N0$(000)00," : CONVERT PTO Y$,(#) : STR(X$,2,1),STR(X$,13,1)=Y$ : STR(X$,16,3)=P6$ : CONVERT P2TO STR(X$,5,3),(###) : CONVERT O(P)TO P5$,(##) : STR(X$,9,2),STR(X$,20,2)=P5$ : GOSUB 7570 : NEXT P : IF C(2)=0THEN 1000 : X$="Z(00),Z$(00)8," 0960 CONVERT C(2)TO P5$,(##) : STR(X$,3,2),STR(X$,10,2)=P5$ : GOSUB 7570 1000 X$="M9$0," : CONVERT M7+1TO STR(X$,4,1),(#) : GOSUB 7570 : FOR N9=1TO P3 : X=1 : GOSUB '86(0) : GOSUB 7570 : NEXT N9 : FOR P=1TO L : X6=VAL(X6$(P)) : IF P0=1THEN 1180 : IF X3$(P)<HEX(02)THEN 1180 : IF X6=0THEN 1290 1180 X=1 : GOSUB '81(0,P) : IF X<7THEN 1290 : GOSUB 7570 : IF X6<>3THEN 1290 : STR(X$,3)="$(000)8," : CONVERT BTO STR(X$,5,3),(###) : GOSUB 7570 1290 NEXT P : IF N3=1THEN 1410 : C=INT((N5-1)/64)+1 : D=INT((N5-1)/C)+1 : X$="N0$(0)00," : CONVERT CTO STR(X$,5,1),(#) : CONVERT DTO STR(X$,7,2),(##) : GOSUB 7570 : GOTO 1450 1410 X$="K$00," : CONVERT O(1)TO STR(X$,3,2),(##) : GOSUB 7570 1450 Y=1 : IF J=0THEN 1540 : GOSUB '82(600) : X$=HEX(A1BF5423462835292C22534F52543431314122FF06002CFF06003A) : GOSUB 7570 1540 IF G$=" "THEN 1600 : GOSUB '82(1000) : X$=HEX(A1BF5423462836292C4724FF10002CFF10003A) : GOSUB 7570 1600 GOSUB '82(2200) : X$=HEX(97A1BD) : STR(X$,4)="T#F(3),(M0$,X1$)" : Y=0 : GOSUB 7570 : FOR N9=1TO P3 : X=1 : GOSUB '86(9E9) : GOSUB 7570 : NEXT N9 : GOSUB 8760 : Y=1 : IF P4>1THEN 1820 : GOSUB '82(2310) : X$="P=0:" : GOSUB 7570 1820 GOSUB '82(2440) : IF P0=1THEN 1890 : X$="&N$,1,2)=P2$:" : GOSUB 7560 1890 X$=HEX(97A1) : STR(X$,3)=B$ : STR(X$,4)="T#F(1),(P2$,P2$)" : Y=0 : GOSUB 7570 : N=26 : E=14 : FOR P=1TO L : IF X3$(P)>HEX(01)THEN 2040 : X=1 : GOSUB '81(9E9,P) : N=N+X : IF N>256THEN 7020 : GOSUB 7570 2040 NEXT P : GOSUB 8760 : Y=1 : IF F$<>"A"THEN 2120 : GOSUB 3080 2120 IF J=0THEN 2190 : IF M7>0THEN 2590 : IF F$<"P"THEN 2340 : X$="Q=1+I*(Q-1):" : GOSUB 7570 : GOTO 2430 2190 IF F$="T"THEN 2224 : IF M7>0THEN 2250 : X$="Q=1:" : GOSUB 7570 : GOTO 2340 2224 X$="B=;&A0$(1),2))-1:Q=3:" : GOTO 2300 2250 X$="B=;A0$(1)):Q=2:" : IF M7=1THEN 2300 : STR(X$,11)="*256+;&A0$(1),2)):Q=3:" 2300 GOSUB 7560 : GOTO 2590 2340 FOR C=1TO K : P=VAL(STR(X6$,C)) : IF X6$(P)<>HEX(03)THEN 2410 : GOSUB '80(P) : X$=HEX(A8AE00002829B200002428293A) : STR(X$,3,2),STR(X$,8,2)=X1$ : GOSUB 7570 2410 NEXT C 2430 P=2 : IF F$="A"THEN 2480 : P=1 2480 IF F<>1THEN 2570 : GOSUB '82(2460) : X$=HEX(9FD3) : X=3 : GOSUB '81(1,P) : STR(X$,X)=HEX(2C32293E223122B1FF42803A) : GOSUB 7570 : GOTO 3000 2570 IF F<>2THEN 3000 2590 GOSUB '82(2460) : IF F$<"P"THEN 2890 : X$="?^(F=M7$)A0$()<Q>@M9$:" : GOSUB 7560 : X$="I=;M9$):" : IF F$<>"T"THEN 2670 : STR(X$,8)="+1:" : GOTO 2710 2670 ON M7+1GOTO 2750,2710 : STR(X$,8)="*256+;&M9$,2)):" 2710 GOSUB 7560 2750 IF F<>2THEN 2810 : X$=HEX(9FD34D39242C002C31293DD2464629B1FF42803A) : CONVERT M7+1TO STR(X$,7,1),(#) : GOSUB 7570 2810 IF P0*M7=0THEN 3000 : X$=HEX(A887) : STR(X$,3)="A0$()<Q,I>@O$()<1,I>:" : GOSUB 7560 : GOTO 3000 2890 X$=HEX(9FDC) : C=INT(VAL(STR(X0$,VAL(X3$(P))+1))/160) : X=2+C : GOSUB '81(1,P) : STR(X$,X)=HEX(293D323535B1FF42803A) : IF C=1THEN 2980 : STR(X$,X)=HEX(3D39453939B1FF42803A) 2980 GOSUB 7570 3000 GOSUB '82(3510) : IF F$="A"THEN 3030 : GOSUB 3080 3030 LOAD DC T#F(5),"SORT407A"10,6999 3080 N9=0 : Y=0 3110 N9=N9+1 : IF N9>P3THEN 3710 : Z=VAL(X0$(N9)) : IF Z>LTHEN 3110 : P=Z : N=0 : X7=0 : X8=0 : C=0 : M5=64 : IF M7*P0=0THEN 3280 : GOSUB 3810 : X$="M9$," : GOSUB 7570 : C=C+2 3280 N=M7 : X7=M7*(1-P0) 3310 P=P+1 : IF P>LTHEN 3680 : IF X3$(P)<HEX(02)THEN 3680 : X4=VAL(X4$(P)) : X5=VAL(X5$(P)) : IF P0+VAL(X6$(P))>0THEN 3460 : X7=X7+X4*X5*VAL(X7$(P)) : IF X7<256THEN 3630 : GOSUB 3740 : GOTO 3630 3460 IF C<M5THEN 3520 : GOSUB 3740 : N9=N9+1 : IF N9>P3THEN 3650 : IF VAL(X0$(N9))<>PTHEN 3650 3520 GOSUB 3810 : IF X7=0THEN 3580 : C=C+2 : X7=0 3580 X=1 : GOSUB '81(9E9,P) : GOSUB 7570 : C=C+2 3630 N=N+X4*X5*VAL(X7$(P)) : GOTO 3310 3650 E=34 : GOTO 7020 3680 GOSUB 3740 : GOTO 3110 3710 RETURN 3740 IF X8=0THEN 3760 : GOSUB 8760 3760 C,X7,X8=0 : M5=64 : RETURN 3810 IF X8>0THEN 3850 : GOSUB 6080 : X8=1 : X7=0 3850 RETURN 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 6080 X$="?^(F=" : X=6 : GOSUB '86(1) : STR(X$,X)=")" : X=X+1 : IF M7*P0>0THEN 6390 : GOSUB '80(Z) : STR(X$,X)=X1$ : STR(X$,X+2)="$" : X=X+3 : IF F$=" "THEN 6430 : IF X5$(Z)=HEX(01)THEN 6300 : STR(X$,X)="()" : X=X+2 : IF F$="A"THEN 6480 6300 STR(X$,X)="<Q+00000>" : IF N=0THEN 6350 : CONVERT NTO STR(X$,X+3,5),(#####) : X=X+9 : GOTO 6530 6350 STR(X$,X)="<Q>" : X=X+3 : GOTO 6530 6390 STR(X$,X)="O$()" : X=X+4 : GOTO 6480 6430 IF B=1THEN 6480 : STR(X$,X)="(Q)" : X=X+3 6480 IF N=0THEN 6530 : STR(X$,X)="<00000>" : CONVERT N+1TO STR(X$,X+1,5),(#####) : X=X+7 6530 C=0 : STR(X$,X)=HEX(B2) : GOSUB 7560 : RETURN