From b748f7b209e439cf32e4e71689d0c9065988715d Mon Sep 17 00:00:00 2001
From: Fellippe Heitor <fellippeheitor@gmail.com>
Date: Fri, 16 Jul 2021 00:02:56 -0300
Subject: [PATCH] Allows toggling breakpoints while running.

---
 source/utilities/vwatch.bm | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/source/utilities/vwatch.bm b/source/utilities/vwatch.bm
index 8cc74f58a..d9a80a400 100644
--- a/source/utilities/vwatch.bm
+++ b/source/utilities/vwatch.bm
@@ -65,7 +65,16 @@ SUB vwatch (linenumber AS LONG)
     lastLine = linenumber
 
     GOSUB GetCommand
-    IF cmd$ = "break" THEN pauseMode = -1: stepOver = 0: cmd$ = ""
+    SELECT CASE cmd$
+        CASE "break"
+            pauseMode = -1
+            stepOver = 0
+            cmd$ = ""
+        CASE "set breakpoint"
+            vwatch_breakpoints(CVL(value$)) = -1
+        CASE "clear breakpoint"
+            vwatch_breakpoints(CVL(value$)) = 0
+    END SELECT
 
     IF stepOver = -1 AND vwatch_sublevel > startLevel AND vwatch_breakpoints(linenumber) = 0 THEN
         EXIT SUB