Work around VIDEX capturing CTRL-S

src/toolsrc/ed.pla

@@ -1059,13 +1059,14 @@ end
 //
 // Keyboard routines
 //
-def waitkey#0
+def waitkey#1
     word delay
 
     delay = cursflash
     while not conio:keypressed() and delay
         delay--
     loop
+    return delay == 0
 end
 def keyin
     byte key, underchr, curschr
@@ -1078,14 +1079,17 @@ def keyin
         conio:putchars(1, curschr)
         conio:gotoxy(cursx, cursy)
         conio:textctrl(ctrlcursor, INVERSE)
-        waitkey
-        conio:textctrl(ctrlcursor, OFF)
-        conio:textctrl(ctrlattr, NORMAL)
-        conio:putchars(1, underchr)
-        conio:gotoxy(cursx, cursy)
-        waitkey
+        if waitkey
+            conio:textctrl(ctrlcursor, OFF)
+            conio:textctrl(ctrlattr, NORMAL)
+            conio:putchars(1, underchr)
+            conio:gotoxy(cursx, cursy)
+            waitkey
+        fin
     until conio:keypressed()
     key = conio:getkey()
+    conio:textctrl(ctrlcursor, OFF)
+    conio:textctrl(ctrlattr, NORMAL)
     if key & keyoptmod // Closed-Apple/Option pressed
         when key & ~keyoptmod
             is keyarrowleft