procedure setup end procedure loop LEDWrite(HIGH) Delay(2000) LEDWrite(LOW) Delay(500) end