diff --git a/images/apple/PLASMA-2.20.po b/images/apple/PLASMA-2.20.po index e76dc18..73ee8e9 100644 Binary files a/images/apple/PLASMA-2.20.po and b/images/apple/PLASMA-2.20.po differ diff --git a/src/libsrc/apple/conio.pla b/src/libsrc/apple/conio.pla index 56ad4f9..b93dc89 100644 --- a/src/libsrc/apple/conio.pla +++ b/src/libsrc/apple/conio.pla @@ -669,19 +669,19 @@ def a2ctrl80v(code, param)#1 handled = TRUE break is ctrlcursor - 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 + when param + is OFF + ^$C0B0 = $0A + ^$C0B1 = $20 + break + is INVERSE + ^$C0B0 = $0A + ^$C0B1 = $00 + break + otherwise + ^$C0B0 = $0A + ^$C0B1 = $C0 + wend handled = TRUE break is ctrlscroll diff --git a/src/toolsrc/ed.pla b/src/toolsrc/ed.pla index e5adf79..afbcbff 100755 --- a/src/toolsrc/ed.pla +++ b/src/toolsrc/ed.pla @@ -1072,13 +1072,15 @@ def keyin underchr = curscol >= ^(txtlinbuf=>[cursrow]) ?? ' ' :: txtlinbuf=>[cursrow]->[curscol + 1] curschr = flags & insmode ?? '+' :: '_' + conio:gotoxy(cursx, cursy) repeat - conio:gotoxy(cursx, cursy) + conio:textctrl(ctrlattr, INVERSE) conio:putchars(1, curschr) conio:gotoxy(cursx, cursy) - conio:textctrl(ctrlattr, INVERSE) + conio:textctrl(ctrlcursor, INVERSE) waitkey - conio:textctrl(ctrlattr, OFF) + conio:textctrl(ctrlcursor, OFF) + conio:textctrl(ctrlattr, NORMAL) conio:putchars(1, underchr) conio:gotoxy(cursx, cursy) waitkey