home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 3 / goldfish_volume_3.bin / files / dev / e / amigae / src / tools / exceptions / exceptionstest.e < prev   
Text File  |  1992-09-02  |  207b  |  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.