Better code readability

diff --git a/Games/Pomppu Paavo/Pomppu Paavo.bas b/Games/Pomppu Paavo/Pomppu Paavo.bas
index 944df00..974f8f4 100755 (executable)
--- a/Games/Pomppu Paavo/Pomppu Paavo.bas
+++ b/Games/Pomppu Paavo/Pomppu Paavo.bas
@@ -15,7 +15,7 @@ DECLARE SUB LoadCurrentLevel (y%)
 \r
 DEFINT A-Z\r
 DIM SHARED GraphicsDisplayMode\r
-DIM SHARED asciiLevelData(1 TO 20) AS STRING * 31\r
+DIM SHARED AsciiLevelData(1 TO 20) AS STRING * 31\r
 DIM SHARED Companion1PositionY%, Companion1PositionX%, Companion2PositionY%, Companion2PositionX%\r
 DIM SHARED LivesRemaining%, CoinsCollected%\r
 DIM SHARED DoorEntryX%, DoorEntryY%, DoorExitX%, DoorExitY%\r
@@ -218,7 +218,7 @@ siie = 1
 siie1 = 1\r
 MainGameLoop:\r
 keyboardInput$ = INKEY$\r
-IF GraphicsDisplayMode = 2 THEN b = b * 2: GOTO mainLoopSmallScale\r
+IF GraphicsDisplayMode = 2 THEN b = b * 2: GOTO SmallScaleGameLoop\r
 IF b > 0 THEN GET (a, b)-(a + 20, b + 20), mar1\r
 IF b > 0 THEN IF sipp = 1 THEN PUT (a, b), sipp1, OR\r
 IF b > 0 THEN IF sipp = 2 THEN PUT (a, b), sipp2, OR\r
@@ -353,7 +353,7 @@ IF sipa = 3 THEN sipa = 1
 GOTO MainGameLoop\r
 \r
 \r
-mainLoopSmallScale:\r
+SmallScaleGameLoop:\r
 keyboardInput$ = INKEY$\r
 IF GraphicsDisplayMode = 1 THEN b = b / 2: GOTO MainGameLoop\r
 IF b > 0 THEN GET (a \ 2, b \ 2)-((a + 20) \ 2, (b + 20) \ 2), marm1\r
@@ -485,7 +485,7 @@ IF keyboardInput$ = "q" THEN END
 sipa = sipa + 1\r
 IF sipa = 3 THEN sipa = 1\r
 \r
-GOTO mainLoopSmallScale\r
+GOTO SmallScaleGameLoop\r
 \r
 SUB DisplayGameStatistics\r
 '\r
@@ -572,7 +572,7 @@ FOR a1 = 1 TO 32
 NEXT a1\r
 \r
 FOR a = 1 TO 20\r
-  asciiLevelData(a) = ""\r
+  AsciiLevelData(a) = ""\r
 NEXT a\r
 \r
 CLS\r
@@ -584,7 +584,7 @@ IF y >= 1 AND y <= 18 THEN
   INPUT #1, GraphicsDisplayMode, increment\r
   i% = 1\r
   WHILE NOT EOF(1)\r
-    LINE INPUT #1, asciiLevelData(i%)\r
+    LINE INPUT #1, AsciiLevelData(i%)\r
     i% = i% + 1\r
   WEND\r
   CLOSE #1\r
@@ -604,43 +604,43 @@ ELSE
     SCREEN 2\r
     END\r
   CASE 100\r
-    asciiLevelData(1) = "                "\r
-    asciiLevelData(2) = "                "\r
-    asciiLevelData(3) = "                "\r
-    asciiLevelData(4) = "                "\r
-    asciiLevelData(5) = "                "\r
-    asciiLevelData(6) = "                "\r
-    asciiLevelData(7) = "                "\r
-    asciiLevelData(8) = "                "\r
-    asciiLevelData(9) = "                "\r
-    asciiLevelData(10) = "                "\r
+    AsciiLevelData(1) = "                "\r
+    AsciiLevelData(2) = "                "\r
+    AsciiLevelData(3) = "                "\r
+    AsciiLevelData(4) = "                "\r
+    AsciiLevelData(5) = "                "\r
+    AsciiLevelData(6) = "                "\r
+    AsciiLevelData(7) = "                "\r
+    AsciiLevelData(8) = "                "\r
+    AsciiLevelData(9) = "                "\r
+    AsciiLevelData(10) = "                "\r
   CASE 101\r
