home *** CD-ROM | disk | FTP | other *** search
/ HyperLib 1997 Winter - Disc 1 / HYPERLIB-1997-Winter-CD1.ISO.7z / HYPERLIB-1997-Winter-CD1.ISO / オンラインウェア / PRG / bwbasic-2.10.sit / bwbasic-2.10 / bwbtest / onerr.bas < prev    next >
BASIC Source File  |  1993-11-09  |  424b  |  13 lines
  1. 10 rem onerr.bas -- test bwBASIC ON ERROR GOSUB statement
  2. 20 print "Test bwBASIC ON ERROR GOSUB statement"
  3. 30 on error gosub 100
  4. 40 print "The next line will include an error"
  5. 50 if d$ = 78.98 then print "This should not print"
  6. 60 print "This is the line after the error"
  7. 70 end
  8. 100 rem Error handler
  9. 110 print "This is the error handler"
  10. 120 print "The error number is ";err
  11. 130 print "The error line   is ";erl
  12. 150 return
  13.