Better code readability

diff --git a/Games/Pomppu Paavo/Pomppu Paavo.bas b/Games/Pomppu Paavo/Pomppu Paavo.bas
index 82f80ef..c9f6276 100755 (executable)
--- a/Games/Pomppu Paavo/Pomppu Paavo.bas
+++ b/Games/Pomppu Paavo/Pomppu Paavo.bas
@@ -8,9 +8,9 @@
 ' Changelog:\r
 ' 1999, Initial version\r
 \r
-DECLARE SUB CL ()\r
-DECLARE SUB esc ()\r
-DECLARE SUB aargh ()\r
+DECLARE SUB UpdateLoadingScreen ()\r
+DECLARE SUB HandleEscapeKey ()\r
+DECLARE SUB PlayHurtSound ()\r
 DECLARE SUB GameOverSequence ()\r
 \r
 \r
@@ -91,86 +91,86 @@ COLOR 255
 PRINT "LOADING "\r
 \r
 \r
-CL\r
+UpdateLoadingScreen\r
 wiew 0, 0, 1, 1, "pilv"\r
 GET (1, 1)-(109, 35), pilv\r
-CL\r
+UpdateLoadingScreen\r
 wiew 0, 0, 1, 1, "kast"\r
 GET (1, 2)-(20, 21), kast\r
-CL\r
+UpdateLoadingScreen\r
 wiew 0, 0, 1, 1, "tellis"\r
 GET (1, 2)-(20, 21), tellis\r
-CL\r
+UpdateLoadingScreen\r
 GET (1, 2)-(20, 21), tuhi\r
 wiew 0, 0, 1, 1, "paavo1"\r
 GET (1, 2)-(20, 21), mari(202, 1)\r
-CL\r
+UpdateLoadingScreen\r
 wiew1 0, 0, 1, 1, "paavo1"\r
 GET (3, 2)-(22, 21), mari(202, 2)\r
-CL\r
+UpdateLoadingScreen\r
 wiew 0, 0, 1, 1, "paavo2"\r
 GET (1, 2)-(20, 21), mari(202, 3)\r
-CL\r
+UpdateLoadingScreen\r
 wiew1 0, 0, 1, 1, "paavo2"\r
 GET (3, 2)-(22, 21), mari(202, 4)\r
-CL\r
+UpdateLoadingScreen\r
 wiew 0, 0, 1, 1, "poosas"\r
 GET (1, 1)-(60, 21), poosas\r
-CL\r
+UpdateLoadingScreen\r
 wiew 0, 0, 1, 1, "puu"\r
 GET (1, 1)-(40, 60), puu\r
-CL\r
+UpdateLoadingScreen\r
 wiew 0, 0, 1, 1, "munt"\r
 GET (1, 1)-(10, 11), munt\r
-CL\r
+UpdateLoadingScreen\r
 wiew 0, 0, 1, 1, "munt1"\r
 GET (0, 2)-(20, 11), munt1\r
-CL\r
+UpdateLoadingScreen\r
 wiew 0, 0, 1, 1, "munt2"\r
 GET (0, 2)-(20, 11), munt2\r
 \r
-CL\r
+UpdateLoadingScreen\r
 wiew 0, 0, 1, 1, "0"\r
 GET (0, 2)-(10, 11), number(100, 0)\r
-CL\r
+UpdateLoadingScreen\r
 wiew 0, 0, 1, 1, "1"\r
 GET (0, 2)-(10, 11), number(100, 1)\r
-CL\r
+UpdateLoadingScreen\r
 wiew 0, 0, 1, 1, "2"\r
 GET (0, 2)-(10, 11), number(100, 2)\r
-CL\r
+UpdateLoadingScreen\r
 wiew 0, 0, 1, 1, "3"\r
 GET (0, 2)-(10, 11), number(100, 3)\r
-CL\r
+UpdateLoadingScreen\r
 wiew 0, 0, 1, 1, "4"\r
 GET (0, 2)-(10, 11), number(100, 4)\r
-CL\r
+UpdateLoadingScreen\r
 wiew 0, 0, 1, 1, "5"\r
 GET (0, 2)-(10, 11), number(100, 5)\r
-CL\r
+UpdateLoadingScreen\r
 wiew 0, 0, 1, 1, "6"\r
 GET (0, 2)-(10, 11), number(100, 6)\r
