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 / onerrlbl.bas < prev    next >
BASIC Source File  |  1993-11-09  |  392b  |  13 lines
  1. rem onerrlbl.bas -- test bwBASIC ON ERROR GOSUB statement with label
  2. print "Test bwBASIC ON ERROR GOSUB statement"
  3. on error gosub handler
  4. print "The next line will include an error"
  5. if d$ = 78.98 then print "This should not print"
  6. print "This is the line after the error"
  7. end
  8. handler:
  9. print "This is the error handler"
  10. print "The error number is ";err
  11. print "The error line   is ";erl
  12. return
  13.