Better code readability

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