procedure wait_for_key;
var       anykey : char;
begin
  anykey := readkey;
  if (anykey = #0) then anykey := readkey;
end;

procedure press_key;
begin
  write('                      Press any key to continue');
  wait_for_key;
  writeln;
end;

function todays_log_name: File_Type;
var  s : File_Type;
begin
  s := SystemDate;
  s[3] := '_';
  s[6] := '_';
  s := s + '.LOG';
  todays_log_name := s;
end;