home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 11 / CDACTUAL11.iso / cdactual / demobin / share / os2 / XCO212P / SAMPLES / SIMPLE / TERM.MOD < prev    next >
Encoding:
Text File  |  1994-07-22  |  370 b   |  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.