Listing of file='DDU.INIT' on disk='vmedia/701-2720C.wvd.zip'
# Sector 619, program filename = 'DDU.INIT' 1035 COM K9$124,C,C4$,A(12),A7$(6)8,A1$(2)8,A2$(2)8 1040 COM A$80,N0(11),B7$(2)8 : COM C1$(2)8,C1(2),C3(2),A8,A9 : COM R$(4)64,A1(4),C3$3 : COM K1$44,D1$60,K8$(300)1,T1$(80)1,B1(4),B$(2)4,B$1,C1$10,C2$10 : COM C4(2),C2(2),A1$8,A4$8,R1$(3)1 : COM S0$(8)124 : DIM C$(12)83 : PRINT HEX(03) 1100 A7$()="SE.SUBS DDA.VARCdduints1ddu.gen " : LOAD T<4>A7$()2000,2020BEG 1110 : ERRORGOTO 1719 1110 DATA LOAD DC OPEN T#0,"DD.CNTRL" : ERRORGOTO 1719 1115 DATA LOAD DC #0,C1$(),C1(),C2(),C3(),C4() : ERRORGOTO 1719 1120 C1$,C2$="(40-5000)" : A1$=C1$(1) : A4$=C1$(2) : A8,A9=0 1122 PRINT AT(20,45,35);AT(21,0,80);AT(22,45,35); 1125 PRINT AT(2,0);BOX(0,80);AT(20,0);BOX(0,80);AT(21,0,45);AT(22,0,45);AT(10, 10); : GOSUB '116(HEX(F218012D01)," ") : IF R1=0THEN 1295 : IF POS("3BD"=STR(C3$,1))*POS("123567"=STR(C3$,2))*POS("012345"=STR(C3$,3) )<>0THEN 1140 : GOSUB '128("Invalid Disk Device Address",99,0,20) : $BREAK5 : GOTO 1125 1140 IF A8>39AND A9>39AND A8<5001AND A9<5001OR A8=0OR A9=0THEN 1145 1141 GOSUB '128("File sizes not within range",99,0,20) : $BREAK5 : GOTO 1125 1145 SELECT #9<C3$>,#1<C3$> : GOSUB '128("In Progress",22,5,20) : LIMITS T#1,C1$(1),A(1),A(2),A(3),A(4) : ERRORGOTO 1719 1155 LIMITS T#1,C1$(2),A(5),A(6),A(7),A(8) : ERRORGOTO 1719 1160 LIMITS T#1,"DDA.WORK",A(9),A(10),A(11),A(12) : ERRORGOTO 1719 1165 IF A(4)=0AND A(8)=0AND A(12)=0AND A8>0AND A9>0THEN 1195 : IF A(4)*A(8)<>0AND A(12)=0THEN 1170 : IF A(4)*A(8)*A(12)<>0AND A(10)-A(9)>=MAX(A(2)-A(1),A(6)-A(5))THEN 1170 : IF A8=0OR A9=0THEN 1141 : GOTO 1715 1170 DATA LOAD DA T#9,(A(1))N0() : ERRORGOTO 1719 1175 CONVERT N0(11)TO B$(1),(####) : A8=N0(11) : DATA LOAD DA T#1,(A(5))N0() : ERRORGOTO 1719 1180 CONVERT N0(11)TO B$(2),(####) : A9=N0(11) : PRINT HEX(0204020E);AT(7,40);B$(1);AT(10,40);B$(2);AT(21,3);HEX(07);"File s exist as shown above";AT(21,45);"CANCEL/EDIT - Respecify Device";AT(22, 45);"EXEC/RUN - Reinitialize Files";HEX(06); 1185 KEYIN B$ : PRINT HEX(0F) : IF B$=HEX(F0)THEN 1122 : IF B$=HEX(82)THEN 1190 : PRINT HEX(070E) : GOTO 1185 1190 PRINT HEX(0204020E);AT(20,45,35);AT(21,45,35);AT(22,45,33);AT(21,1,29);"R einitializing Dictionary";HEX(0F); 1195 GOSUB '88(A8,C1(1),C3(1),C4(1),C2(1)) : A1(1)=B1 : GOSUB '88(A9,C1(2),C3(2),C4(2),C2(2)) : A1(2)=B1 : A1(3)=MAX(A1(1),A1(2)) : A1(4)=A1(1)+A1(2)+A1(3) : IF A(4)*A(8)<>0AND A(12)=0THEN A1(4)=A1(3) : IF A(4)*A(8)*A(12)<>0THEN 1230 : DATA LOAD BA T#9,(0)R$() : ERRORGOTO 1719 1201 IF VAL(STR(R$(),5,2),2)-VAL(STR(R$(),3,2),2)>A1(4)THEN 1210 : PRINT AT(21,0,45); : GOSUB '128("Not enough space for new files",99,00,20) : GOTO 1125 1210 IF A(4)=0THEN DATA SAVE DC OPEN T#1,(A1(1)),"DD.DEF" : ERRORGOTO 1719 1215 IF A(8)=0THEN DATA SAVE DC OPEN T#9,(A1(2)),"DD.REL" : ERRORGOTO 1719 1220 IF A(12)=0THEN DATA SAVE DC OPEN T#9,(A1(3)),"DDA.WORK" : ERRORGOTO 1719 1230 PRINT AT(21,0,30);HEX(0204020E);" Creating Definition File";HEX(0E) : GOSUB '51(C1$(1),A8,C1(1),C3(1),C4(1),C2(1)) : IF R1$(2)=HEX(00)THEN GOTO 1250 : PRINT AT(23,1,37);HEX(0204020E07);"ERROR when Initializing Defintiion Fil e";HEX(0F); : M=VAL(R1$(2)) : GOTO 1720 1250 PRINT AT(21,0,30);HEX(0204020E);" Creating Relationship File";HEX(0E) : GOSUB '51(C1$(2),A9,C1(2),C3(2),C4(2),C2(2)) : IF R1$(2)=HEX(00)THEN GOTO 1265 : PRINT AT(23,2,37);HEX(0204020E07);"ERROR when initializing Relation File" ;HEX(0F); : M=VAL(R1$(2)) : GOTO 1720 1265 PRINT AT(21,1,30);HEX(0204020E);"Loading Dictionary Files";HEX(0F); : A7$()="DDA.141 DDA.142 DDA.143 DDA.147 DDA.148 DDA.149 " : LOAD T<6>A7$()3000,4000BEG 1275 : ERRORGOTO 1719 1275 GOSUB 1560 : PRINT HEX(03); : PRINT AT(5,1,80);HEX(0204020E);"Processing complete.";AT(6,1,80);"Linking to Reorganization Utility";HEX(0F) : IF STR(K9$,1,3)=" "THEN STR(K9$,1,3)="CTL" : STR(K9$,4,3)=C3$ : COM CLEAR C : LOAD T"ddu.040" : ERRORGOTO 1719 1295 PRINT AT(23,0,40);AT(21,0,45);HEX(0204020E);"(Execution Cancelled)";HEX(0 F); 1300 IF VAL(STR(K9$,7,1))<1OR VAL(STR(K9$,8,1))<8OR STR(K9$,7,1)=" "OR STR(K9$ ,8,1)=" "THEN 1305 : IF STR(K9$,VAL(STR(K9$,7,1)),8)<>" "THEN 1310 1305 C4$="@MENU " : GOTO 1315 1310 C4$=STR(K9$,VAL(STR(K9$,7,1)),8) : A(1)=VAL(STR(K9$,7,1)) : A(2)=VAL(STR(K9$,8,1)) : MAT COPY K9$<A(1)+8,A(2)-8>TO K9$<A(1),A(2)-8> : STR(K9$,A(1)+A(2)-8,8)="@MENU" 1315 COM CLEAR C : LOAD TC4$ 1560 B7$(1)=C1$(1) : B7$(2)=C1$(2) : GOSUB '141(B7$(),1,"CTL") : IF M<>0THEN GOTO 1665 : DATA LOAD DC OPEN T#0,"DD.CNTRL" : ERRORGOTO 1719 1590 DSKIP #0,1S 1595 DATA LOAD DC #0,K1$,D1$ : ERRORGOTO 1719 1600 IF END THEN 1650 : IF STR(K1$,,2)=HEX(FFFF)THEN 1595 : IF STR(K1$,2,1)=HEX(20)THEN F1=1 : ELSE F1=2 : MAT COPY D1$TO K8$() : GOSUB '142(K1$,60,F1) : IF M<>0THEN GOTO 1665 : GOTO 1595 1650 GOSUB '147 : IF M=0THEN 1705 1655 PRINT AT(23,1,40);HEX(0204020E07);"ERROR on CLOSE Dictionary Files";HEX(0 F) : GOTO 1705 1665 PRINT HEX(03);AT(5,0);HEX(07020404000E);"Error in processing Dictionary F iles" : PRINT HEX(020402000E) : PRINT "Processing will be terminated" : PRINT HEX(0E);"RETURN CODE =";M : PRINT "Press CANCEL/EDIT ";HEX(0F) 1690 KEYIN K1$ : IF K1$<>HEX(F0)THEN 1690 : GOSUB '147 : IF M<>0THEN 1655 1705 RETURN 1715 PRINT AT(23,1,40);HEX(0204020E07);"Unable to initilaize on this Surface"; HEX(0F); : GOTO 1110 1719 M=ERR 1720 PRINT HEX(03);AT(5,0);HEX(07020404000E);"Disk error has occurred - code i s: ";M : PRINT HEX(020402000E);"Processing will be terminated" : PRINT "Press CANCEL/EDIT";HEX(0F) 1725 KEYIN B1$ : IF B1$<>HEX(F0)THEN 1725 : GOTO 1300 2005 DEFFN'88(C3,C4,C2,C5,C6) : B0=INT(C3*C2) : B8=4+40+C5*INT(C3*INT(C2*249/C6)/INT(C5*249/C4)) : B1=INT(B0+B8) 2020 RETURN 9999 % SCRATCH T "DDU.INT": SAVE T() "DDU.INT": SCRATCH T "DDU.INIT": SAVE <SR>T() "DDU.INIT":PRINT: PRINT"'DDU.INT' and 'DDU.INIT' updated on sele cted disk"