@@ 322,11 322,13 @@ BRK
&ver-end
POP2r
( goto x )
+ #00 .textarea/fixed STZ
( b ) .Mouse/x DEI2 .scroll/x LDZ2 ADD2 #0090 SUB2 STH2
( a ) LIT2r 0000
&hor
LDAk #0a EQU ?&hor-end
- get-width STH2 ADD2r
+ walk-color POP
+ LDAk get-chrw STH2 ADD2r
LTH2kr STHr ?&hor-end
INC2 LDAk ?&hor
&hor-end
@@ 457,7 459,7 @@ JMP2r
DUP2 find-line-start
&l
EQU2k ?&end
- get-width STH2 ADD2r
+ LDAk get-chrw STH2 ADD2r
INC2 GTH2k ?&l
&end
POP2 POP2
@@ 840,9 842,6 @@ JMP2r
( rune )
DUP2 is-rune #00 EQU ?&no-rune
#01 ;draw-ufx/ul STA
- ( color ) is-selected #0c MUL INC DUP ,&color STR ;draw-ufx/color STA
- ( glyph ) LDAk ;runes cndx #50 SFT2 ;rune-icns ADD2 #08 ROT ROT draw-ufx/seg
- INC2 !&w
&no-rune
( color ) walk-color ,&color STR
&w