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

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

diff --git a/Games/Pomppu Paavo.bas b/Games/Pomppu Paavo.bas
index 64122de..39bebf3 100755
--- a/Games/Pomppu Paavo.bas	
+++ b/Games/Pomppu Paavo.bas	
@@ -20,7 +20,7 @@ DIM SHARED asciiLevelData(1 TO 20) AS STRING * 31
 DIM SHARED hedgehogY, hedgehogX, secondHedgehogY, secondHedgehogX
 DIM SHARED remainingLives, coinCount
 DIM SHARED uks1, uks2, uks3, uks4
-DIM SHARED maa
+DIM SHARED currentLevelNumber
 DIM SHARED text$(1 TO 1000)
 DIM SHARED pikkus
 DIM SHARED asend(0 TO 34, -10 TO 20) AS STRING * 1
@@ -84,7 +84,7 @@ ule7$ = CHR$(0) + "H"
 all7$ = CHR$(0) + "P"
 remainingLives = 10
 SCREEN 1
-maa = 1
+currentLevelNumber = 1
 REM joonist
 REM END
 GET (1, 1)-(20, 20), tuhi
@@ -284,9 +284,9 @@ siiall = siiall + 1: IF siiall > 2 THEN siiall = 2
 siiall1 = siiall1 + 1: IF siiall1 > 2 THEN siiall1 = 2
 a = a + eda
 b = b + all
-IF a > 297 THEN a = 2: maa = maa + 1: loadLevel maa: siie = 1: siie1 = 1
-IF a < 1 THEN a = 296: IF maa = 1 THEN loadLevel maa:  ELSE maa = maa - 1: loadLevel maa: IF graphicsMode = 2 THEN a = 594
-IF b > 179 THEN remainingLives = remainingLives - 1: displayGameStats: maa = maa - 1: loadLevel maa: b = 100: a = 2: displayGameStats
+IF a > 297 THEN a = 2: currentLevelNumber = currentLevelNumber + 1: loadLevel currentLevelNumber: siie = 1: siie1 = 1
+IF a < 1 THEN a = 296: IF currentLevelNumber = 1 THEN loadLevel currentLevelNumber:  ELSE currentLevelNumber = currentLevelNumber - 1: loadLevel currentLevelNumber: IF graphicsMode = 2 THEN a = 594
+IF b > 179 THEN remainingLives = remainingLives - 1: displayGameStats: currentLevelNumber = currentLevelNumber - 1: loadLevel currentLevelNumber: b = 100: a = 2: displayGameStats
 IF asend((a + 30) \ 20, (b + 30) \ 20) = "u" THEN a = uks3 + 10: b = uks4: eda = 0
 IF asend((a + 30) \ 20, (b + 30) \ 20) = "U" THEN a = uks1 + 10: b = uks2: eda = 0
 WEND
@@ -297,8 +297,8 @@ 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$ = "/" THEN a = 2: b = 50: maa = maa + 1: loadLevel maa: siie = 1: siie1 = 1
-IF a$ = "+" THEN a = 2: b = 50: maa = maa + 5: loadLevel maa: siie = 1: siie1 = 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
 sipa = sipa + 1
 IF sipa = 3 THEN sipa = 1
@@ -372,9 +372,9 @@ siiall = siiall + 1: IF siiall > 2 THEN siiall = 2
 siiall1 = siiall1 + 1: IF siiall1 > 2 THEN siiall1 = 2
 a = a + eda
 b = b + all
-IF a > 594 THEN a = 2: maa = maa + 1: loadLevel maa: siie = 1: siie1 = 1
-IF a < 1 THEN a = 594: IF maa = 1 THEN loadLevel maa:  ELSE maa = maa - 1: loadLevel maa: IF graphicsMode = 1 THEN a = 297
-IF b > 358 THEN remainingLives = remainingLives - 1: displayGameStats: maa = maa - 1: loadLevel maa: b = 100: a = 2: displayGameStats
+IF a > 594 THEN a = 2: currentLevelNumber = currentLevelNumber + 1: loadLevel currentLevelNumber: siie = 1: siie1 = 1
+IF a < 1 THEN a = 594: IF currentLevelNumber = 1 THEN loadLevel currentLevelNumber:  ELSE currentLevelNumber = currentLevelNumber - 1: loadLevel currentLevelNumber: IF graphicsMode = 1 THEN a = 297
+IF b > 358 THEN remainingLives = remainingLives - 1: displayGameStats: currentLevelNumber = currentLevelNumber - 1: loadLevel currentLevelNumber: b = 100: a = 2: displayGameStats
 IF asend((a + 30) \ 20, (b + 30) \ 20) = "u" THEN a = uks3 + 5: b = uks4: eda = 0
 IF asend((a + 30) \ 20, (b + 30) \ 20) = "U" THEN a = uks1 + 5: b = uks2: eda = 0
 WEND
@@ -385,8 +385,8 @@ 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$ = "/" THEN a = 2: b = 50: maa = maa + 1: loadLevel maa: siie = 1: siie1 = 1
-IF a$ = "+" THEN a = 2: b = 50: maa = maa + 5: loadLevel maa: siie = 1: siie1 = 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
 sipa = sipa + 1
 IF sipa = 3 THEN sipa = 1
@@ -938,7 +938,7 @@ asciiLevelData(7) = "p mmmmv   mmmm  "
 asciiLevelData(8) = "mmmmmmmmm mmmmmm"
 asciiLevelData(9) = "                "
 asciiLevelData(10) = ">>>>>>>>>>>>>>>>"
-maa = maa + 1
+currentLevelNumber = currentLevelNumber + 1
 CASE 10
 asciiLevelData(1) = "m.  -          m"
 asciiLevelData(2) = "m  .           m"
@@ -961,7 +961,7 @@ asciiLevelData(7) = "mammm   m1ma  om"
 asciiLevelData(8) = "m1m   mmm1ma o m"
 asciiLevelData(9) = "m        amam om"
 asciiLevelData(10) = "mmmmmmmm<mmammmm"
-maa = maa + 2
+currentLevelNumber = currentLevelNumber + 2
 CASE 11
 asciiLevelData(1) = ">>>>>>>>>>>>>>><"
 asciiLevelData(2) = "> <x           <"
@@ -973,7 +973,7 @@ asciiLevelData(7) = "> <        < <  "
 asciiLevelData(8) = "> <m >m>>m <   >"
 asciiLevelData(9) = ">              <"
 asciiLevelData(10) = ">>>>m<<<<<<<<mm<"
-maa = maa + 2
+currentLevelNumber = currentLevelNumber + 2
 CASE 12
 asciiLevelData(1) = "m     aaaaaaaaam"
 asciiLevelData(2) = "m  -         xmm"
-- 
2.20.1