Listing of file='SORT300D' on disk='vmedia/701-2047D.wvd.zip'
# Sector 277, program filename = 'SORT300D' 0010 REM SORT300D,00-00(02/18/76),12003A - COPYRIGHT WANG LABS. INC., 1976 0180 RETURN 3100 Y$=HEX(3A) : Y=180 : GOSUB '4 : X$=HEX(A6) : STR(X$,2)="S1$(000)00,R1$(000)3:" : STR(X$,6,3),STR(X$,17,3)=B2$ : STR(X$,10,2)=U2$(1) : GOSUB '1(22) : GOSUB '9 : P1=4 : Y$="," : GOSUB '10(500,10) : X$=HEX(93) : GOSUB '1(1) : GOSUB '15(P2,P6) : P1=2 3280 X0$=HEX(06) : GOSUB '18(P6) : X$="S3$(00)2,P3$(00)3,S9$(00)2," : STR(X$,5,2),STR(X$,14,2)=B3$ : CONVERT P6+2TO STR(X$,23,2),(##) : GOSUB '1(27) : GOSUB '9 : GOSUB '21 : IF H$>" "THEN 4210 : P1=3 : GOSUB '5 : Y=500 : Y$=" " : GOSUB '4 : X0$=HEX(00) : GOSUB '14 3520 X0$=HEX(06) : GOSUB '14 : GOSUB '20 : GOSUB '9 : X=4 : IF R0=1THEN 3630 : X=6 3630 Y1=21+S8*X+P : GOSUB '10(840,Y1) : X$=HEX(97A1BD5423312C2852242C58312429) : GOSUB '1(15) : X0$=HEX(00) : GOSUB '11 : GOSUB '9 : GOSUB '10(860,25) : IF R0=1THEN 3790 : X$=HEX(583DDCD3523124285930292C3329293A) : GOSUB '1(16) 3790 FOR X=1TO S8 : Y1$="$" : IF STR(X2$,X,1)=HEX(00)THEN 3840 : IF STR(X2$,X,1)=HEX(02)THEN 3840 : Y1$=" " 3840 IF R0=1THEN 3950 : X$="G0$(O)=A0$(X):" : STR(X$,3,1)=Y1$ : STR(X$,1,2)=X1$(X) : STR(X$,8,3)=STR(X$,1,3) : ADD(STR(X$,1,1),06) : GOSUB '1(14) : NEXT X : GOTO 4020 3950 X$="G0$=A0$:" : STR(X$,1,2)=X1$(X) : STR(X$,3,1)=Y1$ : STR(X$,5,3)=STR(X$,1,3) : ADD(STR(X$,1,1),06) : GOSUB '1(8) : NEXT X 4020 GOSUB '9 : GOSUB '19(6140) : X=4 : IF R0=1THEN 4110 : X=6 4110 Y1=15+S8*X : GOSUB '10(6520,Y1) : X$=HEX(9785BF2423332C) : GOSUB '1(7) : X0$=HEX(06) : GOSUB '11 : GOSUB '9 : GOSUB '21 4210 COM CLEAR X1$() : LOAD DC T#0,"SORT301A"3100,9999 4260 DEFFN'19(Y) : IF R0=1THEN 4510 : GOSUB '10(Y,32) : FOR X=1TO K0 : P=VAL(STR(X8$,X,1)) : IF STR(X2$,P,1)=HEX(03)THEN 4420 : X$=HEX(E428464629000024284F293A) : STR(X$,6,2)=X1$(P) : ADD(STR(X$,6,1),06) : IF STR(X9$,X,1)=HEX(00)THEN 4390 : STR(X$,3,2)="00" 4390 GOSUB '1(12) : GOTO 4490 4420 X$="G0(O)=+9.999999999999E99:" : STR(X$,1,2)=X1$(P) : ADD(STR(X$,1,1),06) : IF STR(X9$,X,1)=HEX(00)THEN 4480 : STR(X$,7,1)="-" 4480 GOSUB '1(25) 4490 NEXT X : GOSUB '9 4510 RETURN 4540 DEFFN'20 : X$="S0$00," : STR(X$,4,2)=U2$(1) : GOSUB '1(6) : RETURN