Listing of file='ddu.040' on disk='vmedia/701-2720C.wvd.zip'
# Sector 912, program filename = 'ddu.040' 1035 COM K9$124,C1$1,C3$8 1040 COM K1$(2)8,N0 : COM C0(11),D9$48,C2$3,D3$1,T1$(256)1,S0$(1)1 : LOAD T"SE.SUBS"3800,4000BEG 1060 1060 SELECT PRINT 005(80) : IF STR(K9$,124,1)<>" "THEN 1515 : IF STR(K9$,1,6)=" "THEN 1235 : IF VAL(STR(K9$,7,1))<1OR VAL(STR(K9$,8,1))<8THEN 1235 : IF STR(K9$,7,2)<>" "THEN 1090 : C3$="@MENU " : GOTO 1115 1090 IF STR(K9$,VAL(STR(K9$,7,1)),8)<>" "THEN 1100 : C3$="@MENU " : GOTO 1105 1100 C3$=STR(K9$,VAL(STR(K9$,7,1)),8) : GOTO 1105 1105 C8=VAL(STR(K9$,7,1)) : C9=VAL(STR(K9$,8,1)) : MAT COPY K9$<C8+8,C9-8>TO K9$<C8,C9-8> : STR(K9$,C8+C9-8,8)="@MENU " 1115 SELECT #1<STR(K9$,4,3)> : DATA LOAD DC OPEN T#1,"DD.DEF" : ERRORGOTO 1260 1135 DATA LOAD DC #1,C0(),D9$ : ERRORGOTO 1260 1140 IF C0(9)<>0THEN 1330 1145 IF POS(D9$<>HEX(FF))<>0THEN 1420 : $OPEN #1 : DBACKSPACE #1,BEG : DATA LOAD DC #1,C0(),D9$ : ERRORGOTO 1260 1165 C0(9)=99 : DBACKSPACE #1,BEG : DATA SAVE DC #1,C0(),D9$ : ERRORGOTO 1260 1180 $CLOSE#1 : GOSUB 1620 : GOSUB '128("(In Progress)",22,1,20) : STR(K9$,124,1)=HEX(FF) : K1$(1)="DD.DEF" : K1$(2)="DD.REL" : N0=1 : COM CLEAR C0() : LOAD T"ddu.045" 1235 GOSUB 1620 : PRINT HEX(07); : GOSUB '128("Program not properly intialized",24,1,20) : C3$="@MENU " : GOTO 1305 1260 GOSUB 1620 : PRINT HEX(07); : GOSUB '128("I/O error on access to data dictionary",23,1,20) : GOSUB '128(" Disk error code:",24,1,20) : GOSUB '125(20) : PRINT AT(23,21);ERR; : GOSUB '125(00) : GOTO 1305 1305 GOSUB '128("CANCEL/EDIT - Exit",24,51,0) 1310 KEYIN D3$ : IF STR(D3$,,1)=HEX(F0)THEN 1595 : PRINT HEX(07); : GOTO 1310 1330 GOSUB 1620 : PRINT HEX(07); : GOSUB '128("Definition File is currently in EXCLUSIVE use",22,1,20) : IF C0(9)<>99THEN GOSUB '128(" Copy Utility has not successfully finishe d",23,1,20) : IF C0(9)<>1AND C0(9)<>3THEN GOSUB '128(" '1 - Clear 'Exclusive use'",23,5 0,0) 1350 GOSUB '128("CANCEL/EDIT - Terminate",24,42,0) 1355 KEYIN D3$,,1370 : PRINT HEX(07); : GOTO 1355 1370 IF STR(D3$,,1)=HEX(F0)OR C0(9)=1OR C0(9)=3THEN 1595 : IF STR(D3$,,1)=HEX(01)THEN 1385 : PRINT HEX(07); : GOTO 1355 1385 DBACKSPACE #1,BEG : DATA LOAD DC #1,C0(),D9$ : C0(9)=0 : DBACKSPACE #1,BEG : DATA SAVE DC #1,C0(),D9$ : GOTO 1145 1420 GOSUB 1620 : PRINT HEX(07); : GOSUB '128("Definition file is currently in use",22,1,20) : GOSUB '128(" '1 - Examine In-use Conditions",23,40,0) : GOSUB '128("CANCEL/EDIT - Terminate",24,40,0) 1445 KEYIN D3$ : IF STR(D3$,1,1)=HEX(F0)THEN 1595 : IF STR(D3$,1,1)=HEX(01)THEN 1475 : PRINT HEX(07); : GOTO 1445 1475 DATA SAVE DC CLOSE#1 : IF STR(K9$,7,2)=" "THEN 1505 : D8=VAL(STR(K9$,7,1)) : D9=VAL(STR(K9$,8,1)) : IF D8<1OR D9<8THEN 1505 : MAT COPY -K9$<D8,D9>TO -K9$<D8+8,D9-8> : STR(K9$,D8,8)=C3$ 1505 COM CLEAR C1$ : LOAD T"ddu.035" 1515 IF VAL(STR(K9$,124,1))<>0THEN 1565 : DATA LOAD DC OPEN T#1,"DD.DEF" : ERRORGOTO 1545 1525 DATA LOAD DC #1,C0(),D9$ : ERRORGOTO 1545 1530 C0(9)=0 : DBACKSPACE #1,BEG : ERRORGOTO 1545 1540 DATA SAVE DC #1,C0(),D9$ : ERRORGOTO 1545 1545 GOSUB 1620 : PRINT HEX(07); : GOSUB '128("Definition File successfully reorganized",22,1,20) : GOTO 1305 1565 GOSUB 1620 : GOSUB '128("Definition File reorganization unsuccessful",22,1,20) : LOAD T"DDA.ERR"7000,7999BEG 1580 1580 M=VAL(STR(K9$,124,1)) : GOSUB '160(0,"reorg.","ddu.040") : GOTO 1595 1595 STR(K9$,124,1)=" " : DATA SAVE DC CLOSE#1 : C5$=C3$ : COM CLEAR C1$ : LOAD TC5$ 1620 PRINT HEX(03); : GOSUB '128("Definition File Utilities - Reorganize Definitions",1,99,20) : PRINT AT(1,0);BOX(0,80);AT(20,0);BOX(0,80); : RETURN