initial commit

This commit is contained in:
slederer 2024-09-19 14:12:22 +02:00
commit 60db522e87
107 changed files with 36924 additions and 0 deletions

12
tests/readchartest.pas Normal file
View 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.