2 files changed, 14 insertions(+), 8 deletions(-)

M src/manifest.tal
M src/nasu.tal

@@ 315,19 315,12 @@ JMP2r
 @draw-str ( str* -- nextstr* )
 
 	&while
-		LDAk ,draw-chr JSR
+		LDAk ;draw-chr JSR2
 		INC2 LDAk ,&while JCN
 	INC2
 
 JMP2r
 
-@draw-chr ( char -- )
-
-	#20 SUB #00 SWP #30 SFT2 ;font ADD2 &raw .Screen/addr DEO2
-	[ LIT &color 01 ] .Screen/sprite DEO
-
-JMP2r
-
 ( theme )
 
 @load-theme ( -- )

@@ 1056,6 1056,19 @@ JMP2r
 
 JMP2r
 
+@draw-chr ( char -- )
+
+	#20 SUB #00 SWP #30 SFT2 ;font ADD2 &raw .Screen/addr DEO2
+	[ LIT &color 01 ] .Screen/sprite DEO
+
+JMP2r
+
+@get-strw ( str* -- width* )
+
+	;slen JSR2 #30 SFT2
+
+JMP2r
+
 ( file )
 
 @file-new ( -- )