From c6bd1a3b07dc51faf4283c0c5732d3df7993faf8 Mon Sep 17 00:00:00 2001
From: Svjatoslav Agejenko <svjatoslav@svjatoslav.eu>
Date: Wed, 20 Aug 2025 00:41:58 +0300
Subject: [PATCH] Better code readability

---
 Games/Pomppu Paavo.bas | 84 +++++-------------------------------------
 1 file changed, 9 insertions(+), 75 deletions(-)

diff --git a/Games/Pomppu Paavo.bas b/Games/Pomppu Paavo.bas
index 2ebfb65..a7cc2b0 100755
--- a/Games/Pomppu Paavo.bas	
+++ b/Games/Pomppu Paavo.bas	
@@ -4,7 +4,7 @@
 ' & CGA video card is required
 
 DECLARE SUB norm (nrm%)
-DECLARE SUB elud ()
+DECLARE SUB displayGameStats ()
 DEFINT A-Z
 DECLARE SUB level (y%)
 DECLARE SUB pildid (p%, o%, m%, fr%, teler%)
@@ -241,9 +241,9 @@ IF asend((a + 37) \ 20, (b + 21) \ 20) = "z" THEN all = 0: cd = 10: lke = 0
 IF asend((a + 22) \ 20, (b + 38) \ 20) = "z" THEN all = -1: r1 = 2: lk = 1: lke = 0
 IF asend((a + 37) \ 20, (b + 38) \ 20) = "z" THEN all = -1: r1 = 2: lk = 1: lke = 0
 
-qwer = qwer + 1: IF asend1((a + 30) \ 20, (b + 30) \ 20) = "q" AND qwer > 20 THEN qwer = 1: elu = elu - 1: eda = -10: all = -5: elud
+qwer = qwer + 1: IF asend1((a + 30) \ 20, (b + 30) \ 20) = "q" AND qwer > 20 THEN qwer = 1: elu = elu - 1: eda = -10: all = -5: displayGameStats
 IF qwer > 100 THEN qwer = 50
-                IF asend((a + 30) \ 20, (b + 30) \ 20) = "1" THEN raha = raha + 1: kustuta1 = 1: elud: asend((a + 30) \ 20, (b + 30) \ 20) = ""
+                IF asend((a + 30) \ 20, (b + 30) \ 20) = "1" THEN raha = raha + 1: kustuta1 = 1: displayGameStats: asend((a + 30) \ 20, (b + 30) \ 20) = ""
 IF asend((a + 30) \ 20, (b + 30) \ 20) = "v" THEN all = -8: sipp = 3
 IF asend1((a + 30) \ 20, (b + 38) \ 20) = ">" THEN eda = 3
 IF asend1((a + 30) \ 20, (b + 38) \ 20) = "<" THEN eda = -3
@@ -282,7 +282,7 @@ a = a + eda
 b = b + all
 IF a > 297 THEN a = 2: maa = maa + 1: level maa: siie = 1: siie1 = 1
 IF a < 1 THEN a = 296: IF maa = 1 THEN level maa:  ELSE maa = maa - 1: level maa: IF voolual = 2 THEN a = 594
-IF b > 179 THEN elu = elu - 1: elud: maa = maa - 1: level maa: b = 100: a = 2: elud
+IF b > 179 THEN elu = elu - 1: displayGameStats: maa = maa - 1: level maa: b = 100: a = 2: displayGameStats
 IF asend((a + 30) \ 20, (b + 30) \ 20) = "u" THEN a = uks3 + 10: b = uks4: eda = 0
 IF asend((a + 30) \ 20, (b + 30) \ 20) = "U" THEN a = uks1 + 10: b = uks2: eda = 0
 WEND
@@ -329,9 +329,9 @@ IF asend((a + 37) \ 20, (b + 21) \ 20) = "z" THEN all = 0: cd = 10: lke = 0
 IF asend((a + 22) \ 20, (b + 38) \ 20) = "z" THEN all = -1: r1 = 2: lk = 1: lke = 0
 IF asend((a + 37) \ 20, (b + 38) \ 20) = "z" THEN all = -1: r1 = 2: lk = 1: lke = 0
 
-qwer = qwer + 1: IF asend1((a + 30) \ 20, (b + 30) \ 20) = "q" AND qwer > 20 THEN qwer = 1: elu = elu - 1: eda = -5: all = -3: elud
+qwer = qwer + 1: IF asend1((a + 30) \ 20, (b + 30) \ 20) = "q" AND qwer > 20 THEN qwer = 1: elu = elu - 1: eda = -5: all = -3: displayGameStats
 IF qwer > 100 THEN qwer = 50
-IF asend((a + 30) \ 20, (b + 30) \ 20) = "1" THEN raha = raha + 1: kustuta1 = 1: elud: asend((a + 30) \ 20, (b + 30) \ 20) = ""
+IF asend((a + 30) \ 20, (b + 30) \ 20) = "1" THEN raha = raha + 1: kustuta1 = 1: displayGameStats: asend((a + 30) \ 20, (b + 30) \ 20) = ""
 IF asend((a + 30) \ 20, (b + 30) \ 20) = "v" THEN all = -8: sipp = 3
 IF asend1((a + 30) \ 20, (b + 38) \ 20) = ">" THEN eda = 3
 IF asend1((a + 30) \ 20, (b + 38) \ 20) = "<" THEN eda = -3
