'Coutch Watcher

  dim x

  RCSTA=0 
  
  configio 0,1,2,3,4,5,6,8,9,10,11,12,13,14
  
  'Only need this if using carrer 1 board
  setio 11,12

  'Use this if port 11 and 12 are not held high
  'with resistors as they are with the 'Carrier1
  setio
  
  gosub blink
  p7irq 3

loop:
  sleep
  gosub soundalarm
  longpause 250,8
  goto loop

soundalarm:
  longpause 250,4
  high 1
  longpause 250,4
  low 1
  longpause 250,2
  high 1
  longpause 250,4
  low 1
  return

blink:
  for x = 1 to 20
    high 1
    pause 2
    low 1
    pause 50
    next
  return