home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / E / TFF-A32R.LZX / AmigaE3.2a / Src / Tools / Exceptions / exceptionstest.e < prev   
Encoding:
Text File  |  1992-09-02  |  207 b   |  19 lines
  1. MODULE 'tools/exceptions'
  2.  
  3. PROC main()
  4.   t(0)        -> NOP
  5.   t(10)
  6.   t("MEM")
  7.   t("OPEN")
  8.   t("^C")
  9.   t("BL")
  10.   t("BLA")
  11.   t("BLAA")
  12. ENDPROC
  13.  
  14. PROC t(x) HANDLE
  15.   Throw(x,'bla')
  16. EXCEPT
  17.   report_exception()
  18. ENDPROC
  19.