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

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

diff --git a/Games/Pomppu Paavo/Pomppu Paavo.bas b/Games/Pomppu Paavo/Pomppu Paavo.bas
index 9cdc310..42dfb1d 100755
--- a/Games/Pomppu Paavo/Pomppu Paavo.bas	
+++ b/Games/Pomppu Paavo/Pomppu Paavo.bas	
@@ -28,9 +28,7 @@ DECLARE SUB inpur ()
 DECLARE SUB mousedriver (AX%, bx%, cx%, dx%, lb%, rb%, EX%)
 DECLARE SUB tahed ()
 
-DIM SHARED sj$
-DIM SHARED ekraan
-DIM SHARED text$(1 TO 500)
+DIM SHARED userInput$
 DIM SHARED pikkus
 
 
@@ -74,7 +72,7 @@ maailm = 1
 maailm1 = 1
 InitializeAllLevelData
 1
-ekraan = 13: zpqf = 4
+zpqf = 4
 
 FOR a = 0 TO 254
 OUT &H3C8, a
@@ -440,9 +438,9 @@ levelData(9, 10) = "mmmmmmmmmmm  mm"
 END SUB
 
 SUB inpur
-sj$ = ""
-WHILE sj$ = ""
-sj$ = INKEY$
+userInput$ = ""
+WHILE userInput$ = ""
+userInput$ = INKEY$
 WEND
 END SUB
 
@@ -451,15 +449,6 @@ CLS
 wiew 2, 2, 10, 1, "win.i01"
 END SUB
 
-SUB load (a$)
-OPEN a$ FOR INPUT AS #2
-INPUT #2, pikkus
-FOR a = 1 TO pikkus
-LINE INPUT #2, text$(a)
-NEXT a
-CLOSE
-END SUB
-
 SUB LoadCurrentLevel
 IF maailm > 10 THEN
 CLS
-- 
2.20.1