Listing of file='SORT407A' on disk='vmedia/701-2425A.wvd.zip'
# Sector 182, program filename = 'SORT407A' 0010 REM SORT407A,08/09/77,COPYRIGHT WANG LABS.1976 0530 Y=1 : IF P0=1THEN 720 : IF F$<"P"THEN 660 : IF N0<257THEN 660 : X$="X=WQ/256):!&N$,3))=X:!&N$,4))=Q-256*X:" : GOTO 670 0660 X$="!&N$,4))=Q:" 0670 GOSUB 7560 0720 FOR C=1TO K : P=VAL(STR(X6$,C)) : X1=VAL(X3$(P)) : IF X6$(P)<>HEX(04)THEN 970 : Q=VAL(STR(X5$,C)) : Z$="Z(00)=" : CONVERT VAL(STR(X7$,C))TO STR(Z$,3,2),(##) : IF X1=8THEN 860 : X$=Z$ : X=7 : GOSUB '81(Q,P) : GOTO 950 0860 X$="^(+" : INIT(23)STR(X$,4) : X=4+2*VAL(X4$(P)) : STR(X$,X-1)=")" : GOSUB '81(Q,P) : STR(X$,X)=HEX(B2) : STR(X$,X+1)=Z$ : X=X+6 0950 STR(X$,X)=":" : GOSUB 7560 0970 NEXT C : IF C(2)=0THEN 1050 : X$=HEX(A8AE5A2829B25A2428293A) : GOSUB 7570 1050 Y=0 : X$="?%(F=N1$)N0$()FROM" : IF N3>1THEN 1120 : STR(X$,10)="K$FROM" 1120 GOSUB 7560 : FOR C=1TO K : P=VAL(STR(X6$,C)) : Q=VAL(STR(X5$,C)) : X7=VAL(STR(X7$,C)) : ON VAL(X6$(P))+1GOTO 1450,1220,1260,1340,1410 1220 X=1 : GOSUB '81(Q,P) : GOTO 1440 1260 IF X7=0THEN 1220 : X$=HEX(D3) : X=2 : GOSUB '81(Q,P) : STR(X$,X)=",000)," : CONVERT X7TO STR(X$,X+1,3),(###) : GOTO 1440 1340 X=2 : GOSUB '81(Q,P) : STR(X$,1,2)=X1$ : STR(X$,3,1)="$" : GOTO 1440 1410 X$="Z$(00)," : CONVERT X7TO STR(X$,4,2),(##) 1440 GOSUB 7570 1450 NEXT C : IF P0=1THEN 1550 : X$="N$," : GOSUB 7570 : GOSUB 8760 : Y=1 : GOTO 2170 1550 C=C*2 : N9=1 : N=N1 : M5=VAL(X1$(1)) : IF M7=0THEN 1660 : X$="M9$," : GOSUB 7570 : C=C+2 : N=N+M7 1660 FOR P=1TO L : X1=VAL(X3$(P)) : X6=VAL(X6$(P)) : IF X6>250THEN 1880 : IF X1=1THEN 1880 : IF X6=1THEN 1880 : IF C<M5THEN 1870 : GOSUB 8760 : X$=HEX(EAE2) : STR(X$,3)="(F=N0$)N0$()<000>FROM" : N9=N9+1 : CONVERT N9TO STR(X$,7,1),(#) : CONVERT N+1TO STR(X$,16,3),(###) : IF N3>1THEN 1830 : STR(X$,10,2)="K$" : STR(X$,12)=STR(X$,15) 1830 C=0 : M5=VAL(X1$(N9)) : GOSUB 7570 1870 GOSUB '87(0) 1880 NEXT P : GOSUB 8760 : IF N4=0THEN 2030 : C=250 : FOR P=1TO L : IF X3$(P)<>HEX(01)THEN 1960 : GOSUB '87(1) 1960 NEXT P : GOSUB 8760 2030 Y=1 : IF N6=0THEN 2170 : X$=HEX(A887) : STR(X$,3)="O$()<000,000>@N0$()<000,000>:" : CONVERT I+M7+1TO STR(X$,8,3),(###) : CONVERT N6TO P6$,(###) : STR(X$,12,3),STR(X$,27,3)=P6$ : CONVERT N+1TO STR(X$,23,3),(###) : GOSUB 7560 2170 Q=1 : FOR C=1TO K : X8=VAL(STR(X8$,C)) : IF STR(X9$,C,1)=HEX(00)THEN 2310 : X$=HEX(8C28D3) : STR(X$,4)="N0$(1),00,00),FF):" : CONVERT QTO STR(X$,11,2),(##) : CONVERT X8TO STR(X$,14,2),(##) : IF N3>1THEN 2290 : STR(X$,4,2)="K$" : STR(X$,6)=STR(X$,10) 2290 GOSUB 7570 2310 Q=Q+X8 : NEXT C : IF N3>1THEN 2400 : X$="N1$(C)=K$:" : GOSUB 7570 : GOTO 2530 2400 X$="?^(F=N0$)N0$()@" : Y=0 : GOSUB 7560 : X$="N0$(C)," : FOR C=1TO N3 : CONVERT CTO STR(X$,2,1),(#) : GOSUB 7570 : NEXT C : GOSUB 8760 : Y=1 2530 IF P4=1THEN 2650 : GOSUB '82(3730) : X$=HEX(A8AD) : STR(X$,3)="N0$(),P2$(1)@M0$(P,1):" : FOR C=1TO N3 : CONVERT CTO Y$,(#) : STR(X$,4,1),STR(X$,17,1)=Y$ : GOSUB 7560 : NEXT C : GOTO 2740 2650 GOSUB '82(3760) : X$=HEX(9CFF38303A) : GOSUB 7570 : GOSUB '82(3800) : X$=HEX(9CFF40503A) : GOSUB 7570 2740 GOSUB '82(3880) : X$=HEX(A8AD4E) : IF P4=1THEN 2780 : STR(X$,3)="M" 2780 STR(X$,4)="0$(),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(3950) : Y=0 : X$="?%(F=O$)O$()FROMO8$," : GOSUB 7560 : X$="O0$()," : FOR C=1TO N3 : CONVERT CTO STR(X$,2,1),(#) : GOSUB 7570 : NEXT C : GOSUB 8760 : Y=1 : GOSUB 9040 : FOR C=1TO N3 : O(C)=O(C)*P2 : NEXT C : IF F$<>"P"THEN 3090 : B=B*I 3090 COM CLEAR J : LOAD DC T#F(5),"SORT410A" 5480 DEFFN'87(M9) : Q,X5=VAL(X5$(P)) : IF X5=1THEN 5740 : Q=9E9 : IF X7$(P)=HEX(01)THEN 5740 : FOR Q=1TO X5 5580 X=1 : GOSUB '81(Q,P) : IF M9=0THEN 5670 : C=C+X : IF C<211THEN 5690 : GOSUB 5900 : GOTO 5580 5670 C=C+2 5690 N=N+VAL(X4$(P))+M9 : GOSUB 7570 : NEXT Q : RETURN 5740 X=1 : GOSUB '81(Q,P) : IF M9=0THEN 5830 : C=C+X : IF C<211THEN 5850 : GOSUB 5900 : GOTO 5740 5830 C=C+2 5850 N=N+(VAL(X4$(P))+M9)*X5 : GOSUB 7570 : RETURN 5900 X$="?%N0$()<000>FROM" : CONVERT N+1TO STR(X$,9,3),(###) : IF N3>1THEN 5980 : STR(X$,3,2)="K$" : STR(X$,5)=STR(X$,8) 5980 GOSUB 7560 : N=N+3 : C=0 : RETURN