From: Svjatoslav Agejenko <svjatoslav@svjatoslav.eu>
Date: Wed, 13 Aug 2025 14:52:58 +0000 (+0300)
Subject: Better code readability
X-Git-Url: http://www2.svjatoslav.eu/gitweb/?a=commitdiff_plain;h=20a7a4fb4754e92f10f4738fb56c498f2b95f312;p=qbasicapps.git

Better code readability
---

diff --git a/Games/Pomppu Paavo/Pomppu Paavo.bas b/Games/Pomppu Paavo/Pomppu Paavo.bas
index 6d66c46..82f80ef 100755
--- a/Games/Pomppu Paavo/Pomppu Paavo.bas	
+++ b/Games/Pomppu Paavo/Pomppu Paavo.bas	
@@ -11,7 +11,7 @@
 DECLARE SUB CL ()
 DECLARE SUB esc ()
 DECLARE SUB aargh ()
-DECLARE SUB die ()
+DECLARE SUB GameOverSequence ()
 
 
 DECLARE SUB HandlePlayerDeath ()
@@ -290,7 +290,7 @@ lives = lives - 1
 nait 0
 END SUB
 
-SUB die
+SUB GameOverSequence
 DIM diep(1 TO 2000)
 GET (0, 0)-(150, 20), diep
 LOCATE 1, 1
@@ -540,7 +540,7 @@ CLOSE
 END SUB
 
 SUB nait (zaz)
-IF lives < 0 THEN die
+IF lives < 0 THEN GameOverSequence
 PUT (0, 180), munt1, PSET
 rahaz(1) = rahaz(1) + zaz
 FOR b = 1 TO 3