diff --git a/src/toolsrc/ed.pla b/src/toolsrc/ed.pla
index e989d9b..9d7c04c 100755
--- a/src/toolsrc/ed.pla
+++ b/src/toolsrc/ed.pla
@@ -993,9 +993,17 @@ def keyin3
     return key | $80
 end
 def keyin2e
-    byte key
+    byte key, vbl
     repeat
-        cursflash
+        vbl = ^$C019
+        if flags & showcurs
+            if flash == 0
+                ^cursptr = curschr
+            elsif flash == 128
+                ^cursptr = underchr
+            fin
+            if vbl ^ ^$C019; flash = flash + 8; fin
+        fin
         key = ^keyboard
     until key >= 128
     ^keystrobe