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