procedure Inkey;

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

Begin
  delay(50);
  if (bios(1)<>ord(NULL)) then Auswahl:=upcase(char(bios(2)))
                          else Auswahl:=NULL;
End;