image of READY prompt

Wang2200.org

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