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$