Listing of file='DDA.ERR ' on disk='vmedia/701-2720C.wvd.zip'
# Sector 533, program filename = 'DDA.ERR'
7940 DEFFN'160(M4,M1$(1),M1$(2))
7941 PRINT HEX(020402000E);
: PRINT AT(22,0,160);HEX(07);
: IF M<80THEN 7945
: PRINT "Disk Error (";M;") occurred while accessing definitions";
: GOTO 7955
7945 IF M<>43THEN 7947
: PRINT "Program has not been properly initialized";
: GOTO 7955
7947 IF M<70THEN 7954
: ON M-69GOTO 7949,7950,7954,7954,7954,7954,7951,7952,7954,7953
7949 PRINT "Definition file is currently being reorganized";
: GOTO 7955
7950 PRINT "Definition file is not on the specified device";
: GOTO 7955
7951 PRINT "Definition file is full or requires reorganization";
: GOTO 7955
7952 PRINT "Definition file is already in use by this user id.";
: GOTO 7955
7953 PRINT "User list for Definition file is full";
: GOTO 7955
7954 PRINT "Software error (";M;") occurred while accessing definitions";
: GOTO 7955
7955 PRINT AT(23,0);" At location ";M1$(2);", In module ";M1$(1);" - ";"Press
CANCEL/EDIT to exit";
7956 KEYIN I8$
: IF STR(I8$,1,1)=HEX(F0)THEN 7957
: PRINT HEX(07);
: GOTO 7956
7957 IF M4<>0AND M<>77THEN GOSUB '156("AL")
: PRINT AT(22,0,160);HEX(0F);
: RETURN