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