diff options
Diffstat (limited to 'apps/examples/bastest/tests/test12.bas')
-rw-r--r-- | apps/examples/bastest/tests/test12.bas | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/apps/examples/bastest/tests/test12.bas b/apps/examples/bastest/tests/test12.bas new file mode 100644 index 000000000..ecbb9d138 --- /dev/null +++ b/apps/examples/bastest/tests/test12.bas @@ -0,0 +1,10 @@ +10 on error print "global handler 1 caught error in line ";erl : resume 30 +20 print mid$("",-1) +30 on error print "global handler 2 caught error in line ";erl : end +40 def procx +50 on error print "local handler caught error in line";erl : goto 70 +60 print 1/0 +70 end proc +80 procx +90 print 1 mod 0 + |