Better code readability

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