--- gforth/Attic/primitives	1994/06/17 12:35:14	1.9
+++ gforth/Attic/primitives	1994/07/07 14:59:24	1.10
@@ -185,10 +185,14 @@ n = rp[2];
 
 \ digit is high-level: 0/0%
 
-emit	c --		fig
+(emit)	c --		fig	paren_emit
 putchar(c);
 emitcounter++;
 
+(type)	c_addr n --	fig	paren_type
+fwrite(c_addr,sizeof(Char),n,stdout);
+emitcounter += n;
+
 key	-- n		fig
 fflush(stdout);
 /* !! noecho */