Listing of file='ddu.005a' on disk='vmedia/701-2720C.wvd.zip'
# Sector 739, program filename = 'ddu.005a'
1000 % LABEL - START OF PROGRAM
1060 COM J9$1,C5$(249)6,C6$(24)83,D1$48,D8,D9,K8$(2)100
: C9$(1)="ddu.005a"
: PRINT AT(21,0,);HEX(020402000F);"Creating new definitions:";
: LOAD T"DDA.DAT"0,0BEG 1125
1125 LIMITS T#2,C0$(2),C0(1),C0(2),C0(3),C0(4)
: IF C0(4)<>2THEN 1755
: DATA LOAD DA T#2,(C0(1))C4$(),C6$()
: ERRORGOTO 1755
1140 C5$()=STR(C4$(),499,1494)
: GOSUB '140(1,"150")
: IF R9$<>HEX(00)THEN 1765
: LOAD T<R9>R9$()0,0BEG 1165
1165 GOSUB '150("1 12142 2324283 3233344 4243")
: C9$(2)="Open all"
: IF M<>0THEN 1775
: GOSUB '140(1,"153")
: IF R9$<>HEX(00)THEN 1765
: LOAD T<R9>R9$()7050,7999BEG 1195
1195 PRINT AT(21,27,);"File ";
: K8$()=" "
: STR(K8$(),D0(1,1),32)=STR(C4$(),22,32)
: STR(K8$(),D0(1,2),1)="I"
: STR(K8$(),D0(1,3),1)="I"
: STR(K8$(),D0(1,4),8)=C0$(5)
: STR(K8$(),D0(1,5),3)=C1$
: STR(K8$(),D0(1,8),1)=HEX(00)
: CONVERT STR(C4$(),244,5)TO J
: STR(K8$(),D0(1,9),2)=BIN(J,2)
1245 GOSUB '153("RW",K8$(),"1",C0$(1)," "," "," "," ")
: C9$(2)="File"
: IF M<>0THEN 1775
: PRINT AT(21,27,);"Record ";
: K8$()=" "
: STR(K8$(),D0(2,1),32)=STR(C4$(),22,32)
: STR(K8$(),D0(2,2),8)=C0$(1)
: CONVERT STR(C4$(),93,4)TO J
: STR(K8$(),D0(2,3),2)=BIN(J,2)
: STR(K8$(),D0(2,4),2)=STR(K8$(),D0(2,3),2)
1295 CONVERT STR(C4$(),90,3)TO J
: STR(K8$(),D0(2,5),2)=BIN(J,2)
: STR(K8$(),D0(2,6),1)="B"
: GOSUB '153("RW",K8$(),"2",C0$(1)," "," "," "," ")
: C9$(2)="Record"
: IF M<>0THEN 1775
: GOSUB '153("RW"," ","1",C0$(1)," ","2",C0$(1)," ")
: C9$(2)="file/rec"
: IF M<>0THEN 1775
: PRINT AT(21,27,);"Creating Field ";
: D8=0
1380 CONVERT STR(C4$(),90,3)TO D9
: MAT REDIM C6$(249)8
1395 % LABEL - NEXT FIELD DEFINITION
1400 D8=D8+1
: D1$=" "
: IF D8>D9THEN 1740
: IF C6$(D8)=" "THEN 1740
: STR(D1$,1,20)=C0$(1)&"-"&C6$(D8)
: PRINT AT(21,42);D8;
: C8$=STR(C5$(D8),1,2)
: C8$=BOOL8HEX(FFF0)
: ROTATEC(C8$,-4)
: STR(D1$,21,2)=C8$
: C8$=" "
: STR(C8$,1,1)=STR(C5$(D8),2,1)
: STR(C8$,1,1)=BOOL8HEX(0E)
: ROTATEC(STR(C8$,1,1),-1)
: C8=VAL(STR(C8$,1,1))
1485 ON C8GOTO 1495,1490,1495,1500,1500,1500,1505
1490 STR(D1$,23,1)="U"
: GOTO 1515
1495 STR(D1$,23,1)="S"
: GOTO 1515
1500 STR(D1$,23,1)="A"
: GOTO 1515
1505 STR(D1$,23,1)="C"
: GOTO 1515
1515 STR(D1$,24,1)=HEX(00)
: STR(D1$,25,1)=STR(C5$(D8),3,1)
: C8=VAL(STR(C5$(D8),4,1))
: IF C8>0AND C8<250THEN 1545
: STR(D1$,46,2)=HEX(0000)
: GOTO 1565
1545 STR(D1$,26,20)=C0$(1)&"-"&C6$(C8)
: STR(D1$,46,1)=HEX(00)
: STR(D1$,47,1)=STR(C5$(D8),5,1)
1565 C8$=" "
: STR(C8$,1,1)=STR(C5$(D8),6,1)
: STR(C8$,1,1)=BOOL8HEX(07)
: STR(D1$,48,1)=C8$
: K8$()=" "
: STR(K8$(),D0(3,1),40)="Within record, "&C0$(1)
: STR(K8$(),D0(3,2),1)="S"
: STR(K8$(),D0(3,3),2)=HEX(0000)
: STR(K8$(),D0(3,4),1)=STR(D1$,23,1)
: STR(K8$(),D0(3,5),2)=STR(D1$,24,2)
1620 STR(K8$(),D0(3,6),1)=STR(D1$,48,1)
: GOSUB '153("RW",K8$(),"3",STR(D1$,1,20)," "," "," "," ")
: C9$(2)="Field"
: IF M<>0THEN 1775
: GOSUB '153("RW"," ","3",STR(D1$,1,20)," ","2",C0$(1)," ")
: C9$(2)="fld/rec"
: IF M<>0THEN 1775
: K8$()=" "
: STR(K8$(),D0(5,1),2)=STR(D1$,21,2)
: STR(K8$(),D0(5,2),2)=STR(D1$,21,2)
1670 STR(K8$(),D0(5,3),2)=BIN(D8,2)
: STR(K8$(),D0(5,4),1)="A"
: STR(K8$(),D0(5,5),2)=STR(D1$,24,2)
: GOSUB '153("RW",K8$(),"2",C0$(1)," ","3",STR(D1$,1,20)," ")
: C9$(2)="rec/fld"
: IF M<>0THEN 1775
: IF STR(D1$,46,2)=HEX(0000)THEN 1730
: K8$()=" "
: STR(K8$(),D0(7,1),1)=HEX(00)
: STR(K8$(),D0(7,2),2)=STR(D1$,46,2)
1720 GOSUB '153("RW",K8$(),"3",STR(D1$,26,20)," ","3",STR(D1$,1,20)," ")
: C9$(2)="fld/fld"
: IF M<>0THEN 1775
1730 GOTO 1395
1740 % LABEL - END OF FIELD DEFINITIONS - NEXT PROGRAM
1745 COM CLEAR J9$
: LOAD T"ddu.005b"1000,2999BEG 1000
1755 D0=1
: M=ERR
: GOTO 1785
1765 D0=2
: GOTO 1785
1775 D0=3
: GOTO 1785
1785 %LABEL
1795 COM CLEAR J9$
: LOAD T"ddu.005e"1000,2999BEG 1000