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"