LOOP:	CHAR	READC	.+1	; Read a char
	WRITEC	CHAR	.+1	; Write that char back out
	CHAR	CHAR	LOOP	; Reset character to zero
	NEG1	ZERO	LOOP	; Loop
CHAR:	0			; the character
NEG1:	-1			; needed for GOTO
ZERO:	0			; needed for GOTO