Xref: utzoo comp.os.msdos.programmer:3583 comp.sys.ibm.pc.misc:6893
Path: utzoo!mnetor!tmsoft!torsqnt!news-server.csri.toronto.edu!cs.utexas.edu!uunet!isis!ebergman
From: ebergman@isis.cs.du.edu (Eric Bergman-Terrell)
Newsgroups: comp.os.msdos.programmer,comp.sys.ibm.pc.misc
Subject: Re: Turbo Pascal Keyboard Scanning
Message-ID: <1991Feb25.151330.15356@isis.cs.du.edu>
Date: 25 Feb 91 15:13:30 GMT
References: <1991Feb21.003344.13013@contact.uucp>
Reply-To: ebergman@isis.UUCP (Eric Bergman-Terrell)
Distribution: na
Organization: Math/CS, University of Denver
Lines: 24


How about:

function key : char;

var
  ch : char;

begin 

  ch := chr(0);

  if keypressed
    then ch := readkey;

  key := ch;

end;


Is that what you have in mind?


Terrell