Listing of file='ddu.045 ' on disk='vmedia/701-2720C.wvd.zip'
# Sector 925, program filename = 'ddu.045'
6050 COM M,N1,N2,N3,N4,N5,N2(05),N1(3)
6055 COM N0(11),N9$48
: COM D1$24
: IF M>0THEN GOTO 6340
: IF K1$(1)=" "THEN GOTO 6340
: LIMITS T#N0,"DDA.WORK",N2(3),N2(4),U,S
: ERRORM=ERR
: GOTO 6340
6140 IF S=2THEN 6160
: M=71
: GOTO 6340
6160 LIMITS T#N0,K1$(1),N2(1),N2(2),U,S
: ERRORM=ERR
: GOTO 6340
6180 IF S=2THEN 6200
: M=71
: GOTO 6340
6200 DATA LOAD DA T#N0,(N2(1))N0(),N9$
: ERRORM=ERR
: GOTO 6340
6240 IF N0(4)=0THEN N0(4)=N0(3)+1
: N1=N0(4)-N0(3)+1
: N2=N0(5)+2
: N3=INT((N0(6)*249-2)/N0(5))
: N4=N0(5)
: IF N5=0THEN PRINT AT(21,0);"PROCESS IS A TOTAL OF 8 PHASES.";
: D1$="ddu.046 DDA.148 DDA.149"
: LOAD T<3>D1$
6340 PRINT AT(21,0,40);AT(22,0,40);
: COM CLEAR M
: STR(K9$,124)=BIN(M)
: LOAD T"ddu.040 "
6999 %SCRATCH T "DDU.045": SAVE T()"DDU.045"6000,6999:SCRATCH T "ddu.045 ":SAV
E <SR> T() "ddu.045 ":PRINT"DDU.045 and ddu.045 Updated"