image of READY prompt

Wang2200.org

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

# Sector 145, program filename = 'SORT410A'
0010 REM SORT410A,08/09/77,COPYRIGHT WANG LABS.1976
0250 DIM O6$2,P5$(36)2,P6$(36)3,N8$3,O8$2,P2$(255)2,N$4
0500 PRINT HEX(010A0A0A0A)
   : PRINT "PASS 1 -- INTERNAL SORT"
   : H,N9,N=0
   : P0=1
   : INIT(00)P$
   : X2$=M2$
   : ADDC(X2$,M3$)
   : LOAD DA T#F(3),(M6$,M6$)500,599
0585 DIM P4$(02)2,X3$(005)2,P3$(03)1,O$(008)62
   : DIM N1$(005)20,M1$(02,005)20,O1$(005)20
2010 O=1
   : INIT(00)N$
   : Q=9E9
   : O6$=M1$
   : O8$=X2$
2310 INIT(FF)P3$()
   : P=0
2320 P5$=O8$
   : INIT(00)P6$,N8$
2330 P=P+1
   : IF P>P4THEN 3800
   : C=0
2350 C=C+1
   : IF C>P9THEN 3710
2400 Q=Q+I
   : IF Q<=BTHEN 2460
   : N=N+1
   : IF N>M3THEN 4280
2460 X=0
3500 ADDC(P6$,01)
3550 GOTO 2350
3710 MAT SORTN1$()TO X3$(),P2$()
3760 P3$(P)=HEX(01)
   : IF H=0THEN 2330
3800 MAT MERGEM1$()TO P3$(),P4$(),P2$()
3830 G=1
3875 Z=P2
3900 O=O+Z
   : IF O<=P2THEN 4000
   : ADDC(O8$,M3$)
   : IF O8$<=M5$THEN 3950
   : E=16
   : GOTO 7020
3950 X=0
3960 DATA SAVE DA T#F(3),(X2$,X2$)O$()
   : O=1
   : ADDC(N8$,N9$)
   : IF N8$>=P6$THEN 4050
4000 G=G+Z
   : IF G>255THEN 3800
   : IF P2$(G)=HEX(0000)THEN 3800
   : GOTO 3875
4050 N9=N9+1
   : ADDC(P$,P6$)
   : IF H=1THEN 4160
   : P0=P0+1
   : IF P0<=36THEN 4110
   : GOSUB 4610
4110 P5$(P0)=P5$
   : P6$(P0)=P6$
   : GOTO 2310
4160 GOSUB 4610
   : IF P$>HEX(000000)THEN 4200
   : E=11
   : GOTO 7020
4200 COM CLEAR G$
   : IF P8$="K"THEN 4255
   : LOAD DC T#F(5),"SORT425A"
4255 LOAD DC T#F(5),"SORT420A"
4280 H=1
   : FOR X=CTO P9
   : INIT(FF)N1$(X)
   : NEXT X
   : GOTO 3710
4610 DATA SAVE DA T#F(3),(O6$,O6$)P5$(),P6$()
   : P0=1
   : RETURN
7018 DEFFN'31
   : E=28
7020 LOAD DC T#F(5),"SORT490A"