Better code readability

diff --git a/Games/Pomppu Paavo/Pomppu Paavo.bas b/Games/Pomppu Paavo/Pomppu Paavo.bas
index 7017b72..26dcfee 100755 (executable)
--- a/Games/Pomppu Paavo/Pomppu Paavo.bas
+++ b/Games/Pomppu Paavo/Pomppu Paavo.bas
@@ -560,45 +560,23 @@ ELSE
     RenderSpriteFromFile 1, 1, 10, 3, 1\r
     LOCATE 20, 1\r
     PRINT "end"\r
-    FOR a = 1 TO 50\r
-      a$ = INKEY$\r
-    NEXT a\r
-    a$ = INPUT$(1)\r
+    ' Wait for 50 frames before accepting input\r
+    FOR frameCount% = 1 TO 50\r
+      inputBuffer$ = INKEY$\r
+    NEXT frameCount%\r
+    inputBuffer$ = INPUT$(1)\r
     CLS\r
     SCREEN 2\r
     END\r
   CASE 100\r
-    AsciiLevelData(1) = "                "\r
-    AsciiLevelData(2) = "                "\r
-    AsciiLevelData(3) = "                "\r
-    AsciiLevelData(4) = "                "\r
-    AsciiLevelData(5) = "                "\r
-    AsciiLevelData(6) = "                "\r
-    AsciiLevelData(7) = "                "\r
-    AsciiLevelData(8) = "                "\r
-    AsciiLevelData(9) = "                "\r
-    AsciiLevelData(10) = "                "\r
+    FOR lineIndex% = 1 TO 10\r
+      AsciiLevelData(lineIndex%) = "                "\r
+    NEXT lineIndex%\r
   CASE 101\r
-    AsciiLevelData(1) = "                               "\r
-    AsciiLevelData(2) = "                               "\r
-    AsciiLevelData(3) = "                               "\r
-    AsciiLevelData(4) = "                               "\r
-    AsciiLevelData(5) = "                               "\r
-    AsciiLevelData(6) = "                               "\r
-    AsciiLevelData(7) = "                               "\r
-    AsciiLevelData(8) = "                               "\r
-    AsciiLevelData(9) = "                               "\r
-    AsciiLevelData(10) = "                               "\r
-    AsciiLevelData(11) = "                               "\r
-    AsciiLevelData(12) = "                               "\r
-    AsciiLevelData(13) = "                               "\r
-    AsciiLevelData(14) = "                               "\r
-    AsciiLevelData(15) = "                               "\r
-    AsciiLevelData(16) = "                               "\r
-    AsciiLevelData(17) = "                               "\r
-    AsciiLevelData(18) = "                               "\r
-    AsciiLevelData(19) = "                               "\r
-    GraphicsDisplayMode = 2\r
+    FOR lineIndex% = 1 TO 19\r
+      AsciiLevelData(lineIndex%) = "                               "\r
+    NEXT lineIndex%\r
+    GraphicsDisplayMode% = 2\r
   END SELECT\r
 END IF\r
 IF GraphicsDisplayMode = 2 THEN GOTO 124\r