@@ -370,7 +370,7 @@ a = a + eda
 b = b + all
 IF a > 594 THEN a = 2: maa = maa + 1: level maa: siie = 1: siie1 = 1
 IF a < 1 THEN a = 594: IF maa = 1 THEN level maa:  ELSE maa = maa - 1: level maa: IF voolual = 1 THEN a = 297
-IF b > 358 THEN elu = elu - 1: elud: maa = maa - 1: level maa: b = 100: a = 2: elud
+IF b > 358 THEN elu = elu - 1: displayGameStats: maa = maa - 1: level maa: b = 100: a = 2: displayGameStats
 IF asend((a + 30) \ 20, (b + 30) \ 20) = "u" THEN a = uks3 + 5: b = uks4: eda = 0
 IF asend((a + 30) \ 20, (b + 30) \ 20) = "U" THEN a = uks1 + 5: b = uks2: eda = 0
 WEND
@@ -388,7 +388,7 @@ sipa = sipa + 1
 IF sipa = 3 THEN sipa = 1
 GOTO 106
 
-SUB elud
+SUB displayGameStats
 LOCATE 1, 1
 IF voolual = 2 THEN GOTO 12
 PRINT "                "
@@ -399,57 +399,6 @@ PRINT "o "; raha; "  Elu "; elu
 IF elu < 0 THEN END
 END SUB
 
-SUB joonist
-tuhi$ = "0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000"
-CLS
-INPUT "laius", laius
-INPUT "pikkus", pikkus
-FOR a = 1 TO pikkus
-text$(a) = RIGHT$(tuhi$, laius)
-NEXT a
-CLS
-a = 1
-b = 1
-z = 3
-zx = 1
-2
-a$ = INPUT$(1)
-IF zx = 1 THEN CIRCLE (a * 2, b * 2), 1, z
-po = ASC(RIGHT$(LEFT$(text$(b), a), 1)) - 1
-IF zx = -1 THEN CIRCLE (a * 2, b * 2), 1, po
-IF a$ = "6" THEN a = a + 1
-IF a$ = "4" THEN a = a - 1
-IF a$ = "8" THEN b = b - 1
-IF a$ = "2" THEN b = b + 1
-IF a$ = " " THEN zx = zx * -1
-IF a$ = "e" THEN GOTO 5
-IF a$ = "s" THEN GOTO 3
-IF a$ = "z" THEN z = 0
-IF a$ = "x" THEN z = 1
-IF a$ = "c" THEN z = 2
-IF a$ = "v" THEN z = 3
-
-IF a < 1 THEN a = 1
-IF b < 1 THEN b = 1
-IF b > pikkus THEN b = pikkus
-IF a > laius THEN a = laius
-IF z > 3 THEN z = 3
-IF z < 0 THEN z = 0
-IF zx = 1 THEN MID$(text$(b), a) = CHR$(z + 1)
-IF zx = 1 THEN CIRCLE (a * 2, b * 2), 1, z
-IF zx = 1 THEN PAINT (a * 2, b * 2), z
-o = 0
-IF zx = 1 THEN IF z = 0 THEN o = 3
-po = ASC(RIGHT$(LEFT$(text$(b), a), 1)) - 1
-IF zx = -1 THEN IF po = 0 THEN o = 3
-CIRCLE (a * 2, b * 2), 1, o
-GOTO 2
-3
-INPUT "fail", a$
-save a$
-5
-END SUB
-
 SUB level (y)
 125
 siia = 0
@@ -525,8 +474,6 @@ uun(8) = "m   ooooooooooo "
 uun(9) = "         v    o "
 uun(10) = "oooooooooooooooo"
 CASE 6
-PRINT "1-2  Maailm . Kood: teine": elud
-a$ = INPUT$(1)
 CLS
 uun(1) = "    -           "
 uun(2) = "             .  "
@@ -630,8 +577,6 @@ uun(8) = ">> m m m    xy    "
 uun(9) = "mm  vm    v     "
 uun(10) = "mm>><m>>>>>mmmmm"
 CASE 15
-PRINT "1-3  Maailm . Kood: Sven Risto": elud
-a$ = INPUT$(1)
 CLS
 uun(1) = "      m        m"
 uun(2) = "mm ymmmmmmmmmaaa"
@@ -709,9 +654,6 @@ NEXT a
 a$ = INPUT$(1)
 CLS
 SCREEN 2
-PRINT "   Programmi koostasid:"
-PRINT "Svjatoslav Agejenko, Risto Ipsperg ja Fred Freimann"
-a$ = INPUT$(1)
 END
 END
 CASE 100
@@ -1223,15 +1165,6 @@ NEXT a
 ERASE ao
 END SUB
 
-SUB save (y$)
-OPEN y$ FOR OUTPUT AS #1
-PRINT #1, pikkus
-FOR a = 1 TO pikkus
-PRINT #1, text$(a)
-NEXT a
-CLOSE
-END SUB
-
 SUB wiew (r$, a, b)
 OPEN r$ FOR INPUT AS #2
 INPUT #2, pikkus
@@ -1243,3 +1176,4 @@ NEXT D
 NEXT e
 CLOSE
 END SUB
+
-- 
2.20.1