'Light Watcher
  
  const speaker 6
  SIGNALRES = 0


  dim loncount
  dim dcounter
  dim beepcounter
  dim x
  clearall

  RCSTA=0
  gosub lightoff
  configio 0,1,2,3,4,5,6,8,9,10,11,12,13,14
  p7irq 3

loop:
   'print loncount," ",dcounter," ",beepcounter
   onportgosub 7,lightoff,lightflash

   if loncount=0 then
       gosub alarm
   endif
   if dcounter = 100 then
      goto gotobed
   endif


   goto loop


'-------------------------------------
gotobed:
   'print "going to sleep"
   sleep
   low speaker
   'print "wake up"
   dcounter=0
   gosub lightoff
   goto loop


'------------------------------------
lightoff:
   'print "lighoff"
   setvarb loncount,100
   dcounter = dcounter + 1
   beepcounter=0
   return

'------------------------------------
lightflash:
   'print "light Flash"
   loncount = loncount - 1
   pause loncount * 2
   dcounter=0
   signal speaker,6,5 'Click
   return

'------------------------------------
alarm:
  if beepcounter=4 then
    goto beepalarm
  endif
  
  beepcounter = beepcounter + 1
  for x = 1 to beepcounter * 2
    gosub beepit
  next
  setvarb loncount,100
  return


beepalarm:
  gosub beepit
  onportgoto 7,beepalarmexit,beepalarm
beepalarmexit:
  beepcounter = 0
  setvarb loncount,100
  return

'------------------------------------
beepit:
  signal speaker,100,50
  signal speaker,200,25
  return