From cf71beb7965c523e0654a93b982a79b29e769398 Mon Sep 17 00:00:00 2001
From: Roland Heyder <support@rhosigma-cw.net>
Date: Wed, 7 Feb 2024 20:45:55 +0100
Subject: [PATCH] 1.) Some case corrections

---
 source/ide/ide_methods.bas | 10 +++++-----
 source/qb64pe.bas          | 12 ++++++------
 2 files changed, 11 insertions(+), 11 deletions(-)

diff --git a/source/ide/ide_methods.bas b/source/ide/ide_methods.bas
index 09b6814c7..eb4b4ab37 100644
--- a/source/ide/ide_methods.bas
+++ b/source/ide/ide_methods.bas
@@ -5959,16 +5959,16 @@ FUNCTION ide2 (ignore)
             END IF
 
             IF menu$(m, s) = "#Start  F5" THEN
-               _KeyClear
-                Do: _Limit 15: Loop Until _KeyHit = 0 'wait for user to remove finger from F5 key before running
+                _KEYCLEAR
+                DO: _LIMIT 15: LOOP UNTIL _KEYHIT = 0 'wait for user to remove finger from F5 key before running
                 PCOPY 3, 0: SCREEN , , 3, 0
                 startPaused = 0
                 GOTO idemrun
             END IF
 
             IF menu$(m, s) = "Run #Only (No EXE)" THEN
-               _KeyClear
-                Do: _Limit 15: Loop Until _KeyHit = 0 'wait for user to remove finger from F5 key before running
+                _KEYCLEAR
+                DO: _LIMIT 15: LOOP UNTIL _KEYHIT = 0 'wait for user to remove finger from F5 key before running
                 PCOPY 3, 0: SCREEN , , 3, 0
                 NoExeSaved = -1
                 startPaused = 0
@@ -6403,7 +6403,7 @@ FUNCTION ide2 (ignore)
                         PCOPY 3, 0: SCREEN , , 3, 0
                     END IF '"Y"
                 END IF 'unsaved
-                IF UseGuiDialogs Then
+                IF UseGuiDialogs THEN
                     r$ = OpenFile$ (IdeOpenFile$) 'for new dialog file open routine.
                 ELSE
                     r$ = idefiledialog$("", 1) 'for old dialog file open routine.
diff --git a/source/qb64pe.bas b/source/qb64pe.bas
index 1ea88091d..d4a9c5313 100644
--- a/source/qb64pe.bas
+++ b/source/qb64pe.bas
@@ -2623,7 +2623,7 @@ DO
                 IF inclevel = 0 THEN
                     IF idemode THEN p$ = idepath$ + pathsep$ ELSE p$ = getfilepath$(sourcefile$)
                 ELSE
-                    p$ = getfilepath$(incname(inclevel))
+                    p$ = getfilepath$(incname$(inclevel))
                 END IF
                 f$ = p$ + a$
             END IF
@@ -3413,8 +3413,8 @@ DO
 
                     IF NOT _FILEEXISTS(MidiSoundFont$) THEN
                         ' Just try to concatenate the path with the source or include path and check if we are able to find the file
-                        IF inclevel > 0 AND _FILEEXISTS(getfilepath(incname(inclevel)) + MidiSoundFont$) THEN
-                            MidiSoundFont$ = getfilepath(incname(inclevel)) + MidiSoundFont$
+                        IF inclevel > 0 AND _FILEEXISTS(getfilepath(incname$(inclevel)) + MidiSoundFont$) THEN
+                            MidiSoundFont$ = getfilepath(incname$(inclevel)) + MidiSoundFont$
                         ELSEIF _FILEEXISTS(FixDirectoryName(path.source$) + MidiSoundFont$) THEN
                             MidiSoundFont$ = FixDirectoryName(path.source$) + MidiSoundFont$
                         ELSEIF _FILEEXISTS(FixDirectoryName(idepath$) + MidiSoundFont$) THEN
@@ -4403,7 +4403,7 @@ DO
 
                                     ' a740g: Fallback to source path
                                     IF inclevel > 0 THEN
-                                        libpath$ = getfilepath(incname(inclevel)) + og_libpath$
+                                        libpath$ = getfilepath(incname$(inclevel)) + og_libpath$
                                     ELSEIF NoIDEMode THEN
                                         libpath$ = FixDirectoryName(path.source$) + og_libpath$
                                     ELSE
@@ -4477,7 +4477,7 @@ DO
 
                                     ' a740g: Fallback to source path
                                     IF inclevel > 0 THEN
-                                        libpath$ = getfilepath(incname(inclevel)) + og_libpath$
+                                        libpath$ = getfilepath(incname$(inclevel)) + og_libpath$
                                     ELSEIF NoIDEMode THEN
                                         libpath$ = FixDirectoryName(path.source$) + og_libpath$
                                     ELSE
@@ -11381,7 +11381,7 @@ DO
                     IF inclevel = 0 THEN
                         IF idemode THEN p$ = idepath$ + pathsep$ ELSE p$ = getfilepath$(sourcefile$)
                     ELSE
-                        p$ = getfilepath$(incname(inclevel))
+                        p$ = getfilepath$(incname$(inclevel))
                     END IF
                     f$ = p$ + a$
                 END IF