From 31680f028e21951134cd4344a86f5989b1bd67c7 Mon Sep 17 00:00:00 2001
From: Svjatoslav Agejenko <svjatoslav@svjatoslav.eu>
Date: Wed, 13 Aug 2025 18:00:24 +0300
Subject: [PATCH] Better code readability

---
 Games/Pomppu Paavo/Pomppu Paavo.bas | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

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