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

---
 Games/Pomppu Paavo/Pomppu Paavo.bas | 30 ++++++++++++++---------------
 1 file changed, 15 insertions(+), 15 deletions(-)

diff --git a/Games/Pomppu Paavo/Pomppu Paavo.bas b/Games/Pomppu Paavo/Pomppu Paavo.bas
index 2c9d4b0..7d86bf4 100755
--- a/Games/Pomppu Paavo/Pomppu Paavo.bas	
+++ b/Games/Pomppu Paavo/Pomppu Paavo.bas	
@@ -52,7 +52,7 @@ DIM SHARED kollal(1 TO 10)
 DIM SHARED kolled(1 TO 10)
 
 DIM SHARED hudCoinDigits(1 TO 5)
-DIM SHARED number(100, 0 TO 11)
+DIM SHARED digitImages(100, 0 TO 11)
 DIM SHARED lives
 
 DIM SHARED raha
@@ -123,35 +123,35 @@ GET (0, 2)-(20, 11), munt2
 
 UpdateLoadingScreen
 wiew 0, 0, 1, 1, "0"
-GET (0, 2)-(10, 11), number(100, 0)
+GET (0, 2)-(10, 11), digitImages(100, 0)
 UpdateLoadingScreen
 wiew 0, 0, 1, 1, "1"
-GET (0, 2)-(10, 11), number(100, 1)
+GET (0, 2)-(10, 11), digitImages(100, 1)
 UpdateLoadingScreen
 wiew 0, 0, 1, 1, "2"
-GET (0, 2)-(10, 11), number(100, 2)
+GET (0, 2)-(10, 11), digitImages(100, 2)
 UpdateLoadingScreen
 wiew 0, 0, 1, 1, "3"
-GET (0, 2)-(10, 11), number(100, 3)
+GET (0, 2)-(10, 11), digitImages(100, 3)
 UpdateLoadingScreen
 wiew 0, 0, 1, 1, "4"
-GET (0, 2)-(10, 11), number(100, 4)
+GET (0, 2)-(10, 11), digitImages(100, 4)
 UpdateLoadingScreen
 wiew 0, 0, 1, 1, "5"
-GET (0, 2)-(10, 11), number(100, 5)
+GET (0, 2)-(10, 11), digitImages(100, 5)
 UpdateLoadingScreen
 wiew 0, 0, 1, 1, "6"
-GET (0, 2)-(10, 11), number(100, 6)
+GET (0, 2)-(10, 11), digitImages(100, 6)
 UpdateLoadingScreen
 wiew 0, 0, 1, 1, "7"
-GET (0, 2)-(10, 11), number(100, 7)
+GET (0, 2)-(10, 11), digitImages(100, 7)
 UpdateLoadingScreen
 wiew 0, 0, 1, 1, "8"
-GET (0, 2)-(10, 11), number(100, 8)
+GET (0, 2)-(10, 11), digitImages(100, 8)
 UpdateLoadingScreen
-GET (0, 2)-(10, 11), number(100, 10)
+GET (0, 2)-(10, 11), digitImages(100, 10)
 wiew 0, 0, 1, 1, "9"
-GET (0, 2)-(10, 11), number(100, 9)
+GET (0, 2)-(10, 11), digitImages(100, 9)
 
 UpdateLoadingScreen
 wiew 0, 0, 1, 1, "tigu"
@@ -544,12 +544,12 @@ LOCATE 1, 1
 r = 3
 FOR a = 1 TO 2
 r = r - 1
-PUT ((a * 11) + 10, 180), number(100, hudCoinDigits(r)), PSET
+PUT ((a * 11) + 10, 180), digitImages(100, hudCoinDigits(r)), PSET
 NEXT a
 IF lives > 10 THEN lives = 10
-PUT (43, 180), number(100, 10), PSET
+PUT (43, 180), digitImages(100, 10), PSET
 PUT (53, 180), munt2, PSET
-PUT (73, 180), number(100, lives), PSET
+PUT (73, 180), digitImages(100, lives), PSET
 END SUB
 
 SUB UpdateLoadingScreen
-- 
2.20.1