home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / E / TFF-A32R.LZX / AmigaE3.2a / Src / Guide / except.e < prev    next >
Encoding:
Text File  |  1994-12-13  |  386 b   |  23 lines
  1. ENUM FRED, BARNEY
  2.  
  3. PROC main()
  4.   WriteF('Hello from main\n')
  5.   fred()
  6.   barney()
  7.   WriteF('Goodbye from main\n')
  8. ENDPROC
  9.  
  10. PROC fred() HANDLE
  11.   WriteF(' Hello from fred\n')
  12.   Raise(FRED)
  13.   WriteF(' Goodbye from fred\n')
  14. EXCEPT
  15.   WriteF(' Handler fred: \d\n', exception)
  16. ENDPROC
  17.  
  18. PROC barney()
  19.   WriteF('  Hello from barney\n')
  20.   Raise(BARNEY)
  21.   WriteF('  Goodbye from barney\n')
  22. ENDPROC
  23.