PROG	START	BEGIN
BEGIN	IN	INBUF,LENG
	LD	GR3,LENG
	CPA	GR3,C0
	JZE	LAST
	CPA	GR3,C8
	JZE	GOOD
	OUT	ERMSG,C9
	JMP	BEGIN
GOOD	LD	GR0,ZERO
	LD	GR1,C0
	LD	GR2,SPACE
LOOP	CPA	GR1,C7
	JPZ	OUTPUT
	CPL	GR0,INBUF,GR1
	JNZ	OUTPUT
	ST	GR2,INBUF,GR1
	LEA	GR1,1,GR1
	JMP	LOOP
OUTPUT	OUT	INBUF,C8
	JMP	BEGIN
LAST	EXIT
LENG	DS	1
ZERO	DC	'0'
SPACE	DC	' '
C0	DC	0
C7	DC	7
C8	DC	8
C9	DC	9
INBUF	DS	80
ERMSG	DC	'ERROR'
	END