2 files changed, 9 insertions(+), 7 deletions(-)

M etc/cream.uf2
M src/left.tal

@@ 843,9 843,6 @@ JMP2r
 	LDAk LIT ": EQU ,&bold JCN
 	LDAk LIT "; EQU ,&bold JCN
 	LDAk LIT ". EQU ,&bold JCN
-	LDAk LIT "# EQU ,&bold JCN
-	LDAk LIT "@ EQU ,&bold JCN
-	LDAk LIT "& EQU ,&bold JCN
 	#00
 
 JMP2r


@@ 900,24 897,29 @@ JMP2r
 
 &seg ( width addr* -- )
 
-	DUP2 ,&addr STR2
 	.Screen/addr DEO2
 	STHk #00 SWP .Screen/x DEI2 DUP2 ,&anchor STR2 ADD2
 	[ LIT &color $1 ] .Screen/sprite DEOk
 	STHkr #09 LTH [ JMP DEOk POP2 ]
 
 	[ LIT &bold $1 ] #00 EQU ,&no-bold JCN
-		[ LIT2 &anchor $2 ] INC2 .Screen/x DEO2
-		[ LIT2 &addr $2 ] .Screen/addr DEO2
+		[ LIT2 &anchor $2 ] .Screen/x DEO2
+		;underline-icn .Screen/addr DEO2
 		,&color LDR #03 AND #05 MUL .Screen/sprite DEOk
 		STHkr #09 LTH [ JMP DEOk POP2 ]
-		INC2
 		&no-bold
 	POPr
 	.Screen/x DEO2
 
 JMP2r
 
+@underline-icn
+	0000 0000 0000 0000
+	0000 0000 00ff 0000 
+	0000 0000 0000 0000 
+	0000 0000 00ff 0000
+
+
 @draw-special ( char -- )
 
 	[ #09 ] NEQk NIP ,&no-tab JCN