slederer/Tridora-CPU
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages 3 Wiki Activity Actions

Initial commit

Browse source
This commit is contained in:
slederer 2024-09-10 23:57:08 +02:00
commit 65ee0cd1f4
80 changed files with 27856 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

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.