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"