From 4d98d2690966e4440db9fb861606d8417de3c404 Mon Sep 17 00:00:00 2001
From: Svjatoslav Agejenko <svjatoslav@svjatoslav.eu>
Date: Thu, 21 Aug 2025 19:59:45 +0300
Subject: [PATCH] Better code readability

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

diff --git a/Games/Pomppu Paavo.bas b/Games/Pomppu Paavo.bas
index 107ec84..8840726 100755
--- a/Games/Pomppu Paavo.bas	
+++ b/Games/Pomppu Paavo.bas	
@@ -217,7 +217,7 @@ a = 50
 b = 50
 siie = 1
 siie1 = 1
-6
+MainGameLoop:
 WHILE kbd$ = ""
 kbd$ = INKEY$
 IF graphicsMode = 2 THEN b = b * 2: GOTO 106
@@ -302,13 +302,13 @@ IF a$ = "+" THEN a = 2: b = 50: CurrentLevelNumber% = CurrentLevelNumber% + 5: L
 IF a$ = "q" THEN END
 sipa = sipa + 1
 IF sipa = 3 THEN sipa = 1
-GOTO 6
+GOTO MainGameLoop
 
 
 106
 WHILE kbd$ = ""
 kbd$ = INKEY$
-IF graphicsMode = 1 THEN b = b / 2: GOTO 6
+IF graphicsMode = 1 THEN b = b / 2: GOTO MainGameLoop
 IF b > 0 THEN GET (a \ 2, b \ 2)-((a + 20) \ 2, (b + 20) \ 2), marm1
 IF b > 0 THEN IF sipp = 1 THEN PUT (a \ 2, b \ 2), sippm1, OR
 IF b > 0 THEN IF sipp = 2 THEN PUT (a \ 2, b \ 2), sippm2, OR
-- 
2.20.1