From ee034bf0c6e938a12702cac4f05541037d097d86 Mon Sep 17 00:00:00 2001
From: Roland Heyder <support@rhosigma-cw.net>
Date: Fri, 22 Nov 2024 22:06:38 +0100
Subject: [PATCH] Export adjustment

- adapting code export for new SOUND variants WAIT and RESUME
---
 source/ide/ide_export.bas | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/source/ide/ide_export.bas b/source/ide/ide_export.bas
index 8397eda21..fc13cdd59 100644
--- a/source/ide/ide_export.bas
+++ b/source/ide/ide_export.bas
@@ -453,6 +453,9 @@ SUB ExportCodeAs (docFormat$)
             CASE "SELECT"
                 IF UCASE$(LEFT$(la$, 4)) = "CASE" THEN kw$ = kw$ + " " + LEFT$(la$, 4): page$ = "SELECT CASE": fu% = -1: bo% = -1: in% = -1
                 IF UCASE$(LEFT$(la$, 9)) = "EVERYCASE" THEN kw$ = kw$ + " " + LEFT$(la$, 9): page$ = "SELECT CASE": fu% = -1: bo% = -1: in% = -1
+            CASE "SOUND"
+                IF UCASE$(LEFT$(la$, 4)) = "WAIT" THEN kw$ = kw$ + " " + LEFT$(la$, 4): in% = -1
+                IF UCASE$(LEFT$(la$, 6)) = "RESUME" THEN kw$ = kw$ + " " + LEFT$(la$, 6): in% = -1
             CASE "VIEW": IF UCASE$(LEFT$(la$, 5)) = "PRINT" THEN kw$ = kw$ + " " + LEFT$(la$, 5): page$ = "VIEW PRINT": in% = -1
             CASE "INPUT", "PRINT", "WRITE": IF LEFT$(la$, 1) = "#" THEN page$ = page$ + " (file statement)"
         END SELECT