ChipMaster
/
bwBASIC
1
0
Fork 0
Code Issues 22 Pull Requests 0 Releases 17 Wiki Activity
ChipMaster's bwBASIC This also includes history going back to v2.10. *WARN* some binary files might have been corrupted by CRLF.
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
11 Commits
3 Branches
4.5 MiB
 
 
 
 
 
 
Tree: 5a220d5b6b
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from '5a220d5b6b'
${ noResults }
bwBASIC/NBS2X/E057.BAS

21 lines
432 B
Raw Blame History 

  1. 100 REM Purpose: Verify ON ERROR GOTO is local to FUNCTION/SUB

  2. 110 REM  Author: Howard Wulf, AF5NE

  3. 120 REM    Date: 2015-02-05

  4. 130 REM

  5. 140 FUNCTION tom()

  6. 150 ON ERROR GOTO HELL

  7. 160 ERROR 1

  8. 170 PRINT "*** TEST FAILED ***"

  9. 180 STOP

  10. 190 HELL:

  11. 200 PRINT "*** TEST PASSED ***"

  12. 210 END FUNCTION

  13. 220 ON ERROR GOTO MAINHELL

  14. 240 tom

  15. 250 GOTO 900

  16. 260 MAINHELL:

  17. 270 PRINT "*** TEST FAILED ***"

  18. 280 STOP

  19. 900 PRINT "*** TEST PASSED ***"

  20. 999 END