image of READY prompt

Wang2200.org

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"