================================================================
  File....... Alarm #1 
  Purpose.... To sound an alarm when a beam of light is broken
  Author..... Peter Quello
  Started.... 21 Jan 2005
  Updated.... 21 Jan 2005
================================================================
 

DO

  DO

  FREQOUT 1, 10, 38500 'PULSE IR LED

  LOOP UNTIL IN0 = 1 'LOOP UNTIL BEAM IS BLOCKED

  FREQOUT 2, 1000, 4000 'SOUND THE ALARM

LOOP 