From 65708581eba2b170c1b26f525812529a1de1a073 Mon Sep 17 00:00:00 2001 From: Svjatoslav Agejenko Date: Sun, 24 Aug 2025 23:08:01 +0300 Subject: [PATCH] Better code readability --- Games/Pomppu Paavo/Pomppu Paavo.bas | 46 ++++++++--------------------- 1 file changed, 12 insertions(+), 34 deletions(-) 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 -- 2.20.1