Uses MyCrt;

Var
  c : Char;

Begin
{  While not(KeyPressed) do Begin End;
  write(ord(ReadKey), KeyPressed);}

  While c<>#27 do
  Begin
    c:=ReadKey;
    If c=#0 then Write('+',Ord(ReadKey),#13) else Write(c+'  '+#13);
  End;
END.