{ XXXXXXXXXX LOG FUNCTIONS XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX }


  procedure __loginit;
  procedure __logapp(s: string);
  procedure __filapp(fil, s : string);

  procedure __setpurge(b: byte);
  procedure __logpurge;

  function  __recent(s: string): boolean;