image of READY prompt

Wang2200.org

Listing of file='SORT405A' on disk='vmedia/701-2425A.wvd.zip'

# Sector 236, program filename = 'SORT405A'
0010 REM SORT405A,08/10/77,COPYRIGHT WANG LABS.1976
0550 Y=1
   : GOSUB '82(1070)
   : X$=HEX(A8AD)
   : STR(X$,3)="M0$(),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(1170)
   : X$="?%(F=O$)O$()FROMP0$,"
   : Y=0
   : GOSUB 7560
   : X$="O0$(),"
   : FOR C=1TO N3
   : CONVERT CTO STR(X$,2,1),(#)
   : GOSUB 7570
   : NEXT C
   : GOSUB 8760
   : Y=1
   : GOSUB '82(2060)
   : X$=HEX(A887)
0850 STR(X$,3)="O$()<00000,O(0)>@M0$()<(X-1)*O(0)+1,O(0)>:"
   : N=3
   : FOR C=1TO N3
   : CONVERT CTO Y$,(#)
   : STR(X$,16,1),STR(X$,21,1),STR(X$,34,1),STR(X$,41,1)=Y$
   : CONVERT NTO STR(X$,8,5),(#####)
   : GOSUB 7560
   : N=N+O(C)*P2
   : NEXT C
   : GOSUB 9040
   : P1=3
   : GOSUB 8960
   : Y=2
   : GOSUB '82(500)
   : X$="O$(000)62,"
   : C=INT((P2*N5+1)/62)+1
   : CONVERT CTO STR(X$,4,3),(###)
1060 GOSUB 7570
   : CONVERT P2TO P6$,(###)
   : FOR P=1TO N3
   : X$="O0$(000)00,"
   : CONVERT PTO STR(X$,2,1),(#)
   : STR(X$,5,3)=P6$
   : CONVERT O(P)TO STR(X$,9,2),(##)
   : GOSUB 7570
   : NEXT P
   : IF P3=P5THEN 1250
   : FOR C=P3+1TO P5
   : GOSUB '80(VAL(X0$(C)))
   : X$=X1$
   : STR(X$,3)="$00,"
   : CONVERT VAL(X1$(C))TO STR(X$,4,2),(##)
   : GOSUB 7570
   : NEXT C
1250 FOR P=1TO L
   : IF F$="A"THEN 1280
   : IF X3$(P)>HEX(01)THEN 1360
1280 X=1
   : GOSUB '81(0,P)
   : IF X<7THEN 1360
   : GOSUB 7570
   : IF M7>0THEN 1330
   : IF B<2THEN 1360
1330 X=1
   : GOSUB '81(0,P+60)
   : GOSUB 7570
1360 NEXT P
   : X$="L$00,K$00,"
   : CONVERT O(1)TO X1$,(##)
   : STR(X$,3,2),STR(X$,8,2)=X1$
   : GOSUB 7570
   : Y=1
   : GOSUB '82(700)
   : X$="O=1:"
   : IF M7=0THEN 1500
   : STR(X$,5)="B=00000:"
   : X=M7
   : IF F$="V"THEN 1480
   : X=2
   : STR(X$,13)="!G0$(1))=0:"
1480 CONVERT XTO STR(X$,3,1),(#)
   : CONVERT N0TO STR(X$,7,5),(#####)
1500 GOSUB 7560
   : IF P3=P5THEN 1690
   : Y=0
   : X$=HEX(97A1BD)
   : STR(X$,4)="T#F(3),(M0$,X1$)"
   : GOSUB 7570
   : FOR C=1TO P5
   : X$="K$,"
   : IF C<=P3THEN 1640
   : GOSUB '80(VAL(X0$(C)))
   : X$=X1$
   : STR(X$,3)="$,"
1640 GOSUB 7570
   : NEXT C
   : GOSUB 8760
   : Y=1
1690 GOSUB '82(840)
   : X$="?^(F=O$)O$()@X2$,O1$(),O2$():"
   : IF N3=2THEN 1740
   : STR(X$,23)=STR(X$,29)
1740 GOSUB 7560
   : GOSUB '82(900)
   : X$="?^(F=N1$)O0$(P)<00>@P2$,N$:"
   : CONVERT N3TO STR(X$,11,1),(#)
   : CONVERT N1+1TO STR(X$,17,2),(##)
   : IF N3=1THEN 1860
   : STR(X$,16)=STR(X$,20)
   : GOTO 1880
1860 STR(X$,10,2)="K$"
   : STR(X$,12)=STR(X$,16)
1880 GOSUB 7560
   : X$=HEX(97A1)
   : STR(X$,3)=B$
   : STR(X$,4)="T#F(1),(P2$,P2$)"
   : Y=0
   : GOSUB 7570
   : GOSUB '89(0)
   : IF F$<>"A"THEN 2020
   : GOSUB '92(HEX(EAE6B2),0)
2020 IF M7>0THEN 2050
   : IF B=1THEN 2410
2050 X$="Q=;N$)*256+;&N$,2)):"
   : IF F$<"P"THEN 2090
   : IF N0>256THEN 2100
2090 STR(X$,3)=STR(X$,12)
2100 GOSUB 7560
   : IF M7>0THEN 3340
   : IF F$<"P"THEN 2220
   : X$=HEX(A887)
   : STR(X$,3)="A0$()<Q,I>@G0$()<O,I>:"
   : GOSUB 7560
   : GOTO 2410
2220 FOR P=1TO L
   : IF X7$(P)=HEX(01)THEN 2380
   : FOR C=1TO VAL(X5$(P))
   : K$="O"
   : X=1
   : GOSUB '81(C,P+60)
   : STR(X$,X)="="
   : X=X+1
   : K$="Q"
   : GOSUB '81(C,P)
   : STR(X$,X)=":"
   : GOSUB 7570
   : NEXT C
2380 NEXT P
2410 X$=HEX(9AFF30003A)
   : GOSUB 7570
   : IF B=1THEN 3590
   : GOSUB '82(1340)
   : X$=HEX(9F4F3D31B1FF16003A)
   : GOSUB 7570
   : K$="O"
   : IF F$=" "THEN 2720
   : IF F$="A"THEN 2650
   : X$=HEX(E42846462941302428293AA887)
   : STR(X$,14)="A0$()@G0$()<O,I>:"
   : GOSUB 7560
   : GOTO 3290
2650 P=2
   : Z=1
   : GOSUB 2880
   : GOTO 2800
2720 FOR P=1TO L
   : IF P=1THEN 2750
   : IF X6$(P)<>HEX(FE)THEN 2770
2750 Z=1
   : GOSUB 2880
2770 NEXT P
2800 FOR C=1TO K
   : P=VAL(STR(X6$,C))
   : Z=VAL(STR(X5$,C))
   : GOSUB 2880
   : NEXT C
   : GOTO 3290
2880 X1=VAL(X3$(P))
   : IF F$="A"THEN 2910
   : IF X1>1THEN 3110
2910 X=1
   : IF STR(X0$,X1+1,1)<HEX(A0)THEN 2980
   : X$=HEX(E428464629)
   : X=6
   : IF X1<8THEN 2980
   : STR(X$,3,2)="99"
2980 GOSUB '81(Z,P+60)
   : X4=VAL(X4$(P))
   : ON X1GOTO 3130,3020,3160,3180,3210,3210,3250
3020 STR(X$,X)=":"
   : IF X1<>8THEN 3100
   : STR(X$,X+1)=HEX(DE)
   : X=X+2
   : GOSUB '81(Z,P)
   : STR(X$,X)=")=9:"
3100 GOSUB 7570
3110 RETURN
3130 STR(X$,X)="=9E99:"
   : GOTO 3100
3160 IF X4>14THEN 3130
3180 IF X4=1THEN 3110
   : X4=X4-1
3210 STR(X$,X)="=9999999999999"
   : X=X+X4+1
   : GOTO 3020
3250 X4=X4*2-1
   : GOTO 3210
3290 X$=HEX(9AFF30003A9CFF13403A)
   : GOSUB 7570
   : GOTO 3590
3340 X$=HEX(A887)
   : STR(X$,3)="A0$()<Q,2>@J$():"
   : GOSUB 7560
   : X$="I=;J$(1))+1:"
   : IF F$="T"THEN 3410
   : STR(X$,10)=":"
   : IF M7=1THEN 3410
   : STR(X$,10)="*256+;&J$(1),2)):"
3410 GOSUB 7560
   : X$=HEX(9F4F2B493C3D42B1FF12003A)
   : GOSUB 7570
   : X$=HEX(9AFF31003A)
   : GOSUB 7570
   : GOSUB '82(1200)
   : X$=HEX(A887)
   : STR(X$,3)="A0$()<Q,I>@G0$()<O+1,I>:O=O+I:"
   : GOSUB 7560
   : GOSUB '82(1340)
   : IF F$="V"THEN 3560
   : X$="!G0$(1))=240:"
   : GOSUB 7560
3560 X$=HEX(9AFF31003A)
   : GOSUB 7570
3590 GOSUB '82(3120)
   : IF M7=0THEN 3760
   : IF M7=2THEN 3710
   : IF F$="T"THEN 3684
   : X$="!G0$(1))=O:"
   : IF B$=HEX(BD)THEN 3730
   : STR(X$,11)="-1:"
   : GOTO 3730
3684 X$="!&G0$(1),2))=O+1:"
   : GOTO 3730
3710 X$="X=WO/256):!G0$(1))=X:!&G0$(1),2))=O-256*X:"
3730 GOSUB 7560
3760 IF F$<>"A"THEN 3790
   : GOSUB '92(HEX(EAE246524F4D),60)
3790 X$=HEX(9785)
   : STR(X$,3)=B$
   : STR(X$,4)="T$#F(4),(X2,X2)"
   : Y=0
   : GOSUB 7570
   : N=60*SGN(M7+B-1)
   : GOSUB '89(N)
   : X$="O=2:"
   : IF M7=2THEN 3940
   : IF F$="T"THEN 3940
   : X$="O=1:"
3940 STR(X$,5)=HEX(9B3A)
   : GOSUB 7570
   : GOSUB 9040
   : LOAD DC T#F(5),"SORT406A"10,6999
4020 DEFFN'89(N)
   : C=26
   : FOR P=1TO L
   : IF X3$(P)>HEX(01)THEN 4110
   : X=1
   : GOSUB '81(9E9,P+N)
   : C=C+X
   : IF C>256THEN 4160
   : GOSUB 7570
4110 NEXT P
   : Y=1
   : GOSUB 8760
   : RETURN
4160 E=14
   : RETURN CLEAR
4180 GOTO 7020
4230 DEFFN'92(Z$,N)
   : C=0
   : P=1
   : Y=0
   : GOSUB 4400
4280 P=P+1
   : IF P>LTHEN 4540
   : IF P<>33THEN 4340
   : GOSUB 8760
   : GOSUB 4400
4340 X=1
   : GOSUB '81(9E9,P+N)
   : GOSUB 7570
   : C=C+VAL(X4$(P))*VAL(X5$(P))*VAL(X7$(P))
   : GOTO 4280
4400 X$=Z$
   : STR(X$,3)="(F=00$)A0$()"
   : GOSUB '80(P+60)
   : STR(X$,6,2)=X1$
   : BIN(STR(X$,10))=65+N*.1
   : X=15
   : IF C=0THEN 4500
   : STR(X$,15)="<00000>"
   : CONVERT C+1TO STR(X$,16,5),(#####)
   : X=22
4500 STR(X$,X)=STR(Z$,3)
   : GOSUB 7570
   : RETURN
4540 GOSUB 8760
   : Y=1
   : RETURN