image of READY prompt

Wang2200.org

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

# Sector 213, program filename = 'SORT406A'
0010 REM SORT406A,08/09/77,COPYRIGHT WANG LABS.1976
0530 P1=1
   : M6$=X2$
   : GOSUB 8960
   : K$="Q"
   : Y=2
   : GOSUB '82(500)
   : CONVERT P4TO X1$,(##)
   : CONVERT P9TO P6$,(###)
   : X$="X3$(000)2,"
   : STR(X$,5,3)=P6$
   : GOSUB 7570
   : IF P4=1THEN 790
   : X$="P3$(00)1,P4$(00)2,"
   : STR(X$,14,2)=X1$
   : CONVERT P4+1TO STR(X$,5,2),(##)
   : GOSUB 7570
   : X$="M0$(00,000)00,"
   : STR(X$,5,2)=X1$
   : STR(X$,8,3)=P6$
   : FOR P=1TO N3
   : CONVERT PTO STR(X$,2,1),(#)
0760 CONVERT O(P)TO STR(X$,12,2),(##)
   : GOSUB 7570
   : NEXT P
0790 X$="O$(000)62,"
   : C=INT((P2*N5+1)/62)+1
   : CONVERT CTO STR(X$,4,3),(###)
   : GOSUB 7570
   : FOR P=N3TO 1STEP -1
   : X$="O0$(000)00,N0$(000)00,"
   : CONVERT PTO Y$,(#)
   : STR(X$,2,1),STR(X$,13,1)=Y$
   : STR(X$,16,3)=P6$
   : CONVERT P2TO STR(X$,5,3),(###)
   : CONVERT O(P)TO P5$,(##)
   : STR(X$,9,2),STR(X$,20,2)=P5$
   : GOSUB 7570
   : NEXT P
   : IF C(2)=0THEN 1000
   : X$="Z(00),Z$(00)8,"
0960 CONVERT C(2)TO P5$,(##)
   : STR(X$,3,2),STR(X$,10,2)=P5$
   : GOSUB 7570
1000 X$="M9$0,"
   : CONVERT M7+1TO STR(X$,4,1),(#)
   : GOSUB 7570
   : FOR N9=1TO P3
   : X=1
   : GOSUB '86(0)
   : GOSUB 7570
   : NEXT N9
   : FOR P=1TO L
   : X6=VAL(X6$(P))
   : IF P0=1THEN 1180
   : IF X3$(P)<HEX(02)THEN 1180
   : IF X6=0THEN 1290
1180 X=1
   : GOSUB '81(0,P)
   : IF X<7THEN 1290
   : GOSUB 7570
   : IF X6<>3THEN 1290
   : STR(X$,3)="$(000)8,"
   : CONVERT BTO STR(X$,5,3),(###)
   : GOSUB 7570
1290 NEXT P
   : IF N3=1THEN 1410
   : C=INT((N5-1)/64)+1
   : D=INT((N5-1)/C)+1
   : X$="N0$(0)00,"
   : CONVERT CTO STR(X$,5,1),(#)
   : CONVERT DTO STR(X$,7,2),(##)
   : GOSUB 7570
   : GOTO 1450
1410 X$="K$00,"
   : CONVERT O(1)TO STR(X$,3,2),(##)
   : GOSUB 7570
1450 Y=1
   : IF J=0THEN 1540
   : GOSUB '82(600)
   : X$=HEX(A1BF5423462835292C22534F52543431314122FF06002CFF06003A)
   : GOSUB 7570
1540 IF G$=" "THEN 1600
   : GOSUB '82(1000)
   : X$=HEX(A1BF5423462836292C4724FF10002CFF10003A)
   : GOSUB 7570
1600 GOSUB '82(2200)
   : X$=HEX(97A1BD)
   : STR(X$,4)="T#F(3),(M0$,X1$)"
   : Y=0
   : GOSUB 7570
   : FOR N9=1TO P3
   : X=1
   : GOSUB '86(9E9)
   : GOSUB 7570
   : NEXT N9
   : GOSUB 8760
   : Y=1
   : IF P4>1THEN 1820
   : GOSUB '82(2310)
   : X$="P=0:"
   : GOSUB 7570
1820 GOSUB '82(2440)
   : IF P0=1THEN 1890
   : X$="&N$,1,2)=P2$:"
   : GOSUB 7560
1890 X$=HEX(97A1)
   : STR(X$,3)=B$
   : STR(X$,4)="T#F(1),(P2$,P2$)"
   : Y=0
   : GOSUB 7570
   : N=26
   : E=14
   : FOR P=1TO L
   : IF X3$(P)>HEX(01)THEN 2040
   : X=1
   : GOSUB '81(9E9,P)
   : N=N+X
   : IF N>256THEN 7020
   : GOSUB 7570
2040 NEXT P
   : GOSUB 8760
   : Y=1
   : IF F$<>"A"THEN 2120
   : GOSUB 3080
2120 IF J=0THEN 2190
   : IF M7>0THEN 2590
   : IF F$<"P"THEN 2340
   : X$="Q=1+I*(Q-1):"
   : GOSUB 7570
   : GOTO 2430
2190 IF F$="T"THEN 2224
   : IF M7>0THEN 2250
   : X$="Q=1:"
   : GOSUB 7570
   : GOTO 2340
2224 X$="B=;&A0$(1),2))-1:Q=3:"
   : GOTO 2300
2250 X$="B=;A0$(1)):Q=2:"
   : IF M7=1THEN 2300
   : STR(X$,11)="*256+;&A0$(1),2)):Q=3:"
2300 GOSUB 7560
   : GOTO 2590
2340 FOR C=1TO K
   : P=VAL(STR(X6$,C))
   : IF X6$(P)<>HEX(03)THEN 2410
   : GOSUB '80(P)
   : X$=HEX(A8AE00002829B200002428293A)
   : STR(X$,3,2),STR(X$,8,2)=X1$
   : GOSUB 7570
2410 NEXT C
2430 P=2
   : IF F$="A"THEN 2480
   : P=1
2480 IF F<>1THEN 2570
   : GOSUB '82(2460)
   : X$=HEX(9FD3)
   : X=3
   : GOSUB '81(1,P)
   : STR(X$,X)=HEX(2C32293E223122B1FF42803A)
   : GOSUB 7570
   : GOTO 3000
2570 IF F<>2THEN 3000
2590 GOSUB '82(2460)
   : IF F$<"P"THEN 2890
   : X$="?^(F=M7$)A0$()<Q>@M9$:"
   : GOSUB 7560
   : X$="I=;M9$):"
   : IF F$<>"T"THEN 2670
   : STR(X$,8)="+1:"
   : GOTO 2710
2670 ON M7+1GOTO 2750,2710
   : STR(X$,8)="*256+;&M9$,2)):"
2710 GOSUB 7560
2750 IF F<>2THEN 2810
   : X$=HEX(9FD34D39242C002C31293DD2464629B1FF42803A)
   : CONVERT M7+1TO STR(X$,7,1),(#)
   : GOSUB 7570
2810 IF P0*M7=0THEN 3000
   : X$=HEX(A887)
   : STR(X$,3)="A0$()<Q,I>@O$()<1,I>:"
   : GOSUB 7560
   : GOTO 3000
2890 X$=HEX(9FDC)
   : C=INT(VAL(STR(X0$,VAL(X3$(P))+1))/160)
   : X=2+C
   : GOSUB '81(1,P)
   : STR(X$,X)=HEX(293D323535B1FF42803A)
   : IF C=1THEN 2980
   : STR(X$,X)=HEX(3D39453939B1FF42803A)
2980 GOSUB 7570
3000 GOSUB '82(3510)
   : IF F$="A"THEN 3030
   : GOSUB 3080
3030 LOAD DC T#F(5),"SORT407A"10,6999
3080 N9=0
   : Y=0
3110 N9=N9+1
   : IF N9>P3THEN 3710
   : Z=VAL(X0$(N9))
   : IF Z>LTHEN 3110
   : P=Z
   : N=0
   : X7=0
   : X8=0
   : C=0
   : M5=64
   : IF M7*P0=0THEN 3280
   : GOSUB 3810
   : X$="M9$,"
   : GOSUB 7570
   : C=C+2
3280 N=M7
   : X7=M7*(1-P0)
3310 P=P+1
   : IF P>LTHEN 3680
   : IF X3$(P)<HEX(02)THEN 3680
   : X4=VAL(X4$(P))
   : X5=VAL(X5$(P))
   : IF P0+VAL(X6$(P))>0THEN 3460
   : X7=X7+X4*X5*VAL(X7$(P))
   : IF X7<256THEN 3630
   : GOSUB 3740
   : GOTO 3630
3460 IF C<M5THEN 3520
   : GOSUB 3740
   : N9=N9+1
   : IF N9>P3THEN 3650
   : IF VAL(X0$(N9))<>PTHEN 3650
3520 GOSUB 3810
   : IF X7=0THEN 3580
   : C=C+2
   : X7=0
3580 X=1
   : GOSUB '81(9E9,P)
   : GOSUB 7570
   : C=C+2
3630 N=N+X4*X5*VAL(X7$(P))
   : GOTO 3310
3650 E=34
   : GOTO 7020
3680 GOSUB 3740
   : GOTO 3110
3710 RETURN
3740 IF X8=0THEN 3760
   : GOSUB 8760
3760 C,X7,X8=0
   : M5=64
   : RETURN
3810 IF X8>0THEN 3850
   : GOSUB 6080
   : X8=1
   : X7=0
3850 RETURN
5170 DEFFN'86(Q)
   : GOSUB '80(VAL(X0$(N9)))
   : STR(X$,X)=X1$
   : STR(X$,X+2)="$"
   : X=X+3
   : M5=VAL(X1$(N9))
   : IF M5<128THEN 5320
   : M5=M5-128
   : STR(X$,X)="(1)"
   : IF Q<9E9THEN 5300
   : STR(X$,X)="()"
   : X=X-1
5300 X=X+3
5320 IF Q>0THEN 5350
   : CONVERT M5TO STR(X$,X,2),(##)
   : X=X+2
5350 STR(X$,X)=","
   : RETURN
6080 X$="?^(F="
   : X=6
   : GOSUB '86(1)
   : STR(X$,X)=")"
   : X=X+1
   : IF M7*P0>0THEN 6390
   : GOSUB '80(Z)
   : STR(X$,X)=X1$
   : STR(X$,X+2)="$"
   : X=X+3
   : IF F$=" "THEN 6430
   : IF X5$(Z)=HEX(01)THEN 6300
   : STR(X$,X)="()"
   : X=X+2
   : IF F$="A"THEN 6480
6300 STR(X$,X)="<Q+00000>"
   : IF N=0THEN 6350
   : CONVERT NTO STR(X$,X+3,5),(#####)
   : X=X+9
   : GOTO 6530
6350 STR(X$,X)="<Q>"
   : X=X+3
   : GOTO 6530
6390 STR(X$,X)="O$()"
   : X=X+4
   : GOTO 6480
6430 IF B=1THEN 6480
   : STR(X$,X)="(Q)"
   : X=X+3
6480 IF N=0THEN 6530
   : STR(X$,X)="<00000>"
   : CONVERT N+1TO STR(X$,X+1,5),(#####)
   : X=X+7
6530 C=0
   : STR(X$,X)=HEX(B2)
   : GOSUB 7560
   : RETURN