Listing of file='SORT301A' on disk='vmedia/701-2047D.wvd.zip'
# Sector 288, program filename = 'SORT301A' 0010 REM SORT301A,00-00(02/18/76),12003A - COPYRIGHT WANG LABS. INC., 1976 3100 DIM S7$(36)2,S8$(36)3,S4$(255)2 : DIM N2$2,R8$3,Y2$3,X1$2,Y$1 3140 PRINT HEX(030A0A0A0A) : PRINT "PASS 1 - INTERNAL SORT" : LOAD DA T#2,(S1$,S1$)3140,3199 3165 DIM S6$(02)2,X3$(005)2,S5$(03)1 : DIM S0$(005)20,S$(02,005)20,S1$(005)20 : DIM S$20 3200 IF G$=" "THEN 4390 3210 LOAD DC T#6,G$3200,3210 3270 GOTO 4390 3310 INIT(FF)S5$() : P=0 3340 S7$=N2$ : INIT(00)S8$,R8$ 3370 P=P+1 : IF P>P4THEN 3800 : C=0 3410 C=C+1 : IF C>P9THEN 3710 3430 R4=R4+1 : IF R4>R2THEN 4280 3440 Q=Q+1 : IF Q<=R0THEN 3450 : Q=1 : GOSUB 3650 3450 X=0 3500 ADDC(S8$,Y2$) 3600 GOTO 3410 3650 X=0 3690 RETURN 3710 MAT SORTS0$()TO X3$(),S4$() 3760 S5$(P)=HEX(01) : IF I=0THEN 3370 3800 MAT MERGES$()TO S5$(),S6$(),S4$() 3830 G=1 3875 R=P2 3900 O=O+R : IF O<=P2THEN 4000 : ADDC(N2$,N3$) 3950 X=0 3970 O=1 : ADDC(R8$,R9$) : IF R8$>=S8$THEN 4050 4000 G=G+R : IF G>255THEN 3800 : IF S4$(G)=HEX(0000)THEN 3800 : GOTO 3875 4050 S9=S9+1 : IF I=1THEN 4160 : S4=S4+1 : IF S4<=36THEN 4110 : GOSUB 4510 4110 S7$(S4)=S7$ : S8$(S4)=S8$ : GOTO 3310 4160 GOSUB 4510 : COM CLEAR Z : IF R1$="R"THEN 4250 : LOAD DC T#0,"SORT302A" 4250 LOAD DC T#0,"SORT302B" 4280 I=1 : R2=R4-1 : IF R4>1THEN 4310 : STOP "NO RECORDS" 4310 INIT(FF)S0$(C) : IF C=P9THEN 3710 : R=C*K : G=(P9-C)*K : MAT COPY S0$()<R,G>TO S0$()<R+1,G> : GOTO 3710 4390 I,S9,R4=0 : O=1 : S4=1 : IF F=2THEN 4450 : GOSUB 3650 : Q=R1-1 4450 Y2$=HEX(000001) : N0$=M0$ : N2$=M2$ : GOTO 3310 4510 DATA SAVE DA T$#2,(N0$,N0$)S7$(),S8$() : S4=1 : RETURN