DEFINITION MODULE Logfile;

EXPORT QUALIFIED LogOn, LogOff, NoWrite;

PROCEDURE LogOn(fn: ARRAY OF CHAR);
PROCEDURE LogOff;
PROCEDURE NoWrite(ch: CHAR);
    (* installiere "NoWrite" als "default" in der Initialisierung *)
    (* des rufenden Programsm und benutze eine "non DOS output    *)
    (* procedure" zur Geschwindigkeitssteigerung.                 *)

END Logfile.
