From: Svjatoslav Agejenko <svjatoslav@svjatoslav.eu>
Date: Tue, 15 Oct 2024 19:02:29 +0000 (+0300)
Subject: Refactoring code for better readability
X-Git-Url: http://www2.svjatoslav.eu/gitweb/?a=commitdiff_plain;h=016e99be0fcd4d318f8d4db7a34935f76bc4d93e;p=qbasicapps.git

Refactoring code for better readability
---

diff --git a/Graphics/Presentations/joulud.bas b/Graphics/Presentations/joulud.bas
index 7dec158..2d842c6 100755
--- a/Graphics/Presentations/joulud.bas
+++ b/Graphics/Presentations/joulud.bas
@@ -128,14 +128,6 @@ SUB mo (x, y, an, s, w)
     depth = depth - 1
 END SUB
 
-SUB playsound (a$)
-    SHELL "c:\progra~1\winamp\winamp.exe " + a$
-    ' Temporarily switch to text mode
-    SCREEN 0
-    ' Switch back to graphics mode
-    SCREEN 7, , , 1
-END SUB
-
 SUB prn (x, y, msg$, siz, col1)
     IF x < 0 THEN GOTO prn1
     IF x > 319 THEN GOTO prn1
@@ -320,11 +312,6 @@ timer1:
 END SUB
 
 SUB turnon
-    ' Read user input
-    a$ = INPUT$(1)
-
-    ' Play sound
-    playsound "marine.mp3"
 
     SCREEN 7, , , 1