Code:
if ischarwaiting() then 
      name = Inkey() 
      If Name = 1 Then
         xxxxxx 
      endif 
endif
Bei der gebufferten Variante mußt du immer erst schauen, ob überhaupt was angekommen ist.

Bemerkung: chr(1) = 1