Try again for VIDEX cursor control

2026-04-21 07:17:03 +00:00 · 2025-03-03 14:13:01 -08:00
parent 348b45a7d8
commit f56784b275
3 changed files with 14 additions and 18 deletions
@@ -669,23 +669,19 @@ def a2ctrl80v(code, param)#1
            handled = TRUE
            break
        is ctrlcursor
-            when param
-                is OFF
-                    flags = flags & ~showcurs
-                    ^$C0B0 = $0A
-                    ^$C0B1 = $20
-                    break
-                is INVERSE
-                    flags = flags | showcurs
-                    ^$C0B0 = $0A
-                    ^$C0B1 = $00
-                    break
-                otherwise
-                    flags = flags | showcurs
-                    ^$C0B0 = $0A
-                    ^$C0B1 = $C0
-                    break
-            wend
+            if param == OFF
+                flags = flags & ~showcurs
+                ^$C0B0 = $0A
+                ^$C0B1 = $20
+            elsif param == INVERSE
+                flags = flags | showcurs
+                ^$C0B0 = $0A
+                ^$C0B1 = $00
+            else
+                flags = flags | showcurs
+                ^$C0B0 = $0A
+                ^$C0B1 = $C0
+            fin
            handled = TRUE
            break
        is ctrlscroll
@@ -45,7 +45,7 @@ word arg
 word strpool, strplmapsize, strpoolmap
 word txtlinbuf, cliplinbuf
 word cursx, cursy, cursrow, curscol, selrow
-word cursflash = 400 // default cursor flash delay
+word cursflash = 500 // default cursor flash delay
 //
 // Predeclared functions
 //