From 9eb99c4dc50c873b9d4afcc309806057975a577f Mon Sep 17 00:00:00 2001
From: Martin Haye <m1@snyder-haye.com>
Date: Fri, 21 Aug 2015 09:28:57 -0700
Subject: [PATCH] Increment random seed in my keyboard loop.

---
 Platform/Apple/virtual/src/plasma/gameloop.pla | 2 ++
 1 file changed, 2 insertions(+)

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