Blink cursor while story mode waits for a key.

Platform/Apple/virtual/src/plasma/gameloop.pla

@@ -1613,8 +1613,12 @@ export def getUpperKey()#1
 
   // Now wait for a key, and animate while doing so.
   while ^kbd < 128
-    // pause() will terminate on keypress, returning the count it did
+    if recordMode
-    *seed = *seed + pause(30000)
+      pause(30000)
+    else
+      // pause() will terminate on keypress, returning the count it did
+      *seed = *seed + pause(30000)
+    fin
   loop
   key = recordKey
   return charToUpper(key)

Platform/Apple/virtual/src/plasma/story.pla

@@ -136,6 +136,19 @@ def displayStoryBlock()#1
   return pStoryCur < pStoryEnd
 end
 
+///////////////////////////////////////////////////////////////////////////////////////////////////
+def storyKeyWait()#1
+  byte key
+  while ^kbd < 128
+    ^$3FF5 = ^$3FF5 ^ $7F // lowermost, rightmost byte of screen
+    pause(300)
+  loop
+  ^$3FF5 = 0
+  key = ^kbd & $7F
+  ^kbdStrobe
+  return key
+end
+
 ///////////////////////////////////////////////////////////////////////////////////////////////////
 // Display story and picture on a blank screen, with blanking follow-up
 def _story_display(storyNum)#1
@@ -150,7 +163,7 @@ def _story_display(storyNum)#1
       displayStoryBlock
     fin
 
-    c = getUpperKey
+    c = storyKeyWait
     if c == 27 or pStoryCur >= pStoryEnd; break; fin
 
     clearWindow