Better code readability

diff --git a/Games/Pomppu Paavo/Pomppu Paavo.bas b/Games/Pomppu Paavo/Pomppu Paavo.bas
index 2802435..b78261a 100755 (executable)
--- a/Games/Pomppu Paavo/Pomppu Paavo.bas
+++ b/Games/Pomppu Paavo/Pomppu Paavo.bas
@@ -19,7 +19,7 @@ DEFINT A-Z
 DECLARE SUB InitializeAllLevelData ()\r
 DECLARE SUB UpdateHUD (zaz%)\r
 DECLARE SUB RenderImageFromTextFile (a1%, b1%, c1%, d1%, a$)\r
-DECLARE SUB level ()\r
+DECLARE SUB LoadCurrentLevel ()\r
 DECLARE SUB save (a$)\r
 DECLARE SUB picedit ()\r
 DECLARE SUB wiew (a1%, b1%, c1%, d1%, a$)\r
@@ -176,7 +176,7 @@ GET (3, 2)-(22, 21), koll1(202, 4)
 \r
 SCREEN 0\r
 SCREEN 13\r
-level\r
+LoadCurrentLevel\r
 a1 = 50\r
 b1 = 50\r
 edasi = 0\r
@@ -239,7 +239,7 @@ IF a$ = CHR$(0) + "H" AND ao < 10 THEN alla = -6
 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 HandleEscapeKey\r
-IF a$ = "+" AND qa = 0 THEN maailm = maailm + 1: level: GOTO 12\r
+IF a$ = "+" AND qa = 0 THEN maailm = maailm + 1: LoadCurrentLevel: GOTO 12\r
 IF qa <> 0 THEN qa = 0\r
 IF edasi > 5 THEN edasi = 3\r
 IF edasi < -5 THEN edasi = -3\r
@@ -257,8 +257,8 @@ END IF
 b1 = b1 + alla\r
 a1 = a1 + edasi\r
 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 a1 > 280 THEN maailm = maailm + 1: LoadCurrentLevel: a1 = 3\r
+IF a1 < 2 THEN maailm = maailm - 1: LoadCurrentLevel: a1 = 279\r
 IF b1 > 170 THEN FOR a = 3000 TO 500 STEP -100: SOUND a, .3: NEXT a: HandlePlayerDeath\r
 GOTO 12\r
 \r
@@ -283,7 +283,7 @@ END SUB
 SUB HandlePlayerDeath\r
 IF maailm > 1 THEN maailm = maailm - 1\r
 \r
-level\r
+LoadCurrentLevel\r
 a1 = 20\r
 b1 = 100\r
 lives = lives - 1\r
@@ -357,7 +357,7 @@ CLS
 wiew 2, 2, 10, 1, "win.i01"\r
 END SUB\r
 \r
-SUB level\r
+SUB LoadCurrentLevel\r
 IF maailm > 10 THEN\r
 CLS\r
 PRINT "Mission complete!"\r