image of READY prompt

Wang2200.org

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