home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib32b.dsk / ONERR.EX1.bas < prev    next >
BASIC Source File  |  2023-02-26  |  1KB  |  24 lines
  1. 10  REM  **********************
  2. 20  REM  *     ONERR.EX1      *
  3. 30  REM  *  BY LOREN WRIGHT   *
  4. 40  REM  * COPYRIGHT (C) 1987 *
  5. 50  REM  * BY MICROSPARC, INC *
  6. 60  REM  * CONCORD, MA  01742 *
  7. 70  REM  **********************
  8. 80  ONERR  GOTO 130
  9. 90  HOME : TEXT : VTAB 12: INPUT "FILE NAME: ";NA$
  10. 100  HGR 
  11. 110  PRINT  CHR$(4)"BLOAD"NA$",A$2000"
  12. 120  VTAB 22: PRINT "PRESS RETURN TO CONTINUE";: GET Z$: PRINT : GOTO 90
  13. 130  POKE 216,0:E =  PEEK(222):EL =  PEEK(218) +256 * PEEK(219): CALL  -3288
  14. 140  HOME : TEXT : VTAB 12
  15. 150  IF E = 4  THEN  PRINT "DISK IS WRITE-PROTECTED.": GOTO 220
  16. 160  IF E = 6  THEN  PRINT "FILE NOT FOUND ON THIS DISK": GOTO 220
  17. 170  IF E = 8  THEN  PRINT "I/O ERROR--CHECK DRIVE DOOR": GOTO 220
  18. 180  IF E = 9  THEN  PRINT "DISK FULL": GOTO 220
  19. 190  IF E = 11  OR (E = 16  AND  PEEK(48896) = 76)  THEN  PRINT "ILLEGAL FILE NAME": GOTO 220
  20. 200  IF E = 13  THEN  PRINT "FILE TYPE MISMATCH": GOTO 220
  21. 210  PRINT "ERROR "E" IN LINE "EL
  22. 220  VTAB 22: HTAB 4: PRINT "RETURN TO CONTINUE, ESCAPE TO QUIT";
  23. 230  GET Z$: PRINT : IF Z$ < > CHR$(27) GOTO 80
  24. 240  END