*20
/THIS IS A PROGRAM TO ACCEPT ALPHA-
/NUMERIC DATA FROM THE TT,STORE IT
/AND REPEAT IT ON COMMAND.
	*20
START,	CLR
	IOB
	TLS
	IOB
	KCC
	TLS=6046
	KCC=6032
	SET I 17
	7777
	CRLF
	CRLF
	LISN
	TYPE
	BCL I
	7700
	STH I 17
	SNS 0
	JMP .-6
	CRLF
	SET I 16
	7777
A,	LDH I 16
	ADA I
	-37
	APO I
	JMP .+3
	ADA I
	100
	ADA I
	237
	TYPE
	LDA
	16
	SAE
	17
	JMP A
	JMP START
TYPO,	PDP
	PMODE
	TSF
	JMP .-1
	TLS
	LINC
	LMODE
	JMP 0
LIS,	PDP
	PMODE
	KSF
	JMP .-1
	KRB
	LINC
	LMODE
	JMP 0
CR,	SET 1
	0
	LDA I
	215
	TYPE
	LDA