From: Svjatoslav Agejenko <svjatoslav@svjatoslav.eu>
Date: Sun, 24 Aug 2025 20:08:01 +0000 (+0300)
Subject: Better code readability
X-Git-Url: http://www2.svjatoslav.eu/gitweb/?a=commitdiff_plain;h=65708581eba2b170c1b26f525812529a1de1a073;p=qbasicapps.git

Better code readability
---

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