Nemesis
'Athena Logic Prob


  hwpwm 0,255,0
  output 6
  output 14
  
  dim dat

   CMCON = 4
   gosub gotchange


loop:
   if  PIR2 & 64 = 64 then
     gosub gotchange
     PIR2 = 0
   endif
   goto loop



gotchange:
   gosub blink
   dat = CMCON & 192 / 64
   branch dat,none,tlow,thigh
   return

none:
   hwpwm 0,255,0
   return

tlow:
   hwpwm 0,255,30
   return

thigh:
   hwpwm 0,255,255
   return

blink:
   hwpwm 0,255,0
   signal 14,10,25
   hwpwm 0,255,255
   pause 25
   hwpwm 0,255,0
   return