Better code readability

diff --git a/Games/Pomppu Paavo/Pomppu Paavo.bas b/Games/Pomppu Paavo/Pomppu Paavo.bas
index f493437..6a2d7ab 100755 (executable)
--- a/Games/Pomppu Paavo/Pomppu Paavo.bas
+++ b/Games/Pomppu Paavo/Pomppu Paavo.bas
@@ -31,8 +31,8 @@ DIM SHARED ruum1(-5 TO 20, -5 TO 20) AS STRING
 DIM SHARED levelData(1 TO 11, 1 TO 10) AS STRING * 15\r
 DIM SHARED levelSkyColor(1 TO 10) AS INTEGER\r
 DIM SHARED currentWorld AS INTEGER\r
-DIM SHARED maailm1 AS INTEGER\r
-DIM SHARED text5(1 TO 15) AS STRING * 15\r
+DIM SHARED previousWorld AS INTEGER\r
+DIM SHARED levelRowData(1 TO 15) AS STRING * 15\r
 DIM SHARED pilv(2100)\r
 DIM SHARED kast(202)\r
 DIM SHARED tellis(202)\r
@@ -63,7 +63,7 @@ DIM SHARED prog
 prog = 1\r
 SCREEN 13\r
 currentWorld = 1\r
-maailm1 = 1\r
+previousWorld = 1\r
 InitializeAllLevelData\r
 1\r
 zpqf = 4\r
@@ -452,15 +452,15 @@ END
 END IF\r
 \r
 FOR a = 1 TO 10\r
-text5(a + 1) = levelData(a, currentWorld)\r
+levelRowData(a + 1) = levelData(a, currentWorld)\r
 NEXT a\r
 \r
 FOR a = 1 TO 10\r
 FOR b = 1 TO 15\r
-IF levelGrid(b, a - 2) = "2" THEN MID$(levelData(a, maailm1), b) = " "\r
+IF levelGrid(b, a - 2) = "2" THEN MID$(levelData(a, previousWorld), b) = " "\r
 NEXT b\r
 NEXT a\r
-maailm1 = currentWorld\r
+previousWorld = currentWorld\r
 \r
 FOR a = -3 TO 20\r
 FOR b = -3 TO 20\r
@@ -480,7 +480,7 @@ PAINT (1, 1), levelSkyColor(currentWorld)
 GET (1, 2)-(20, 21), tuhi\r
 FOR a = 2 TO 10\r
 FOR b = 1 TO 15\r
-c$ = RIGHT$(LEFT$(text5(a), b), 1)\r
+c$ = RIGHT$(LEFT$(levelRowData(a), b), 1)\r
 IF c$ = "-" THEN PUT ((b - 1) * 20, (a - 2) * 20), pilv, OR\r
 IF c$ = "." THEN PUT ((b - 1) * 20, (a - 2) * 20), poosas, OR\r
 IF c$ = "+" THEN PUT ((b - 1) * 20, (a - 2) * 20), puu, OR\r