Listing of file='ddu.047' on disk='vmedia/701-2720C.wvd.zip'
# Sector 935, program filename = 'ddu.047'
6064 COM C1$(N3)N4,C2$(N1)N2,D9$(N1)2,C$(N1)2,D3$(N3)N4,D4$(N3)N4
6072 COM D7$N4,D8$N2,D9$N2,N1(3)
: D4$()=ALL(FF)
: GOSUB '33(2)
: GOSUB 6472
: D0=0
: C1$()=" "
: GOSUB 6584
: D5,D6=0
: GOSUB 6640
: GOSUB '33(3)
: GOSUB 6288
: GOSUB '33(4)
: GOSUB 6768
: N5=N5+4
: MAT COPY K1$()<9>TO K1$()
: M=0
: GOTO 6944
6288 IF STR(D9$,,2)=HEX(FFFF)AND STR(C1$(1),,2)=HEX(FFFF)THEN 6432
: IF STR(D9$,,N4-6)>STR(C1$(1),,N4-6)THEN 6400
: GOSUB '40(D9$)
: GOSUB '39(VAL(STR(D9$,N4+1),2))
: C2$(D3)=D8$
: GOSUB 6640
: GOTO 6288
6400 GOSUB '40(C1$(1))
: GOSUB 6584
: GOTO 6288
6432 GOSUB '40(" ")
: RETURN
6472 FOR D7=N0(3)TO N0(4)
: GOSUB '39(D7)
: J=D7-N0(3)+1
: C2$(J)=D8$
: NEXT D7
: RETURN
6528 DEFFN'39(D1)
: IF D2=D1THEN 6544
: GOSUB '149(N2(1)+N0(1),N0(6),D1)
: IF N1(3)=0THEN 6538
: M=N1(3)
: GOTO 6944
6538 MAT COPY N0$()TO D3$()
: D2=D1
6544 MAT COPY D3$()TO D8$
: MAT COPY D3$()<N4+1>TO D3$()
: D3$(N3)=ALL(FF)
: IF STR(D8$,,2)=HEX(FFFF)THEN 6560
: STR(D8$,N4+1)=BIN(D1,2)
: MAT COPY D3$()TO N0$()<,N4*N3>
: GOSUB '148(N2(1)+N0(1),N0(6),D1)
: IF N1(3)=0THEN 6560
: M=N1(3)
: GOTO 6944
6560 RETURN
6584 MAT COPY C1$()<N0(5)+1>TO C1$()
: IF C1$(1)<>" "THEN 6608
: D0=D0+1
: IF D0<=N0(2)THEN 6600
: C1$()=ALL(FF)
: GOTO 6616
6600 GOSUB '149(N2(1)+N0(1),N0(6),D0)
: IF N1(3)=0THEN 6602
: M=N1(3)
: GOTO 6944
6602 MAT COPY N0$()TO C1$()
6608 IF STR(C1$(1),N0(5)-3,4)=HEX(FFFFFFFF)THEN 6584
6616 RETURN
6640 MAT SORTC2$()(1,N4-6)TO C$(),D9$()
: D3=VAL(D9$(1),2)
: D9$=C2$(D3)
: RETURN
6688 DEFFN'40(D7$)
: IF D7$=" "THEN 6736
: D5=D5+1
: J=MOD(D5,N3)
: IF J=0THEN J=N3
: STR(D7$,N4-5,2)=HEX(0000)
: MAT COPY D7$TO D4$(J)
: IF J<N3THEN 6744
6736 D6=D6+1
: MAT COPY D4$()TO N0$()
: GOSUB '148(N2(3),N0(6),D6)
: IF N1(3)=0THEN 6738
: M=N1(3)
: GOTO 6944
6738 D4$()=ALL(FF)
6744 RETURN
6768 D4=0
6776 D4=D4+1
: IF D4>D6THEN 6824
: GOSUB '149(N2(3),N0(6),D4)
: IF N1(3)=0THEN 6800
: M=N1(3)
: GOTO 6944
6800 GOSUB '148(N2(1)+N0(1),N0(6),D4)
: IF N1(3)=0THEN 6808
: M=N1(3)
: GOTO 6944
6808 GOTO 6776
6824 N0$()=HEX(00050000)&ALL(FF)
: GOSUB '148(N2(1)+1,1,1)
: IF N1(3)=0THEN 6840
: M=N1(3)
: GOTO 6944
6840 IF D6>=N0(4)THEN 6896
: N0$()=ALL(FF)
: FOR D4=D6+1TO N0(4)
: GOSUB '148(N2(1)+N0(1),N0(6),D4)
: IF N1(3)=0THEN 6872
: M=N1(3)
: GOTO 6944
6872 NEXT D4
6896 N0(2)=D6
: N0(4)=0
: N0(3)=D6+2
: DATA SAVE DA T#N0,(N2(1))N0(),N9$
: ERRORM=ERR
: GOTO 6944
6920 RETURN
6944 STR(K9$,124)=BIN(M)
: COM CLEAR C1$()
: LOAD T"ddu.045 "
6955 DEFFN'33(J9)
: PRINT AT(22,0);HEX(06);"Phase";HEX(020402000E);N5+J9;HEX(0F);"in progress
."
: RETURN
6998 DEFFN'5"LISTSHEX(03)";HEX(0D)
6999 %SCRATCH T"DDU.047": SAVE T()"DDU.047"6000,6999:SCRATCH T "ddu.047":SAVE
<SR> T ()"ddu.047"6000,6999:PRINT "DDU.047 and ddu.047 Updated"