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