home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Nibble Magazine
/
nib38b.dsk
/
VERIFY.DEMO.bas
< prev
Wrap
BASIC Source File
|
2023-02-26
|
644b
|
13 lines
10 D$ = CHR$(4)
20 ONERR GOTO 100
30 INPUT "NAME OF DATA FILE ";F$
40 PRINT D$;"VERIFY";F$
60 END
100 Y = PEEK(222): REM READ ERROR CODE
110 IF Y = 6 THEN PRINT "THERE IS NO FILE BY THAT NAME ON": PRINT "THIS DISK. OK TO CREATE ONE?": GOTO 200
120 IF Y = 9 THEN PRINT "THIS DISK IS FULL. PLEASE INSERT A": PRINT "FRESH DATA DISK IN THE DRIVE AND": PRINT "TRY AGAIN.": GOTO 300
130 POKE 216,0: REM RESET THE ERROR FLAG
140 PRINT "PROGRAM TERMINATED BY ERROR."
150 END
200 PRINT : PRINT "(ROUTINE TO GET RESPONSE AND CONTINUE.)": END
300 PRINT : PRINT "(ROUTINE TO DELETE FILE, CHANGE DISK, ": PRINT "AND TRY AGAIN.)": END