diff --git a/SMILEBASIC/dialog.d b/SMILEBASIC/dialog.d
index 1f8b9a1..cd40f19 100644
--- a/SMILEBASIC/dialog.d
+++ b/SMILEBASIC/dialog.d
@@ -301,7 +301,7 @@ class Dialog : DialogBase
         }
         auto startmaincnt = petitcom.maincnt;
         auto oldbutton = petitcom.button;
-        while (!isPressed)
+        while (!isPressed && petitcom.running && !petitcom.quit)
         {
             auto pbutton = petitcom.button;
             auto button = pbutton ^ oldbutton & pbutton;