image of READY prompt

Wang2200.org

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