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