1: #line 2366 "./lpsrc/flx_tutorial.pak" 2: #import <flx.flxh> 3: 4: proc main 5: { 6: // do something 7: 8: // raise err1 9: err 1; goto resume; 10: 11: // do something else 12: 13: // exception handlers 14: proc err(errno:int) 15: { 16: print "error "; print errno; 17: print " -- aborting"; endl; 18: goto resume; 19: } 20: resume:> 21: print "error handled, continuing"; endl; 22: } 23: