From 5443a0a415ef9fa8363a5a3be3d09bf98cf32ae1 Mon Sep 17 00:00:00 2001
From: Svjatoslav Agejenko <svjatoslav@svjatoslav.eu>
Date: Thu, 21 Aug 2025 19:56:53 +0300
Subject: [PATCH] Better code readability

---
 Games/Pomppu Paavo.bas | 21 +++++++++++----------
 1 file changed, 11 insertions(+), 10 deletions(-)

diff --git a/Games/Pomppu Paavo.bas b/Games/Pomppu Paavo.bas
index cd2707c..107ec84 100755
--- a/Games/Pomppu Paavo.bas	
+++ b/Games/Pomppu Paavo.bas	
@@ -75,17 +75,17 @@ DIM SHARED sippm20(51)
 DIM SHARED sippm3(51)
 DIM SHARED DoorSpriteSmall(50)
 
-
-DIM SHARED kuikiir
 leftArrowKey$ = CHR$(0) + "K"
 rightArrowKey$ = CHR$(0) + "M"
 upArrowKey$ = CHR$(0) + "H"
 downArrowKey$ = CHR$(0) + "P"
+
 LivesRemaining% = 10
+
 SCREEN 1
 CurrentLevelNumber% = 1
-REM joonist
-REM END
+
+' Capture sprite images from screen drawing operations
 GET (1, 1)-(20, 20), EmptySpaceSprite
 DrawSprite 0, 0, 1, 1, 1
 GET (1, 1)-(20, 20), SolidTerrainSprite
@@ -142,6 +142,9 @@ CLS
 DrawSprite 0, 0, 16, 1, 1
 GET (1, 1)-(20, 20), sipp3
 CLS
+
+
+' Capture small scale versions of sprites
 GET (1, 1)-(10, 10), EmptySpaceSpriteSmall
 DrawSprite 0, 0, 1, 1, 2
 GET (1, 1)-(10, 10), SolidTerrainSpriteSmall
@@ -203,14 +206,12 @@ CLS
 DrawSprite 0, 0, 17, 1, 2
 GET (1, 1)-(11, 16), IntroScreen
 CLS
-GOTO 7
+
 DrawSprite -1, -1, 10, 4, 1
 GET (1, 1)-(318, 124), IntroScreen
-CLS
-SLEEP 1
-PUT (1, 1), IntroScreen, PSET
-SLEEP 100
-7
+
+key$ = INPUT$(1)
+
 LoadLevel 1
 a = 50
 b = 50
-- 
2.20.1