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