All pastes #619428 Raw Edit

Bugged.pas

public text v1 · immutable
·published 2007-07-14 19:00 UTC
rendered paste body
program test_readkey;
uses crt;
var
  c : char;
begin
  c:=readkey;
  case c of
    #8 : writeln('backspace');
    #9 : writeln('tab');
    #13: writeln('enter');
    #27: writeln('escape');
    #32: writeln('space');
    else writeln('other');
  end;
end.