Better code readability

diff --git a/Games/Pomppu Paavo/Pomppu Paavo.bas b/Games/Pomppu Paavo/Pomppu Paavo.bas
index 75be07a..6d66c46 100755 (executable)
--- a/Games/Pomppu Paavo/Pomppu Paavo.bas
+++ b/Games/Pomppu Paavo/Pomppu Paavo.bas
@@ -14,7 +14,7 @@ DECLARE SUB aargh ()
 DECLARE SUB die ()\r
 \r
 \r
-DECLARE SUB dead ()\r
+DECLARE SUB HandlePlayerDeath ()\r
 DEFINT A-Z\r
 DECLARE SUB level1 ()\r
 DECLARE SUB nait (zaz%)\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: dead: GOTO 12\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
 END IF\r
 NEXT ox\r
 END IF\r
@@ -259,7 +259,7 @@ a1 = a1 + edasi
 IF clr > 0 THEN clr = 0: PUT (clra * 20, clrb * 20), tuhi, PSET\r
 IF a1 > 280 THEN maailm = maailm + 1: level: a1 = 3\r
 IF a1 < 2 THEN maailm = maailm - 1: level: a1 = 279\r
-IF b1 > 170 THEN FOR a = 3000 TO 500 STEP -100: SOUND a, .3: NEXT a: dead\r
+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
@@ -280,7 +280,7 @@ prog = prog + 1
 PRINT "."\r
 END SUB\r
 \r
-SUB dead\r
+SUB HandlePlayerDeath\r
 IF maailm > 1 THEN maailm = maailm - 1\r
 \r
 level\r