Slightly better cursor handling for VIDEX

src/libsrc/apple/conio.pla

@@ -673,8 +673,8 @@ def a2ctrl80v(code, param)#1
                 is OFF
                     flags = flags & ~showcurs
                     ^$C0B0 = $0A
-                    ^$C0B1 = $0F
-                    //break
+                    ^$C0B1 = $20
+                    break
                 is INVERSE
                     flags = flags | showcurs
                     ^$C0B0 = $0A

src/toolsrc/ed.pla

@@ -45,7 +45,7 @@ word arg
 word strpool, strplmapsize, strpoolmap
 word txtlinbuf, cliplinbuf
 word cursx, cursy, cursrow, curscol, selrow
-word cursflash = 300 // default cursor flash delay
+word cursflash = 400 // default cursor flash delay
 //
 // Predeclared functions
 //
@@ -1074,11 +1074,11 @@ def keyin
     curschr  = flags & insmode ?? '+' :: '_'
     repeat
         conio:gotoxy(cursx, cursy)
-        conio:textctrl(ctrlattr, INVERSE)
         conio:putchars(1, curschr)
         conio:gotoxy(cursx, cursy)
+        conio:textctrl(ctrlattr, INVERSE)
         waitkey
-        conio:textctrl(ctrlattr, NORMAL)
+        conio:textctrl(ctrlattr, OFF)
         conio:putchars(1, underchr)
         conio:gotoxy(cursx, cursy)
         waitkey