procedure loop
	DigitalWrite(13, HIGH)
	Delay(3000)
	DigitalWrite(13, LOW)
	Delay(1000)
end