lang/basic/test/test18.b

   1 110 rem second trap test
   2 120 on error goto 200
   3 130 print 1/o
   4 140 print "division error not catched"
   5 200 print "division error catched", err, erl
   6 210 on error goto 500
   7 220 print "waiting for interrupt"
   8 230 goto 230
   9 500 print "interrupt catched"
  10 510 print "generate error 352"
  11 520 error 352