From f2fe6a19896b0186222683959a05e284b9ca551e Mon Sep 17 00:00:00 2001 From: Martin Haye Date: Mon, 4 Jul 2016 09:00:37 -0700 Subject: [PATCH] Fixed bug with hitting 'M' on New/Load screen. --- Platform/Apple/virtual/src/plasma/diskops.pla | 24 ++++++++++++------- 1 file changed, 15 insertions(+), 9 deletions(-) diff --git a/Platform/Apple/virtual/src/plasma/diskops.pla b/Platform/Apple/virtual/src/plasma/diskops.pla index 9d603869..4874e99a 100644 --- a/Platform/Apple/virtual/src/plasma/diskops.pla +++ b/Platform/Apple/virtual/src/plasma/diskops.pla @@ -288,19 +288,25 @@ def _newOrLoadGame() newGame(); return 1 fin + home() + ^$c053 + ^$25 = 20 + puts("\n N)ew game, or L)oad last game? ") + while TRUE - home() - ^$c053 - ^$25 = 20 - puts("\n N)ew game, or L)oad last game? ") key = rdkey() & $7F - home() - if key > $60; key = key - $20; fin + if key > $60; key = key - $20; fin // convert to upper-case if key == 'N' - newGame(); return 1 - elsif key == 'L' and loadInternal() - return 0 + ^$c052 + newGame() + return 1 + elsif key == 'L' + ^$c052 + if loadInternal() + return 0 + fin fin + ^$c053 beep() loop end