diff --git a/conprtio.asm b/conprtio.asm
index 3350654..7b0671d 100644
--- a/conprtio.asm
+++ b/conprtio.asm
@@ -51,8 +51,11 @@ CINLP:	CALL	SYSENT		;(A)<--CHR (or 0 if nothing typed)
 	OR	A
 	JR	Z,CINLP		;wait for CHR to be typed
 	CP	RUBOUT
-	JR	NZ,CIN1
+	JR	NZ,CIN0
 	LD	A,BSOUT		;convert RUB to ^H
+CIN0:	CP	HT
+	JR	NZ,CIN1
+	LD	A,ABL		;convert HT to space
 CIN1:	RES	7,A		;(MSB)<--0
 	POP	BC
 	RET
diff --git a/figforth.asm b/figforth.asm
index 2467d8f..3bf31b2 100644
--- a/figforth.asm
+++ b/figforth.asm
@@ -74,6 +74,7 @@ ADOT	.EQU	2EH		;.
 BELL	.EQU	07H		;^G
 BSIN	.EQU	08H		;backspace chr = ^H
 BSOUT	.EQU	08H
+HT	.EQU	09H		;^T 
 DLE	.EQU	10H		;^P
 LF	.EQU	0AH		;^J
 FF	.EQU	0CH		;^L