-Screen
@loop
	DUP DUP STA   ( draw pixel )
	INC DUP       ( overflow check )
	JNZ ,loop
@infinite
	SLP
	JMP ,infinite