program fgetp(input, output);
const
  cr  = 13;
  etx = 128;

type
  byte = 0..&FF;

var
  i    : byte;

function fget : byte;
const
  osrdch = &FFE0; { OS get char function. Returns code in A }
                  { A, X and Y on entry are immaterial }
begin
  fget := code0(osrdch,0,0,0) mod &100
end;

begin
  repeat
    i := fget;
    if i=cr then
      writeln
    else
      vdu(i)
  until i=etx
end.
