🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: comp.os.msdos.programmer
Article #4875

Re: Turbo Pascal Keyboard Scanning

#4875
From: Eric Bergman-Terrell
Date: Mon, 25 Feb 1991 15:13
24 lines
724 bytes
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
Technical Details
Message-ID: <1991Feb25.151330.15356@isis.cs.du.edu>
Path: arc1-ca.pugleaf.net!utzoo!mnetor!tmsoft!torsqnt!news-server.csri.toronto.edu!cs.utexas.edu!uunet!isis!ebergman
References: <1991Feb21.003344.13013@contact.uucp>

Show Full Headers
Complete Article Headers
Path: arc1-ca.pugleaf.net!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