[comp.sys.ibm.pc.misc] Turbo Pascal Keyboard Scanning

ebergman@isis.cs.du.edu (Eric Bergman-Terrell) (02/25/91)

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