{<<<< KeyStat >>>>}
{ From: COMPLETE TURBO PASCAL by Jeff Duntemann  }
{ Scott, Foresman & Co. 1986  ISBN 0-673-18600-8 }
{ Described in section 20.6 -- Last mod 2/1/86   }
{ This KeyStat specific to CP/M-80 }

FUNCTION KeyStat(VAR Ch : Char) : Boolean;

BEGIN
  Ch := Chr(BDOS(6,255));
  KeyStat := Ch <> Chr(0)
END;
