Better code readability

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