HEKA EPC 9 - Page 97

Controlling E9Screen EPC9 Installation 97
IF NOT
IOText.Open(
CommandName,
IOFiles.Create + IOFiles.Write + IOFiles.Shared,
CommandFile )
THEN
WriteError( 'Opening command file' );
RETURN FALSE;
END; (* IF *)
Signature := 1;
RETURN TRUE;
END Startup;
PROCEDURE InitModule;
BEGIN
CommandFile.IsOpen := FALSE;
MessageFile.IsOpen := FALSE;
Signature := 1;
LastSignature := -1;
END InitModule;
PROCEDURE Shutdown;
VAR
Dummy : BOOLEAN;
BEGIN
Dummy := WriteToCommandFile( 'Terminate' );
Dummy := IOText.Close( CommandFile );
Dummy := IOText.Close( MessageFile );
InitModule;
END Shutdown;
END UserCommands.