1 files changed, 6 insertions(+), 2 deletions(-)

M src/manifest.tal

@@ 171,14 171,18 @@
 	( | fg )
 	#00 ;<draw-glyph-ascii>/color STA
 	.Screen/y DEI2 #0010 SUB2 .Screen/y DEO2
-	( right ) .Screen/x DEI2 STH2k #007c ADD2 .Screen/x DEO2
+	( | right )
+	[ LITr -Screen/x ] DEI2r
+	( ) DUP2r [ LIT2r 007c ] ADD2r [ LITr -Screen/x ] DEO2r
 	LDA2k get-modkey-str <draw-str-right>
 	POP2
-	( left ) STH2r #0004 ADD2 .Screen/x DEO2
+	( | left )
+	[ LIT2r 0004 ] ADD2r [ LITr -Screen/x ] DEO2r
 	#0004 ADD2 !<draw-str>
 
 @get-modkey-str ( mod key -- str* )
 	;&buf #0008 mclr
+	( ) ORAk ?{ POP2 ;&buf JMP2r }
 	( | mod )
 	SWP STH
 	#0800