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