image of READY prompt

Wang2200.org

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"