Listing of file='ddu.005d' on disk='vmedia/701-2720C.wvd.zip'
# Sector 786, program filename = 'ddu.005d'
1065 PRINT AT(21,0,);"Deleting old definitions:";
1070 COM J9$1,C5$(4)20,K8$(500)1
: C9$(1)="ddu.005d"
: C5$()=" "
: LOAD T"DDA.DAT"0,0BEG 1090
1090 GOSUB '140(4,"150151155156")
: IF R9$<>HEX(00)THEN 1740
: LOAD T<R9>R9$()7050,7999BEG 1105
1105 GOSUB '150("1 12142 2324283 3233344 4243")
: C9$(2)="Open all"
: IF M<>0THEN 1730
: C5$(1)=C0$(1)
: C5$(2)=" "
1130 GOSUB '151("GT","1",C5$(1)," ","2",C5$(2)," ")
: IF M=64THEN 1520
: C9$(2)="Ffil/rec"
: IF M<>0THEN 1730
: C5$(2)=M5$
: C5$(3)=" "
: D1=0
: PRINT AT(21,27,);"Field ";
1165 GOSUB '151("GT","2",C5$(2)," ","3",C5$(3)," ")
: IF M=64THEN 1375
: C9$(2)="Frec/fld"
: IF M<>0THEN 1730
: D1=D1+1
: PRINT AT(21,33);D1;
: C5$(3)=M5$
: GOSUB '155("3",C5$(3)," ","2",C5$(2)," ")
: C9$(2)="Dfld/rec"
: IF M<>0AND M<>52THEN 1730
: GOSUB '151("GT","3",C5$(3)," ","2"," "," ")
: IF M=64THEN 1230
1215 C9$(2)="Frec/fld"
: IF M<>0THEN 1730
: GOTO 1355
1230 GOSUB '155("3",C5$(3)," "," "," "," ")
: C9$(2)="D-field"
: IF M<>0AND M<>52THEN 1730
: C5$(4)=" "
1250 GOSUB '151("GT","3",C5$(3)," ","3",C5$(4)," ")
: IF M=64THEN 1300
: C9$(2)="Ffld/fld"
: IF M<>0THEN 1730
: C5$(4)=M5$
: GOSUB '155("3",C5$(3)," ","3",C5$(4)," ")
: C9$(2)="Dfl1/fl2"
: IF M<>0AND M<>52THEN 1730
: GOSUB '155("3",C5$(4)," ","3",C5$(3)," ")
: C9$(2)="Dfl2/fl1"
: IF M<>0AND M<>52THEN 1730
: GOTO 1250
1300 C5$(4)=" "
1305 GOSUB '151("GT","3",C5$(3)," ","4",C5$(4)," ")
: IF M=64THEN 1355
: C9$(2)="Ffld/idx"
: IF M<>0THEN 1730
: C5$(4)=M5$
: GOSUB '155("3",C5$(3)," ","4",C5$(4)," ")
: C9$(2)="Dfld/idx"
: IF M<>0AND M<>52THEN 1730
: GOSUB '155("4",C5$(4)," ","3",C5$(3)," ")
: C9$(2)="Didx/fld"
: IF M<>0AND M<>52THEN 1730
: GOTO 1305
1355 GOSUB '155("2",C5$(2)," ","3",C5$(3)," ")
: C9$(2)="Drec/fld"
: IF M<>0AND M<>52THEN 1730
: GOTO 1165
1375 C5$(3)=" "
: D1=0
1380 GOSUB '151("GT","2",C5$(2)," ","4",C5$(3)," ")
: IF M=64THEN 1430
: C9$(2)="Frec/idx"
: IF M<>0THEN 1730
: C5$(3)=M5$
: GOSUB '155("4",C5$(3)," ","2",C5$(2)," ")
: C9$(2)="Didx/rec"
: IF M<>52AND M<>0THEN 1730
: GOSUB '155("2",C5$(2)," ","4",C5$(3)," ")
: C9$(2)="Drec/fld"
: IF M<>0AND M<>52THEN 1730
: GOTO 1380
1430 C5$(3)=" "
: D1=0
: PRINT AT(21,27,);"Field Data Structure ";
1440 GOSUB '151("GT","2",C5$(2)," ","8",C5$(3)," ")
: IF M=64THEN 1485
: C9$(2)="F-CFDS "
: IF M<>0THEN 1730
: D1=D1+1
: PRINT AT(21,48);D1;
: C5$(3)=M5$
: GOSUB '155("2",C5$(2)," ","8",C5$(3)," ")
: C9$(2)="D-CFDS "
: IF M<>52AND M<>0THEN 1730
: GOTO 1440
1485 PRINT AT(21,27,);"Record ";
: GOSUB '155("2",C5$(2)," "," "," "," ")
: C9$(2)="D-record"
: IF M<>0AND M<>52THEN 1730
: GOSUB '155("1",C5$(1)," ","2",C5$(2)," ")
: C9$(2)="Dfil/rec"
: IF M<>0AND M<>52THEN 1730
: GOTO 1130
1520 C5$(3)=" "
: D1=0
: PRINT AT(21,27,);"Index ";
1530 GOSUB '151("GT","1",C5$(1)," ","4",C5$(3)," ")
: IF M=64THEN 1645
: C9$(2)="Ffil/idx"
: IF M<>0THEN 1730
: C5$(3)=M5$
: D1=D1+1
: PRINT AT(21,33);D1;
: GOSUB '155("4",C5$(3)," "," "," "," ")
: C9$(2)="D-index"
: IF M<>0AND M<>52THEN 1730
: C5$(4)=" "
1575 GOSUB '151("GT","4",C5$(3)," ","3",C5$(4)," ")
: IF M=64THEN 1625
: C9$(2)="Find/fld"
: IF M<>0THEN 1730
: C5$(4)=M5$
: GOSUB '155("4",C5$(3)," ","3",C5$(4)," ")
: C9$(2)="Dind/fld"
: IF M<>52AND M<>0THEN 1730
: GOSUB '155("3",C5$(4)," ","4",C5$(3)," ")
: C9$(2)="Dfld/ind"
: IF M<>52AND M<>0THEN 1730
: GOTO 1575
1625 GOSUB '155("1",C5$(1)," ","4",C5$(3)," ")
: C9$(2)="Dfil/ind"
: IF M<>52AND M<>0THEN 1730
: GOTO 1530
1645 PRINT AT(21,27,);"File ";
: GOSUB '155("1",C5$(1)," "," "," "," ")
: C9$(2)="D-file"
: IF M<>0AND M<>52THEN 1730
: GOSUB '156("AL")
: PRINT AT(20,0,);HEX(020402000E07);AT(21,0);"Old IDEAS-2 file successfully
deleted";HEX(0F);
: PRINT AT(22,38);" EXEC/RUN - Create new file definition";
1680 PRINT AT(23,38);"CANCEL/EDIT - Reorganize Definition file";
1685 KEYIN J8$
: IF STR(J8$,,1)<>HEX(82)THEN 1700
: PRINT AT(20,0,);
: COM CLEAR J9$
: LOAD T"ddu.005a"
1700 IF STR(J8$,,1)<>HEX(F0)THEN 1685
: IF STR(K9$,7,2)=" "THEN 1720
: D8=VAL(STR(K9$,7,1))
: D9=VAL(STR(K9$,8,1))
: IF D8<1OR D9<8THEN 1720
: MAT COPY -K9$<D8,D9>TO -K9$<D8+8,D9-8>
: STR(K9$,D8,8)=C3$
1720 COM CLEAR J8$
: LOAD T"ddu.040"
1730 D0=3
: GOTO 1750
1740 D0=2
: GOTO 1750
1750 COM CLEAR J9$
: LOAD T"ddu.005e"1000,2999BEG 1000