image of READY prompt

Wang2200.org

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"