diff --git a/Platform/Apple/virtual/src/plasma/gameloop.pla b/Platform/Apple/virtual/src/plasma/gameloop.pla
index 988a94ac..00c2bf41 100644
--- a/Platform/Apple/virtual/src/plasma/gameloop.pla
+++ b/Platform/Apple/virtual/src/plasma/gameloop.pla
@@ -6,6 +6,7 @@ const NULL  = 0
 
 ///////////////////////////////////////////////////////////////////////////////////////////////////
 // Fixed memory locations
+const seed          = $4E     // Incremented continuously by montitor's rdkey routine
 const displayEngine = $6000   // main mem (raycaster and tile engine at same location)
 const expandVec     = $2000   // aux mem (only for raycaster)
 const fontEngine    = $E000   // main mem
@@ -749,6 +750,7 @@ end
 def getUpperKey()
   byte key
   while ^keyboard < 128
+    seed = seed+1
   loop
   key = ^keyboard & $7F
   ^keystrobe