' FLASH1.Bas - PICAXE 18X
'
' Simple Flash Routine.  Continually loops.  If Input.0 (term 17) is at logic one
' rapid (200 ms) flash of LED on Output.0 (term 6).  Otherwise, slow flash.
'
' Pullup Resistor required on Input.0.
'
' Uses 24 of 2048 bytes.
'
' copyright, Peter H Anderson, Baltimore, MD, Jan , '04


Symbol  DelayVal = W0

Top:
     If INPUT0 = 0 Then SLOW	' 400 ms
        DelayVal = 200		' 200 ms
        Goto CONTINUE
SLOW:
     DelayVal = 400

CONTINUE:
 	 High OUTPUT0
     Pause DelayVal
     Low OUTPUT0
     Pause DelayVal
     Goto Top