>---------!----!---------------------------------------------------------------R
AUTO
	REM Downloaded from Tim's Amstrad NC User's Site
	REM http://www.ncus.org.uk
	DIM CODE 50
	P%=CODE
	[
	LD A,&43
	OUT &11,A
	LD BC,&FFC
	LD HL,&7000
	LD A,(&B3BB)
	LD D,A
	XOR A
.MARKE 	XOR D
	ADD A,175
	RRCA
	LD D,A
	LD (HL),A
	INC HL
	DEC BC
	LD A,B
	OR C
	JR NZ MARKE
	RET
	LD A,&41
	OUT &11,A
	]
	REPEAT
	CALL CODE
	UNTIL 0
	END