Listing of file='ddu.046' on disk='vmedia/701-2720C.wvd.zip'
# Sector 930, program filename = 'ddu.046'
6004 COM N0$(6)83,N1(3)
6005 DIM D0$(6)83,D1$(6)83
: DIM C9$(64)2,C$(64)2
: MAT REDIM D0$(64)4
: MAT REDIM D1$(64)4
: MAT REDIM D0$(N3)N4
: MAT REDIM D1$(N3)N4
: M=0
: GOSUB '33(1)
: FOR C2=N0(3)TO N0(4)
: GOSUB '149(N2(1)+N0(1),N0(6),C2)
: IF N1(3)=0THEN 6250
: M=N1(3)
: GOTO 6360
6250 MAT COPY N0$()TO D0$()
: FOR C1=1TO N3
: IF STR(D0$(C1),N4-3,4)=HEX(FFFFFFFF)THEN D0$(C1)=ALL(FF)
: NEXT C1
: MAT SORTD0$()(1,N4-6)TO C$(),C9$()
: MAT MOVE D0$(),C9$()TO D1$()
: MAT COPY D1$()TO N0$()<1,N4*N3>
: GOSUB '148(N2(1)+N0(1),N0(6),C2)
: IF N1(3)=0THEN 6320
: M=N1(3)
: GOTO 6360
6320 NEXT C2
: D1$="ddu.047 DDA.148 DDA.149"
: LOAD T<3>D1$
6360 STR(K9$,124)=BIN(M)
: LOAD T"ddu.045 "
6955 DEFFN'33(J9)
: PRINT AT(22,0);HEX(06);"Phase";HEX(020402000E);N5+J9;HEX(0F);"in progress
."
: RETURN
6999 %SCRATCH T"DDU.046": SAVE T()"DDU.046"6000,6999:SCRATCH T "ddu.046":SAVE
<SR> T ()"ddu.046"6000,6999:PRINT "DDU.046 and ddu.046 Updated"