Merge pull request #572 from QB64-Phoenix-Edition/export-adjustments-…

…sound Export adjustment
QB64-Phoenix-Edition · Nov 22, 2024 · 40259cd · 40259cd
2 parents f514303 + ee034bf
commit 40259cd
Showing 1 changed file with 3 additions and 0 deletions.
diff --git 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