Příklady - Zjištění kódů kláves

Příklad zjištění kódů kláves

repeat
  while _InKey = 0 do endwhile       -- čeká na stisk klávesy --
  Printup(_LastKey)                  -- zobrazí její kód --
until False;