image of READY prompt

Wang2200.org

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