3000 31b0 0000 S ... C64-TEXT.A
	PN	C64-TEXTE
	ORG	0EB00H
;
START:	RST	020H
	DB	2
	DB	'Textan'
	DB	'fang :'
	DB	0A0H
	RST	020H
	DB	16
	LD	DE,(016H)
	RST	020H
	DB	3
	PUSH	HL
	RST	020H
	DB	2
	DB	'Text'
	DB	'ende   :'
	DB	0A0H
	RST	020H
	DB	16
	LD	DE,(016H)
	RST	020H
	DB	3
;
	EX	DE,HL
	POP	HL
GOON:	LD	A,M
	CMP	041H
	JRC	SETT-#
	CMP	060H
	JRNC	NKLB-#
	ADD	020H
NKLB:	AND	07FH
SETT:	LD	M,A
	INC	HL
	PUSH	HL
	XOR	A
	SBC	HL,DE
	POP	HL
	JRC	GOON-#
	RST	038H
	END
;
	END