From 8d2de93075f07bff3cf46238f02f2907bff6d55a Mon Sep 17 00:00:00 2001
From: CrazyEttin <>
Date: Mon, 19 Sep 2022 01:08:12 +0300
Subject: [PATCH] Adjust the tape reader and punch timings to be more realistic

---
 emulator.pas | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/emulator.pas b/emulator.pas
index c75a8cc..b4cbe57 100644
--- a/emulator.pas
+++ b/emulator.pas
@@ -66,7 +66,7 @@ begin
     else write (Ch);
 end;
 
-//Wait to emulate CPU speed of ~500 KIPS
+//Wait to emulate CPU speed of roughly 500 KIPS
 {$ifndef fast}
 procedure wait;
 begin
@@ -117,6 +117,7 @@ begin
     else if W = $fffd then begin
         {$ifndef fast}
         wait;
+        sleep (1);
         {$endif}
         assign (State, ExpandFileName ('~/.tapes.thingamajig'));
         //Check the reader state
@@ -192,6 +193,7 @@ begin
     else if W = $fffd then begin
         {$ifndef fast}
         wait;
+        sleep (19);
         {$endif}
         assign (State, ExpandFileName ('~/.tapes.thingamajig'));
         //Check the punch state