home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #6 / amigamamagazinepolishissue1998.iso / coders / jËzyki_programowania / amigae / e_v3.2a / src / tools / exceptions / exceptionstest.e < prev   
Text File  |  2001-03-31  |  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.