Listing of file='ddu.048' on disk='vmedia/701-2720C.wvd.zip'
# Sector 946, program filename = 'ddu.048'
1030 COM K9$124,C1$1,C3$8,D0(11),D9$48,C1$(2)4,C2$(2)4,C3$(2)4,C4$(2)4,C5$(2)2
,C6$(2)4,C7$(2)4,C8$(2)4,C9$(2)2,C1,C2,C3,C4,C5,C6,C7,C8,C9,T1$(100)1,S0$
(1)1
1035 LOAD T"SE.SUBS"3800,4000BEG 1037
1037 PRINT HEX(03);
: GOSUB '128("Definition File Utilities - Statistics",1,99,20)
: PRINT AT(1,0);BOX(0,80);AT(20,0);BOX(0,80);
: GOSUB '128("(In Progress)",21,1,20)
: IF STR(K9$,1,6)=" "THEN 1360
: IF VAL(STR(K9$,7,1))<1OR VAL(STR(K9$,8,1))<8THEN 1360
: IF STR(K9$,7,2)<>" "THEN 1095
: C3$="@MENU "
: GOTO 1120
1095 IF STR(K9$,VAL(STR(K9$,7,1)),8)<>" "THEN 1105
: C3$="@MENU "
: GOTO 1110
1105 C3$=STR(K9$,VAL(STR(K9$,7,1)),8)
: GOTO 1110
1110 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 "
1120 SELECT #1<STR(K9$,4,3)>
: DATA LOAD DC OPEN T#1,"DD.DEF"
: ERRORGOTO 1385
1135 DATA LOAD DC #1,D0(),D9$
: ERRORGOTO 1385
1137 GOSUB 1505
: CONVERT C1TO C1$(1),(####)
: CONVERT C2TO C2$(1),(####)
: CONVERT C3TO C3$(1),(####)
: CONVERT C4TO C4$(1),(####)
: CONVERT C5TO C5$(1),(##)
: CONVERT C6TO C6$(1),(####)
: CONVERT C7TO C7$(1),(####)
: CONVERT C8TO C8$(1),(####)
: CONVERT C9TO C9$(1),(##)
: DATA LOAD DC OPEN T#1,"DD.REL"
: ERRORGOTO 1385
1180 DATA LOAD DC #1,D0(),D9$
: ERRORGOTO 1385
1185 GOSUB 1505
: CONVERT C1TO C1$(2),(####)
: CONVERT C2TO C2$(2),(####)
: CONVERT C3TO C3$(2),(####)
: CONVERT C4TO C4$(2),(####)
: CONVERT C5TO C5$(2),(##)
: CONVERT C6TO C6$(2),(####)
: CONVERT C7TO C7$(2),(####)
: CONVERT C8TO C8$(2),(####)
: CONVERT C9TO C9$(2),(##)
1235 PRINT AT(20,0,);
: GOSUB '100(HEX(F8)," ")
: IF R1=0THEN 1450
: PRINT HEX(07);
: GOTO 1235
1360 PRINT AT(20,0,);
: GOSUB '128("Program not properly initialized",99,0,20)
: C3$="@MENU "
: GOTO 1425
1385 PRINT AT(20,0,);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 1425
1425 GOSUB '128("CANCEL/EDIT - Exit",23,51,0)
1430 KEYIN A4$
: IF STR(A4$,1)=HEX(F0)THEN 1450
: PRINT HEX(07);
: GOTO 1430
1450 C5$=C3$
: COM CLEAR C1$
: LOAD TC5$
1505 C1=INT((D0(7)-D0(1))/D0(6))
: C2=D0(2)
: C3=SGN(D0(4))*(D0(4)-D0(3)+1)
: C4=C1-C2-C3
: C5=ROUND(((100*(C4/C1)),0)
: C6=D0(11)
: C7=D0(8)
: C8=C6-C7
: C9=ROUND(((100*(C8/C6)),0)
: RETURN
2000 DEFFN'100(S9$,S0$)
: RESTORE LINE2095
: GOSUB '129("DATA",0)
: T9=0
: FOR T4=1TO 18
: ON T4GOSUB 2005,2010,2015,2020,2025,2030,2035,2040,2045,2050,2055,2060,20
65,2070,2075,2080,2085,2090
: NEXT T4
: IF POS(S9$=F8)>0THEN GOSUB '130(24,80,1," "," ",S0$," "," 3 9")
: RETURN
2005 GOSUB '127(07,46,04,01,01,01,1,C1$(1),"......7..A")
: RETURN
2010 GOSUB '127(07,62,04,01,01,01,1,C1$(2),"......7..A")
: RETURN
2015 GOSUB '127(08,46,04,01,01,01,1,C2$(1),"......7..A")
: RETURN
2020 GOSUB '127(08,62,04,01,01,01,1,C2$(2),"......7..A")
: RETURN
2025 GOSUB '127(09,46,04,01,01,01,1,C3$(1),"......7..A")
: RETURN
2030 GOSUB '127(09,62,04,01,01,01,1,C3$(2),"......7..A")
: RETURN
2035 GOSUB '127(10,46,04,01,01,01,1,C4$(1),".........A")
: RETURN
2040 GOSUB '127(10,62,04,01,01,01,1,C4$(2),".........A")
: RETURN
2045 GOSUB '127(11,48,02,01,01,01,1,C5$(1),".........A")
: RETURN
2050 GOSUB '127(11,64,02,01,01,01,1,C5$(2),".........A")
: RETURN
2055 GOSUB '127(14,46,04,01,01,01,1,C6$(1),"......7..A")
: RETURN
2060 GOSUB '127(14,62,04,01,01,01,1,C6$(2),"......7..A")
: RETURN
2065 GOSUB '127(15,46,04,01,01,01,1,C7$(1),"......7..A")
: RETURN
2070 GOSUB '127(15,62,04,01,01,01,1,C7$(2),"......7..A")
: RETURN
2075 GOSUB '127(16,46,04,01,01,01,1,C8$(1),".........A")
: RETURN
2080 GOSUB '127(16,62,04,01,01,01,1,C8$(2),".........A")
: RETURN
2085 GOSUB '127(17,48,02,01,01,01,1,C9$(1),".........A")
: RETURN
2090 GOSUB '127(17,64,02,01,01,01,1,C9$(2),".........A")
: RETURN
2095 DATA 04,42,00,"------- Definition file ------"
: DATA 05,43,00,"Definitions"
: DATA 05,58,00,"Relationships"
: DATA 07,07,00,"Total key blocks allocated:"
: DATA 08,07,00,"Number of sorted key blocks used:"
: DATA 09,07,00,"Number of overflow key blocks used:"
2101 DATA 10,11,00,"Total key blocks available:"
: DATA 11,11,00,"Percent of key area available:"
: DATA 11,51,00,"%"
: DATA 11,67,00,"%"
: DATA 14,07,00,"Total data blocks allocated:"
: DATA 15,07,00,"Number of data blocks used:"
: DATA 16,11,00,"Total data blocks available:"
2108 DATA 17,11,00,"Percent of data area available:"
: DATA 17,51,00,"%"
: DATA 17,67,00,"%"
: DATA 23,58,00,"CANCEL/EDIT - Exit"
: DATA 06,42,99,HEX(000C)
: DATA 06,57,99,HEX(000E)
: DATA 16,45,99,HEX(0005)
: DATA 16,61,99,HEX(0005)
: DATA 10,45,99,HEX(0005)
: DATA 10,61,99,HEX(0005)
: DATA 0,0,0," "