From 6c5384139de851d0df67e0015ca30569e896065e Mon Sep 17 00:00:00 2001
From: Svjatoslav Agejenko <svjatoslav@svjatoslav.eu>
Date: Wed, 20 Aug 2025 01:25:19 +0300
Subject: [PATCH] Better code readability

---
 Games/Pomppu Paavo.bas | 34 +++++++++++++++++-----------------
 1 file changed, 17 insertions(+), 17 deletions(-)

diff --git a/Games/Pomppu Paavo.bas b/Games/Pomppu Paavo.bas
index cd68f6b..3f9fb67 100755
--- a/Games/Pomppu Paavo.bas	
+++ b/Games/Pomppu Paavo.bas	
@@ -80,13 +80,13 @@ DIM SHARED uksm(50)
 
 DIM SHARED kuikiir
 DIM SHARED vas7$
-DIM SHARED par7$
+DIM SHARED rightArrowKey$
 DIM SHARED ule7$
 DIM SHARED all7$
-vas7$ = CHR$(0) + "K"
-par7$ = CHR$(0) + "M"
-ule7$ = CHR$(0) + "H"
-all7$ = CHR$(0) + "P"
+leftArrowKey$ = CHR$(0) + "K"
+rightArrowKey$ = CHR$(0) + "M"
+upArrowKey$ = CHR$(0) + "H"
+downArrowKey$ = CHR$(0) + "P"
 remainingLives = 10
 SCREEN 1
 currentLevelNumber = 1
@@ -296,12 +296,12 @@ IF terrainGrid((a + 30) \ 20, (b + 30) \ 20) = "u" THEN a = uks3 + 10: b = uks4:
 IF terrainGrid((a + 30) \ 20, (b + 30) \ 20) = "U" THEN a = uks1 + 10: b = uks2: eda = 0
 WEND
 a$ = kbd$: kbd$ = ""
-IF a$ = par7$ THEN eda = eda + 1: IF eda > 3 THEN eda = 3: r = 0 ELSE IF lke > 10 THEN eda = 5
-IF a$ = par7$ THEN IF sipa = 1 THEN sipp = 1:  ELSE sipp = 2
-IF a$ = vas7$ THEN IF sipa = 1 THEN sipp = 10:  ELSE sipp = 20
-IF a$ = vas7$ THEN eda = eda - 1: IF eda < -3 THEN eda = -3: r = 0 ELSE IF lke > 10 THEN eda = -5
-IF a$ = ule7$ AND lk < 10 THEN all = all - 5: lk = 20: r1 = 0: sipp = 3
-IF a$ = all7$ THEN all = all + 1
+IF a$ = rightArrowKey$ THEN eda = eda + 1: IF eda > 3 THEN eda = 3: r = 0 ELSE IF lke > 10 THEN eda = 5
+IF a$ = rightArrowKey$ THEN IF sipa = 1 THEN sipp = 1:  ELSE sipp = 2
+IF a$ = leftArrowKey$ THEN IF sipa = 1 THEN sipp = 10:  ELSE sipp = 20
+IF a$ = leftArrowKey$ THEN eda = eda - 1: IF eda < -3 THEN eda = -3: r = 0 ELSE IF lke > 10 THEN eda = -5
+IF a$ = upArrowKey$ AND lk < 10 THEN all = all - 5: lk = 20: r1 = 0: sipp = 3
+IF a$ = downArrowKey$ THEN all = all + 1
 IF a$ = "/" THEN a = 2: b = 50: currentLevelNumber = currentLevelNumber + 1: loadLevel currentLevelNumber: siie = 1: siie1 = 1
 IF a$ = "+" THEN a = 2: b = 50: currentLevelNumber = currentLevelNumber + 5: loadLevel currentLevelNumber: siie = 1: siie1 = 1
 IF a$ = "q" THEN END
@@ -384,12 +384,12 @@ IF terrainGrid((a + 30) \ 20, (b + 30) \ 20) = "u" THEN a = uks3 + 5: b = uks4:
 IF terrainGrid((a + 30) \ 20, (b + 30) \ 20) = "U" THEN a = uks1 + 5: b = uks2: eda = 0
 WEND
 a$ = kbd$: kbd$ = ""
-IF a$ = par7$ THEN eda = eda + 1: IF eda > 3 THEN eda = 3: r = 0 ELSE IF lke > 10 THEN eda = 5
-IF a$ = par7$ THEN IF sipa = 1 THEN sipp = 1:  ELSE sipp = 2
-IF a$ = vas7$ THEN IF sipa = 1 THEN sipp = 10:  ELSE sipp = 20
-IF a$ = vas7$ THEN eda = eda - 1: IF eda < -3 THEN eda = -3: r = 0 ELSE IF lke > 10 THEN eda = -5
-IF a$ = ule7$ AND lk < 10 THEN all = all - 5: lk = 20: r1 = 0: sipp = 3
-IF a$ = all7$ THEN all = all + 1
+IF a$ = rightArrowKey$ THEN eda = eda + 1: IF eda > 3 THEN eda = 3: r = 0 ELSE IF lke > 10 THEN eda = 5
+IF a$ = rightArrowKey$ THEN IF sipa = 1 THEN sipp = 1:  ELSE sipp = 2
+IF a$ = leftArrowKey$ THEN IF sipa = 1 THEN sipp = 10:  ELSE sipp = 20
+IF a$ = leftArrowKey$ THEN eda = eda - 1: IF eda < -3 THEN eda = -3: r = 0 ELSE IF lke > 10 THEN eda = -5
+IF a$ = upArrowKey$ AND lk < 10 THEN all = all - 5: lk = 20: r1 = 0: sipp = 3
+IF a$ = downArrowKey$ THEN all = all + 1
 IF a$ = "/" THEN a = 2: b = 50: currentLevelNumber = currentLevelNumber + 1: loadLevel currentLevelNumber: siie = 1: siie1 = 1
 IF a$ = "+" THEN a = 2: b = 50: currentLevelNumber = currentLevelNumber + 5: loadLevel currentLevelNumber: siie = 1: siie1 = 1
 IF a$ = "q" THEN END
-- 
2.20.1