Listing of file='ddu.gen' on disk='vmedia/701-2720C.wvd.zip'
# Sector 965, program filename = 'ddu.gen' 4160 DEFFN'88(C3,C4,C2,C5,C6) : B0=INT(C3*C2) 4162 B8=4+40+C5*INT(C3*INT(C2*249/C6)/INT(C5*249/C4)) : B1=INT(B0+B8) : RETURN 4168 DEFFN'51(B5$,B3,B4,B2,B5,B6) : E1,M=0 : R1$()=ALL(00) : GOSUB '88(B3,B4,B2,B5,B6) : DATA LOAD DC OPEN T#9,B5$ : ERRORGOTO 4260 4186 DSKIP #9,B1-2S : DATA SAVE DC #9,END : ERRORGOTO 4260 4188 LIMITS T#9,B5$,B1(1),B1(2),B1(3),B1(4) : ERRORGOTO 4260 4190 M=0 : N0(1)=4 : N0(2)=0 : N0(3)=1 : N0(4)=0 : N0(5)=B4+6 : N0(6)=B5 : N0(7)=B8+1 : N0(8)=1 : N0(9)=0 : N0(10)=B2 : N0(11)=B3 : N9$=ALL(FF) : DATA SAVE DA T#9,(B1(1))N0(),N9$ : ERRORGOTO 4260 4224 MAT REDIM C$(3)83 : C$()=HEX(00050000)&ALL(FF) : FOR S=B1(1)+1TO B1(1)+N0(1)-1 : DATA SAVE DA T#9,(S)C$() : ERRORGOTO 4260 4230 C$()=ALL(FF) : NEXT S : MAT REDIM C$(3*N0(6))83 : C$()=ALL(FF) : FOR N=1TO B8/N0(6) : DATA SAVE DA T#9,(B1(1)+N0(1)+(N-1)*N0(6))C$() : ERRORGOTO 4260 4242 NEXT N : MAT REDIM C$(3*N0(10))83 : C$()=BIN(2,2)&ALL(00) : DATA SAVE DA T#9,(B1(1)+N0(7))C$() : ERRORGOTO 4260 4254 C$()=ALL(00) : FOR N=2TO B0/N0(10) : DATA SAVE DA T#9,(B1(1)+N0(7)+(N-1)*N0(10))C$() : ERRORGOTO 4260 4256 NEXT N : R1$()="D"&HEX(0000) : RETURN 4260 R1$()="D"&BIN(ERR)&HEX(03) : RETURN 9999 % SCRATCH T "DDU.GEN": SAVE T() "DDU.GEN": SCRATCH T "ddu.gen": SAVE <SR> T() "ddu.gen":PRINT: PRINT"DDU.GEN and ddu.gen updated on selected disk"