' FLASH1.Bas - PICAXE 08
'
' Simple Flash Routine.  Continually loops.  If Pin3 (term 4) is at logic one
' rapid (200 ms) flash of LED on Pin1 (term 6).  Otherwise, slow flash.
'
' Pullup Resistor (10K or similar) required on Pin3.
'
' Uses 24 of 128 bytes.
'
' copyright, Peter H Anderson, Elmore, VT,  July , '04


Top:
     If Pin3 = 1 Then Rapid
     ' else
Slow:
     High 1
     Pause 1000
     Low 1
     Pause 1000
     Goto TOP

Rapid:
     High 1
     Pause 200
     Low 1
     Pause 200
     Goto TOP