home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib38b.dsk / VERIFY.DEMO.bas < prev   
BASIC Source File  |  2023-02-26  |  644b  |  13 lines

  1. 10 D$ =  CHR$(4)
  2. 20  ONERR  GOTO 100
  3. 30  INPUT "NAME OF DATA FILE ";F$
  4. 40  PRINT D$;"VERIFY";F$
  5. 60  END 
  6. 100 Y =  PEEK(222): REM  READ ERROR CODE
  7. 110  IF Y = 6  THEN  PRINT "THERE IS NO FILE BY THAT NAME ON": PRINT "THIS DISK. OK TO CREATE ONE?": GOTO 200
  8. 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
  9. 130  POKE 216,0: REM  RESET THE ERROR FLAG
  10. 140  PRINT "PROGRAM TERMINATED BY ERROR."
  11. 150  END 
  12. 200  PRINT : PRINT "(ROUTINE TO GET RESPONSE AND CONTINUE.)": END 
  13. 300  PRINT : PRINT "(ROUTINE TO DELETE FILE, CHANGE DISK, ": PRINT "AND TRY AGAIN.)": END