Tweaks to connection between IDE and program.

Also: makes it compatible with Option _Explicit

source/ide/ide_methods.bas

@@ -6025,9 +6025,9 @@ SUB DebugMode
         IF LEFT$(program$, 2) = "./" THEN program$ = MID$(program$, 3)
 
         IF program$ <> lastBinaryGenerated$ THEN
+            clearStatusWindow
             COLOR 7, 1
             _PRINTSTRING (2, idewy - 3), "Failed to initiate debug session."
-            clearStatusWindow
             dummy = DarkenFGBG(0)
             PCOPY 3, 0
             EXIT SUB
@@ -6062,10 +6062,6 @@ SUB DebugMode
                 l = CVL(RIGHT$(a$, 4))
             END IF
 
-            idecy = l
-            ideshowtext
-            PCOPY 3, 0
-
             k& = _KEYHIT
             IF k& = 16896 THEN 'F8
                 PauseMode = -1
@@ -6074,7 +6070,11 @@ SUB DebugMode
             IF IdeBreakpoints(l) = 0 AND PauseMode = 0 THEN
                 a$ = "run" + endc$
                 PUT #client&, , a$
+                dummy = DarkenFGBG(1)
             ELSE
+                idecy = l
+                ideshowtext
+                PCOPY 3, 0
                 DO
                     k& = _KEYHIT
                     IF k& = 27 THEN

source/utilities/vwatch.bm

@@ -1,6 +1,8 @@
 $CHECKING:OFF
+
 SUB vwatch (linenumber AS LONG)
     STATIC AS LONG ide, bypass
+    DIM endc$, start!, me$, temp$, buffer$, k&
 
     IF bypass THEN EXIT SUB
 
@@ -19,9 +21,11 @@ SUB vwatch (linenumber AS LONG)
 
         'start! = TIMER
         DO
+            k& = _KEYHIT
             GET #ide, , temp$
             buffer$ = buffer$ + temp$
-        LOOP UNTIL INSTR(buffer$, endc$) > 0 'OR TIMER - start! > 2
+            _LIMIT 100
+        LOOP UNTIL k& = 27 OR INSTR(buffer$, endc$) > 0 'OR TIMER - start! > 2
 
         buffer$ = LEFT$(buffer$, INSTR(buffer$, endc$) - 1)
         IF buffer$ <> "vwatch:ok" THEN
@@ -38,7 +42,9 @@ SUB vwatch (linenumber AS LONG)
         DO
             GET #ide, , temp$
             buffer$ = buffer$ + temp$
-        LOOP UNTIL INSTR(buffer$, endc$) > 0
+            k& = _KEYHIT
+            _LIMIT 100
+        LOOP UNTIL k& = 27 OR INSTR(buffer$, endc$) > 0
 
         buffer$ = LEFT$(buffer$, INSTR(buffer$, endc$) - 1)
         IF buffer$ = "run" THEN