+ console input (not working well, yet)

git-svn-id: https://svn.freepascal.org/svn/fpc/branches/z80@45130 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 14 insertions, 0 deletions

diff --git a/rtl/zxspectrum/sysfile.inc b/rtl/zxspectrum/sysfile.inc
index a4621ae79f..4475c32639 100644
--- a/rtl/zxspectrum/sysfile.inc
+++ b/rtl/zxspectrum/sysfile.inc
@@ -46,7 +46,21 @@ end;
 
 
 function do_read(h:thandle;addr:pointer;len : longint) : longint;
+var
+  ch: Char;
 begin
+  do_read:=0;
+  while len>0 do
+  begin
+    ch:=ReadKey;
+    PrintChar(ch);
+    PChar(addr)^:=ch;
+    Inc(addr);
+    Inc(do_read);
+    Dec(len);
+    if ch=#13 then
+      break;
+  end;
 end;