Better code readability

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