@@ 815,10 815,11 @@ JMP2
#0020 .Screen/y DEO2
.selection/from LDZ2 ;get-current-marker JSR2
;get-marker JSR2 ;walk-color/scope STA2
- .scroll/y LDZ2 .textarea/lines LDZ2 ADD2 ;line-to-addr JSR2 .scroll/addr LDZ2
+ ;get-eof JSR2 INC2 .scroll/addr LDZ2
&loop
,draw-token JSR
.Screen/y DEI2 .Screen/height DEI2 GTH2 ,&end JCN
+ LDAk #00 EQU ,&end JCN
GTH2k ,&loop JCN
&end
POP2 POP2
@@ 831,14 832,17 @@ JMP2
;walk-color JSR2 STH
;walk-ul JSR2 ;draw-ufx/ul STA
&w
+ LDAk #00 EQU ,&end JCN
,&is-selected JSR STH
LDAk STH2kr #0d ROT ROT [ JMP SWP POP ] ;draw-ufx JSR2 POPr
INC2 LDAk #20 GTH ,&w JCN
#00 ;draw-ufx/ul STA
&w2
+ LDAk #00 EQU ,&end JCN
,&is-selected JSR STH
LDAk STH2kr #0d ROT ROT [ JMP SWP POP ] ;draw-ufx JSR2 POPr
INC2 LDAk #21 LTH ,&w2 JCN
+ &end
POPr
JMP2r