Listing of file='ddu.005l' on disk='vmedia/701-2720C.wvd.zip'
# Sector 810, program filename = 'ddu.005l' 1045 COM B1$1,K8$(500)1,P$(2)120,P1$(120)1,P2$(120)1,C3$,A1$20,A2$20,A3$20,A4$ 4 1050 COM R9$(10)8,R9$1,R9,I9,I9$24,I9(5),I9$(4)8,I8$3 : LOAD T"DDA.VARC"0,0BEG 1060 1060 LOAD T"DDA.DAT"7000,7999BEG 1065 1065 GOSUB '140(3,"150152156") : IF R9$<>HEX(00)THEN 1730 : LOAD T<R9>R9$()7050,7999BEG 1075 1075 IF STR(K9$,1,6)=" "THEN 1750 : IF VAL(STR(K9$,7,1))<1OR VAL(STR(K9$,8,1))<8THEN 1750 : IF STR(K9$,7,2)<>" "THEN 1100 : C3$="@MENU " : GOTO 1130 1100 IF STR(K9$,VAL(STR(K9$,7,1)),8)<>" "THEN 1110 : C3$="@MENU " : GOTO 1115 1110 C3$=STR(K9$,VAL(STR(K9$,7,1)),8) : GOTO 1115 1115 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 " 1130 GOSUB '150("1 12142 2324283 3233344 4243") : IF M<>0THEN 1770 1140 LINPUT "Enter file name within Data Dictionary-",?-A1$ : GOSUB '152("KY","1"," ",A1$," "," "," ") : IF M<>52THEN 1165 : PRINT HEX(07);"File not found - retry"; : GOTO 1140 1165 IF M<>0THEN 1770 : SELECT PRINT /215(132) : PRINT "FILE DEFINITION:" : PRINT : GOSUB '90(97) : GOSUB '152("NX","1","2"," "," "," "," ") : IF M<>0THEN 1770 : A2$=M5$ : PRINT "FILE/RECORD RELATIONSHIP:" : PRINT : GOSUB '90(16) : GOSUB '152("KY","2"," ",A2$," "," "," ") : IF M<>0THEN 1770 : PRINT "RECORD DEFINITION:" : PRINT : GOSUB '90(97) 1245 GOSUB '152("NX","2","3"," "," "," "," ") : IF M=64THEN 1395 : IF M<>0THEN 1770 : A3$=M5$ : PRINT "RECORD/FIELD RELATIONSHIP:" : PRINT : GOSUB '90(16) : GOSUB '152("KY","3"," ",A3$," "," "," ") : IF M<>0THEN 1770 : PRINT "FIELD DEFINITION:" : PRINT : GOSUB '90(57) : GOSUB '152("KY","3","2",A3$," ",A2$," ") : IF M<>0THEN 1770 1315 PRINT "FIELD/RECORD DEFINITION:" : PRINT : GOSUB '90(16) 1330 GOSUB '152("NX","3","3"," "," "," "," ") : IF M=64THEN 1365 : IF M<>0THEN 1770 : PRINT "FIELD/FIELD RELATIONSHIP:" : PRINT : GOSUB '90(16) : GOTO 1330 1365 GOSUB '152("NX","3","4"," "," "," "," ") : IF M=64THEN 1245 : IF M<>0THEN 1770 : PRINT "FIELD/INDEX RELATIONSHIP:" : PRINT : GOSUB '90(21) : GOTO 1365 1395 GOSUB '152("NX","1","4"," "," "," "," ") : IF M=64THEN 1536 : IF M<>0THEN 1770 : A4$=M5$ : PRINT "FILE/INDEX RELATIONSHIP:" : PRINT : GOSUB '90(21) : GOSUB '152("KY","2","4",A2$," ",A4$," ") : IF M<>0THEN 1770 : PRINT "RECORD/INDEX RELATIONSHIP:" : PRINT : GOSUB '90(21) : GOSUB '152("KY","4","2",A4$," ",A2$," ") : IF M<>0THEN 1770 1465 PRINT "INDEX/RECORD RELATIONSHIP:" : PRINT : GOSUB '90(21) : GOSUB '152("KY","4"," ",A4$," "," "," ") : IF M<>0THEN 1770 : PRINT "INDEX DEFINITION:" : PRINT : GOSUB '90(113) 1505 GOSUB '152("NX","4","3"," "," "," "," ") : IF M=64THEN 1395 : IF M<>0THEN 1770 : PRINT "INDEX/FIELD RELATIONSHIP:" : PRINT : GOSUB '90(21) : GOTO 1505 1536 PRINT "COMMON FIELD DATA STRUCTURE:" 1540 MAT REDIM K8$(500)1 : GOSUB '152("NX","2","8"," "," "," "," ") : IF M=64THEN 1630 : IF M<>0THEN 1770 : MAT REDIM K8$(13)35 : PRINT "NAME:";M5$ : FOR C3=1TO 13 : HEXUNPACKSTR(K8$(C3),1,35)TO P$() : C5=0 : FOR C4=1TO 70STEP 2 : C5=C5+1 : P1$(C5)=STR(P$(),C4,1) : P2$(C5)=STR(P$(),C4+1,1) : NEXT C4 1607 $TRAN(K8$(C3),HEX(200120022003200420052006200720082009200A200B200C200D))R : PRINT " ASCII:";K8$(C3) : PRINT " HEX:";STR(P1$(),1,35) : PRINT " ";STR(P2$(),1,35) : NEXT C3 : GOTO 1540 1630 SELECT PRINT /005(80) : GOSUB '156("AL") 1640 C5$=C3$ 1645 COM CLEAR B1$ : LOAD TC5$ 1655 DEFFN'90(L) : HEXUNPACKSTR(K8$(),1,L)TO P$() : D=0 : FOR D1=1TO (L*2)STEP 2 : D=D+1 : P1$(D)=STR(P$(),D1,1) : P2$(D)=STR(P$(),D1+1,1) : NEXT D1 : $TRAN(K8$(),HEX(200120022003200420052006200720082009200A200B200C200D))R : PRINT " KEY: ";STR(M2$,1,20);STR(M5$,1,20) : PRINT " ASCII RECORD: ";STR(K8$(),1,L) 1705 PRINT " HEX. RECORD: ";STR(P1$(),1,L) : PRINT " ";STR(P2$(),1,L) : PRINT : RETURN 1730 SELECT PRINT /005(80) : PRINT AT(23,0,);HEX(07);"ERROR OCCURRED DURING SOFTWARE SELECTION" : GOTO 1640 1750 SELECT PRINT /005(80) : PRINT AT(23,0,);HEX(07);"INVALID COMMON INFO. BUFFER" : C5$="@MENU" : GOTO 1645 1770 SELECT PRINT /005(80) : GOSUB '140(1,"160") : IF R9$<>HEX(00)THEN 1730 : LOAD T<R9>R9$()7050,7999BEG 1790 1790 GOSUB '160(1,"ddu.005l"," ") : GOTO 1640