initial commit
This commit is contained in:
commit
60db522e87
107 changed files with 36924 additions and 0 deletions
12
tests/readchartest.pas
Normal file
12
tests/readchartest.pas
Normal file
|
|
@ -0,0 +1,12 @@
|
|||
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.
|
||||
Loading…
Add table
Add a link
Reference in a new issue