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