Hacker Chronicles 2/HACKER2.BIN/447.NETDOS.PAS

Pascal/Delphi Source File | 1989-07-11 | 431b | 25 lines

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;