unit Teclado;

interface

const
  CsrIzq = #203;    PagArr = #201;
  CsrDer = #205;    PagAba = #209;
  CsrArr = #200;
  CsrAba = #208;

  F1 = #187; F2 = #188; F3 = #189; F4 = #190; F5 = #191;
  F6 = #192; F7 = #193; F8 = #194; F9 = #195; F10 = #196;

function GetKey: char;

implementation
uses crt;

function GetKey: char;
var
  Car: char;
begin
  Car := ReadKey;
  if Car = #0 then
    GetKey := chr(ord(ReadKey) + 128)
  else
    GetKey := Car;
end;

begin
end.