1 files changed, 8 insertions(+), 9 deletions(-)

M src/left.tal

@@ 808,17 808,17 @@ JMP2
 		.Screen/y DEI2k #0040 ADD2 ROT DEO2
 		INC GTHk ,&h JCN
 	POP2
-	#15 .Screen/auto DEO
-
+	( setup )
+	.selection/from LDZ2 ;get-current-marker JSR2
+		;get-marker JSR2 ;walk-color/scope STA2
 	( paint )
 	#0010 .scroll/x LDZ2 SUB2 #0080 ADD2 .Screen/x DEO2
 	#0020 .Screen/y DEO2
-	.selection/from LDZ2 ;get-current-marker JSR2
-		;get-marker JSR2 ;walk-color/scope STA2
+	#15 .Screen/auto DEO
 	;get-eof JSR2 INC2 .scroll/addr LDZ2
 	&loop
 		,draw-token JSR
-		.Screen/y DEI2 .Screen/height DEI2 GTH2 ,&end JCN
+		.Screen/y DEI2 .Screen/height DEI2 #0010 SUB2 GTH2 ,&end JCN
 		LDAk #00 EQU ,&end JCN
 		GTH2k ,&loop JCN
 	&end


@@ 832,16 832,15 @@ 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
+	( reset ul ) #00 ;draw-ufx/ul STA
+	( reset color ) POPr LITr 01
 	&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
+		INC2 LDAk #01 SUB #20 LTH ,&w2 JCN
 	&end
 	POPr