;;xxxxxxxx
.z80

	;ctail = 'gotcha' M Lesser

ctail::
	ld de,80h
	ld a,(de)
	ld (hl),a
	or a
	ret z
	inc de
blank:	dec (hl)
	ret z
	inc de
	ld a,(de)
	cp ' '
	jr z,blank
	inc hl
	ld (hl),e
	inc hl
	ld (hl),d
	ret

	end