-    asciiLevelData(1) = "                               "\r
-    asciiLevelData(2) = "                               "\r
-    asciiLevelData(3) = "                               "\r
-    asciiLevelData(4) = "                               "\r
-    asciiLevelData(5) = "                               "\r
-    asciiLevelData(6) = "                               "\r
-    asciiLevelData(7) = "                               "\r
-    asciiLevelData(8) = "                               "\r
-    asciiLevelData(9) = "                               "\r
-    asciiLevelData(10) = "                               "\r
-    asciiLevelData(11) = "                               "\r
-    asciiLevelData(12) = "                               "\r
-    asciiLevelData(13) = "                               "\r
-    asciiLevelData(14) = "                               "\r
-    asciiLevelData(15) = "                               "\r
-    asciiLevelData(16) = "                               "\r
-    asciiLevelData(17) = "                               "\r
-    asciiLevelData(18) = "                               "\r
-    asciiLevelData(19) = "                               "\r
+    AsciiLevelData(1) = "                               "\r
+    AsciiLevelData(2) = "                               "\r
+    AsciiLevelData(3) = "                               "\r
+    AsciiLevelData(4) = "                               "\r
+    AsciiLevelData(5) = "                               "\r
+    AsciiLevelData(6) = "                               "\r
+    AsciiLevelData(7) = "                               "\r
+    AsciiLevelData(8) = "                               "\r
+    AsciiLevelData(9) = "                               "\r
+    AsciiLevelData(10) = "                               "\r
+    AsciiLevelData(11) = "                               "\r
+    AsciiLevelData(12) = "                               "\r
+    AsciiLevelData(13) = "                               "\r
+    AsciiLevelData(14) = "                               "\r
+    AsciiLevelData(15) = "                               "\r
+    AsciiLevelData(16) = "                               "\r
+    AsciiLevelData(17) = "                               "\r
+    AsciiLevelData(18) = "                               "\r
+    AsciiLevelData(19) = "                               "\r
     GraphicsDisplayMode = 2\r
   END SELECT\r
 END IF\r
 IF GraphicsDisplayMode = 2 THEN GOTO 124\r
 FOR e = 0 TO 9\r
 FOR D = 0 TO 15\r
-q$ = RIGHT$(LEFT$(asciiLevelData(e + 1), D + 1), 1)\r
+q$ = RIGHT$(LEFT$(AsciiLevelData(e + 1), D + 1), 1)\r
 IF q$ = "m" THEN PUT (D * 20, e * 20), SolidTerrainSprite, PSET: TerrainGrid(D + 1, e + 1) = "z"\r
 IF q$ = "o" THEN PUT (D * 20, e * 20), kast, PSET: TerrainGrid(D + 1, e + 1) = "z": ObjectGrid(D + 1, e + 1) = "o"\r
 IF q$ = "." THEN PUT (D * 20, e * 20), taht, PSET\r
@@ -663,7 +663,7 @@ GOTO 123
 124\r
 FOR e = 0 TO 19\r
 FOR D = 0 TO 30\r
-q$ = RIGHT$(LEFT$(asciiLevelData(e + 1), D + 1), 1)\r
+q$ = RIGHT$(LEFT$(AsciiLevelData(e + 1), D + 1), 1)\r
 IF q$ = "m" THEN PUT (D * 10, e * 10), SolidTerrainSpriteSmall, PSET: TerrainGrid(D + 1, e + 1) = "z"\r
 IF q$ = "o" THEN PUT (D * 10, e * 10), kastm, PSET: TerrainGrid(D + 1, e + 1) = "z": ObjectGrid(D + 1, e + 1) = "o"\r
 IF q$ = "." THEN PUT (D * 10, e * 10), tahtm, PSET\r