home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 10 Tools
/
10-Tools.zip
/
xc212os2.zip
/
SAMPLES
/
SIMPLE
/
halt.mod
< prev
next >
Wrap
Text File
|
1996-01-03
|
376b
|
17 lines
MODULE halt;
IMPORT TERMINATION, STextIO;
BEGIN
IF TERMINATION.HasHalted() THEN
STextIO.WriteString("**** error 1 ****"); STextIO.WriteLn;
END;
HALT;
FINALLY
IF TERMINATION.HasHalted() THEN
STextIO.WriteString("The program was halted."); STextIO.WriteLn;
ELSE
STextIO.WriteString("**** error 2 ****"); STextIO.WriteLn;
END;
END halt.