Listing of file='SORT300C' on disk='vmedia/701-2047D.wvd.zip'
# Sector 263, program filename = 'SORT300C' 0010 REM SORT300C,00-00(02/18/76),12003A - COPYRIGHT WANG LABS. INC., 1976 0180 RETURN 3100 Y=500 : Y$=" " : GOSUB '4 : X0$=HEX(06) : GOSUB '15(P2,P6) : 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 '14 : GOSUB '20 : GOSUB '9 : GOSUB '10(800,16) 3300 X$="A$=A$(P,Q):" : FOR R=1TO U : STR(X$,1,1),STR(X$,4,1)=STR(U1$,R,1) : GOSUB '1(11) : NEXT R : GOSUB '9 : GOSUB '10(810,45) : FOR R=1TO S2 : X=VAL(STR(X8$,R,1)) : P=VAL(STR(X6$,R,1)) : CONVERT PTO K$,(##) : IF STR(X2$,X,1)=HEX(03)THEN 3690 : IF STR(X2$,X,1)=HEX(01)THEN 3720 3460 STR(X$,1,2)=X1$(X) : ADD(STR(X$,1,1),06) : STR(X$,3,1)="$" : A=4 : IF R0=1THEN 3550 : STR(X$,A,3)="(O)" : A=A+3 3550 IF P=1THEN 3630 : STR(X$,A,9)=HEX(3DD300242C0000293A) : STR(X$,A+2,1)=STR(X5$,R,1) : STR(X$,A+5,2)=K$ : A=A+8 : GOTO 3830 3630 STR(X$,A,4)="=A$:" : STR(X$,A+1,1)=STR(X5$,R,1) : A=A+3 : GOTO 3830 3690 IF STR(X5$,R,1)="S"THEN 3960 3720 X$=HEX(E6282B232E2323232323232323232323235E5E5E5E29D300242C00002C3829B200 00) : STR(X$,24,1)=STR(X5$,R,1) : STR(X$,27,2)=K$ : STR(X$,33,2)=X1$(X) : ADD(STR(X$,33,1),06) : A=35 : IF R0=1THEN 3820 : STR(X$,A,3)="(O)" 3810 A=A+3 3820 STR(X$,A,1)=HEX(3A) 3830 GOSUB '1(A) : IF STR(X2$,X,1)<>HEX(02)THEN 3960 : IF STR(X9$,R,1)=HEX(00)THEN 3960 : X$=HEX(8C28000024284F292C4646293A) : STR(X$,3,2)=X1$(X) : ADD(STR(X$,3,1),06) : IF R0>1THEN 3950 : STR(X$,6,5)=STR(X$,9) : GOSUB '1(10) : GOTO 3960 3950 GOSUB '1(13) 3960 NEXT R : GOSUB '9 : X=4 : IF R0=1THEN 4030 : X=6 4030 Y1=15+S8*X : GOSUB '10(940,Y1) : X$=HEX(9785BF2423332C) : GOSUB '1(7) : X0$=HEX(06) : GOSUB '11 : GOSUB '9 : B1$="S$" : GOSUB '17(1070) : GOSUB '10(1170,28+6*U) : X$=HEX(9785BD542423322C284D32242C4D3224295333242C) : GOSUB '1(21) 4180 GOSUB '22("1") : GOSUB '9 : GOSUB '10(1310,35) : X$=HEX(A8870030242829B2002428293C28582D31292A00332B312C00333E3A) : FOR R=1TO U : STR(X$,3,1),STR(X$,9,1),STR(X$,20,1),STR(X$,25,1)=STR(U1$,R,1) : GOSUB '1(28) : NEXT R : GOSUB '9 4300 GOSUB '10(2060,27+6*U) : X$=HEX(97A1BD5423322C285333242C583124295333242C) : GOSUB '1(20) : GOSUB '22("0") : GOSUB '9 : GOSUB '19(2730) : GOSUB '21 : COM CLEAR X1$() : LOAD DC T#0,"SORT301A"3100,9999 4450 DEFFN'19(Y) : IF R0=1THEN 4700 : GOSUB '10(Y,32) : FOR X=1TO K0 : P=VAL(STR(X8$,X,1)) : IF STR(X2$,P,1)=HEX(03)THEN 4610 : X$=HEX(E428464629000024284F293A) : STR(X$,6,2)=X1$(P) : ADD(STR(X$,6,1),06) : IF STR(X9$,X,1)=HEX(00)THEN 4580 : STR(X$,3,2)="00" 4580 GOSUB '1(12) : GOTO 4680 4610 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 4670 : STR(X$,7,1)="-" 4670 GOSUB '1(25) 4680 NEXT X : GOSUB '9 4700 RETURN 4730 DEFFN'20 : X$="S0$00," : STR(X$,4,2)=U2$(1) : GOSUB '1(6) : RETURN