-CL\r
+UpdateLoadingScreen\r
 wiew 0, 0, 1, 1, "7"\r
 GET (0, 2)-(10, 11), number(100, 7)\r
-CL\r
+UpdateLoadingScreen\r
 wiew 0, 0, 1, 1, "8"\r
 GET (0, 2)-(10, 11), number(100, 8)\r
-CL\r
+UpdateLoadingScreen\r
 GET (0, 2)-(10, 11), number(100, 10)\r
 wiew 0, 0, 1, 1, "9"\r
 GET (0, 2)-(10, 11), number(100, 9)\r
 \r
-CL\r
+UpdateLoadingScreen\r
 wiew 0, 0, 1, 1, "tigu"\r
 GET (1, 2)-(20, 21), koll1(202, 1)\r
-CL\r
+UpdateLoadingScreen\r
 wiew 0, 0, 1, 1, "tigu1"\r
 GET (3, 2)-(22, 21), koll1(202, 2)\r
-CL\r
+UpdateLoadingScreen\r
 wiew1 0, 0, 1, 1, "tigu"\r
 GET (1, 2)-(20, 21), koll1(202, 3)\r
-CL\r
+UpdateLoadingScreen\r
 wiew1 0, 0, 1, 1, "tigu1"\r
 GET (3, 2)-(22, 21), koll1(202, 4)\r
 \r
@@ -220,7 +220,7 @@ IF mobX(ox) > 270 THEN kolled(ox) = -1
 IF mobX(ox) < 2 THEN kolled(ox) = 1\r
 IF ruum((mobX(ox) + 28) / 20, mobY(ox) / 20) = "m" THEN kolled(ox) = -1\r
 IF ruum((mobX(ox) + 10) / 20, mobY(ox) / 20) = "m" THEN kolled(ox) = 1\r
-IF mobX(ox) - 20 < a1 AND mobX(ox) + 20 > a1 AND mobY(ox) - 5 < b1 AND mobY(ox) + 20 > b1 THEN aargh: HandlePlayerDeath: GOTO 12\r
+IF mobX(ox) - 20 < a1 AND mobX(ox) + 20 > a1 AND mobY(ox) - 5 < b1 AND mobY(ox) + 20 > b1 THEN PlayHurtSound: HandlePlayerDeath: GOTO 12\r
 END IF\r
 NEXT ox\r
 END IF\r
@@ -238,7 +238,7 @@ a$ = INKEY$
 IF a$ = CHR$(0) + "H" AND ao < 10 THEN alla = -6\r
 IF a$ = CHR$(0) + "M" AND qa = 0 THEN edasi = edasi + 3: liig = ov1\r
 IF a$ = CHR$(0) + "K" AND qa = 0 THEN edasi = edasi - 3: liig = ov2\r
-IF a$ = CHR$(27) THEN esc\r
+IF a$ = CHR$(27) THEN HandleEscapeKey\r
 IF a$ = "+" AND qa = 0 THEN maailm = maailm + 1: level: GOTO 12\r
 IF qa <> 0 THEN qa = 0\r
 IF edasi > 5 THEN edasi = 3\r
@@ -262,7 +262,7 @@ IF a1 < 2 THEN maailm = maailm - 1: level: a1 = 279
 IF b1 > 170 THEN FOR a = 3000 TO 500 STEP -100: SOUND a, .3: NEXT a: HandlePlayerDeath\r
 GOTO 12\r
 \r
-SUB aargh\r
+SUB PlayHurtSound\r
 a = 1700\r
 b = 1900\r
 FOR c = 1 TO 50\r
@@ -273,7 +273,7 @@ SOUND b, .2
 NEXT c\r
 END SUB\r
 \r
-SUB CL\r
+SUB UpdateLoadingScreen\r
 LINE (0, 0)-(319, 150), 0, BF\r
 LOCATE 20, 10 + prog\r
 prog = prog + 1\r
@@ -334,7 +334,7 @@ END
 \r
 END SUB\r
 \r
-SUB esc\r
+SUB HandleEscapeKey\r
 FOR b = 0 TO 20\r
 FOR a = b TO 200 STEP 20\r
 LINE (0, a)-(320, a), 0\r