home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / lifeos2.zip / LIFE-1.02 / TESTS / IN / ABORTHOO.IN next >
Text File  |  1996-06-04  |  65b  |  4 lines
  1. setq(aborthook,foo)?
  2. foo :- write("I'm outta here!"), nl.
  3. abort?
  4.