image of READY prompt

Wang2200.org

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