18 lines
333 B
ObjectPascal
18 lines
333 B
ObjectPascal
|
// <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
|
|||
|
|
// <20><><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> Shift+F9 !!!
|
|||
|
|
uses CRT;
|
|||
|
|
|
|||
|
|
begin
|
|||
|
|
SetWindowTitle('<27><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD> (Enter - <20><><EFBFBD><EFBFBD><EFBFBD> <20><><EFBFBD><EFBFBD><EFBFBD><EFBFBD>, Esc - <20><><EFBFBD><EFBFBD><EFBFBD>)');
|
|||
|
|
clrScr;
|
|||
|
|
repeat
|
|||
|
|
var c := ReadKey;
|
|||
|
|
case c of
|
|||
|
|
#13: writeln;
|
|||
|
|
#27: break;
|
|||
|
|
#32..#255: write(c);
|
|||
|
|
#0: c := ReadKey;
|
|||
|
|
end;
|
|||
|
|
until false;
|
|||
|
|
end.
|