From: Svjatoslav Agejenko <svjatoslav@svjatoslav.eu>
Date: Fri, 22 Aug 2025 20:52:39 +0000 (+0300)
Subject: Move Pomppu Paavo levels to files
X-Git-Url: http://www2.svjatoslav.eu/gitweb/?a=commitdiff_plain;h=78cfa5246c00854170c708c01963c2ada88d6519;p=qbasicapps.git

Move Pomppu Paavo levels to files
---

diff --git a/Games/Pomppu Paavo/Pomppu Paavo.bas b/Games/Pomppu Paavo/Pomppu Paavo.bas
index 24d661f..ed7ed2e 100755
--- a/Games/Pomppu Paavo/Pomppu Paavo.bas	
+++ b/Games/Pomppu Paavo/Pomppu Paavo.bas	
@@ -219,7 +219,7 @@ siie = 1
 siie1 = 1
 MainGameLoop:
 kbd$ = INKEY$
-IF graphicsMode = 2 THEN b = b * 2: GOTO 106
+IF graphicsMode = 2 THEN b = b * 2: GOTO mainLoopSmallScale
 IF b > 0 THEN GET (a, b)-(a + 20, b + 20), mar1
 IF b > 0 THEN IF sipp = 1 THEN PUT (a, b), sipp1, OR
 IF b > 0 THEN IF sipp = 2 THEN PUT (a, b), sipp2, OR
@@ -354,7 +354,7 @@ IF sipa = 3 THEN sipa = 1
 GOTO MainGameLoop
 
 
-106
+mainLoopSmallScale:
 kbd$ = INKEY$
 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
@@ -486,7 +486,7 @@ IF kbd$ = "q" THEN END
 sipa = sipa + 1
 IF sipa = 3 THEN sipa = 1
 
-GOTO 106
+GOTO mainLoopSmallScale
 
 SUB DisplayGameStatistics
 '