home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / xc212os2.zip / SAMPLES / SIMPLE / term.mod < prev    next >
Text File  |  1994-07-22  |  370b  |  16 lines
  1. MODULE term;
  2.  
  3. IMPORT  TERMINATION, STextIO;
  4.  
  5. BEGIN
  6.   IF TERMINATION.IsTerminating() THEN
  7.     STextIO.WriteString("**** error 1 ****"); STextIO.WriteLn;
  8.   END;
  9. FINALLY
  10.   IF TERMINATION.IsTerminating() THEN
  11.     STextIO.WriteString("is terminating..."); STextIO.WriteLn;
  12.   ELSE
  13.     STextIO.WriteString("**** error 2 ****"); STextIO.WriteLn;
  14.   END;
  15. END term.
  16.