Listing of file='ddu.005e' on disk='vmedia/701-2720C.wvd.zip'
# Sector 805, program filename = 'ddu.005e'
1000 % LABEL - START OF PROGRAM
1055 COM K8$(100)1
: PRINT AT(21,0,);HEX(020402000F);
: ON D0GOTO 1100,1150,1200,1250
: PRINT AT(23,0,);HEX(0E07);"Error, ";D0;" occurred during conversion of ID
EAS-2 file definition";HEX(0F);
: GOTO 1300
1100 PRINT AT(23,0,);HEX(0E07);"Error, ";M;" on access to an IDEAS-2 control f
ile";HEX(0F);
: GOTO 1300
1150 PRINT AT(23,0,);HEX(0E07);"Error, ";VAL(R9$);" while selecting definition
access software";HEX(0F);
: GOTO 1300
1200 GOSUB '140(1,"160")
: IF R9$<>HEX(00)THEN 1100
: LOAD T<R9>R9$()7050,7999BEG 1215
1215 GOSUB '160(1,C9$(1),C9$(2))
: GOTO 1350
1250 PRINT AT(23,0,);HEX(0E07);"Invalid index definition found";HEX(0F);
: GOTO 1300
1300 PRINT AT(22,51);"CANCEL/EDIT - exit";
1305 KEYIN J8$
: IF STR(J8$,,1)=HEX(F0)THEN 1350
: PRINT HEX(07);
: GOTO 1305
1350 C5$=C3$
: COM CLEAR J8$
: LOAD TC5$