1 files changed, 12 insertions(+), 11 deletions(-)

M src/left.tal

@@ 988,17 988,6 @@ JMP2r
 JMP2r
 	&empty-txt "Empty $1
 
-@draw-filepath ( color -- )
-
-	DUP ;draw-position JSR2
-	DUP ;draw-chr/color STA
-	#04 ;get-catx JSR2 .Screen/x DEO2
-	#0004 .Screen/y DEO2
-	;filepath ;draw-str JSR2 POP2
-	;draw-position ( .. )
-
-JMP2
-
 @draw-state ( state -- )
 
 	#25 .Screen/auto DEO


@@ 1012,9 1001,11 @@ JMP2r
 @get-strw ( str* -- width* )
 
 	LIT2r 0000
+	LDAk #00 EQU ,&skip JCN
 	&while
 		LDAk #0000 ROT ;font ADD2 LDA STH2 ADD2r
 		INC2 LDAk ,&while JCN
+		&skip
 	POP2
 	STH2r
 


@@ 1059,6 1050,16 @@ JMP2r
 JMP2r
 	&truncate LIT ". DUP ,draw-chr JSR ,draw-chr JMP
 
+@draw-filepath ( color -- )
+
+	DUP ;draw-position JSR2
+	DUP ;draw-chr/color STA
+	#04 ;get-catx JSR2 .Screen/x DEO2
+	#0004 .Screen/y DEO2
+	;filepath ;draw-str JSR2 POP2
+
+( , )
+
 @draw-position ( color -- )
 
 	#04 ;get-catx JSR2