Listing of file='DSM201AA' on disk='vmedia/701-2048D.wvd.zip'
# Sector 763, program filename = 'DSM201AA' 0010 REM DSM201AA,00-00(02/18/76),12003A - COPYRIGHT WANG LABS. INC., 1976 0310 COM F3$(36)2,L3$(36)3 : COM B3$(255)2 : COM F3$2,L3$3,S9,K1 : DIM N2$2 : DIM C1$3,X1$2 : DIM Y$1 0500 PRINT HEX(030A0A0A0A) : PRINT "PASS 1 - INTERNAL SORT" : LOAD DA T#2,(D1$,D1$)500,599 0570 DIM E3$(02)2,X3$(005)2,D3$(03)1 : DIM S0$(005)20,S$(02,005)20,S1$(005)20 : DIM S$20 0600 GOTO 5000 1000 INIT(FF)D3$() : P=0 1010 F3$=N2$ : INIT(00)L3$ 1040 P=P+1 : IF P>D3THEN 2060 : C=0 1100 C=C+1 : IF C>D9THEN 2000 : B1=B1+1 : IF B1>L1THEN 2400 : ADDC(L3$,C1$) : B=B+1 : IF B<=R0THEN 1220 : GOSUB 1500 1220 X=0 1260 GOTO 1100 1500 X=0 1530 B=1 : RETURN 2000 MAT SORTS0$()TO X3$(),B3$() 2030 D3$(P)=HEX(01) : IF I=0THEN 1040 2060 MAT MERGES$()TO D3$(),E3$(),B3$() : IF B3$(1)=HEX(0000)THEN 2260 2080 G=1 2100 X=0 2140 O=O+F : O1=O1+F : IF O<=D2THEN 2210 : ADDC(N2$,N3$) 2190 O=1 : IF O1>=L1THEN 2260 2210 G=G+F : IF G>255THEN 2060 : IF B3$(G)=HEX(0000)THEN 2060 : GOTO 2100 2260 S9=S9+1 : IF I=1THEN 2350 : K1=K1+1 : IF K1<=36THEN 2310 : GOSUB 8000 2310 F3$(K1)=F3$ : L3$(K1)=L3$ : GOTO 1000 2350 GOSUB 8000 : IF T1$="R"THEN 2380 : LOAD DC T#0,"DSM202AA" 2380 LOAD DC T#0,"DSM202BA" 2400 I=1 : INIT(FF)S0$(C) : IF C=D9THEN 2000 : F=C*K : G=(D9-C)*K : MAT COPY S0$()<F,G>TO S0$()<F+1,G> : GOTO 2000 5000 I,S9,B1,O1=0 : O=1 : K1=1 : GOSUB 1500 : B=I2-1 : C1$=HEX(000001) : N0$=M0$ : N2$=M2$ : GOTO 1000 8000 DATA SAVE DA T$#2,(N0$,N0$)F3$(),L3$() : K1=1 : RETURN