12 lines
181 B
ObjectPascal
12 lines
181 B
ObjectPascal
program readchartest;
|
|
var c:char;
|
|
kbd:file;
|
|
begin
|
|
open(kbd, '%KBD', ModeReadonly);
|
|
while true do
|
|
begin
|
|
read(kbd, c);
|
|
writeln(ord(c));
|
|
end;
|
|
close(kbd);
|
|
end.
|