PROCEDURE INKEY;

VAR ZEICHEN :CHAR;
    STATUS  :INTEGER;

{ Mit der Routine INKEY wirk die INKEY=Funktion von BASIC nachgebildet.
  Wurde  keine  Taste  betaetigt,  keht  die Prozedur mit ASCII = 0 in
  das rufende Programm  zurueck,  andernfalls mit dem ASCII - Code des
  Zeichens.
  Die Variable ASCII ist im rufenden Programm zu deklarieren.        }

BEGIN
    ASCII:=0;
    DELAY(125);
    IF BIOS(1)<>0 THEN
       BEGIN
           ASCII:=BIOS(2);
       END;
END;