 unit NewCrt;

 interface

 var
  LowClock  : longint absolute 0:$46C; {ticks since midnight}

  Procedure ReadKeyboard(var Code : word;var Car : char);
  function  KeyEntered:boolean;
  procedure WaitPeriod(Time_Period:word);
  Function  Str_UpCase(Strg : string):string;

 end.
