image of READY prompt

Wang2200.org

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