From 016e99be0fcd4d318f8d4db7a34935f76bc4d93e Mon Sep 17 00:00:00 2001
From: Svjatoslav Agejenko <svjatoslav@svjatoslav.eu>
Date: Tue, 15 Oct 2024 22:02:29 +0300
Subject: [PATCH] Refactoring code for better readability

---
 Graphics/Presentations/joulud.bas | 13 -------------
 1 file changed, 13 deletions(-)

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
 
-- 
2.20.1