home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Format CD 5
/
amigaformatcd05.iso
/
mui
/
developer
/
oberon
/
txt
/
demo.mod
< prev
next >
Wrap
Text File
|
1996-08-13
|
310b
|
18 lines
MODULE demo;
IMPORT Dos, Mui;
PROCEDURE fail*( app : Mui.Object; str : ARRAY OF CHAR );
BEGIN
IF app # NIL THEN
Mui.DisposeObject( app );
END;
IF str # "" THEN
IF Dos.PutStr( str )= 0 THEN END;
HALT( 20 );
END;
HALT( 0 );
END fail;
END demo.