'Simple IR Gag
func main()
  dim cmd

  'Used to power IR Reciever Module
  'Port 0 is IR Mod input
  output 1,2
  low 1 'Port 1 Gnd
  high 2 'Port 2 +5v

  IRinitsend()


loop: 
     'pause 10

    cmd = IRread(0,10000)

    if cmd = 0 then
       goto loop
    endif

   

    print IRcmd," ",IRdevice
    
     if IRcmd = 19 then
       dovolup()
       goto loop
     endif

     if IRcmd = 18 then
       dovoldown()
       goto loop
     endif

endfunc

'Force the Channel back down
func dovolup()
  dim x
  pause 5000

  for x = 1 to 40
    IRsendcode(1,18)
    pause 50
  next

  pause 1000
endfunc

'Force the Channel back up
func dovoldown()
  dim x
  pause 5000

  for x = 1 to 40
    IRsendcode(1,19)
    pause 50
  next

  pause 1000
endfunc



include \lib\DiosIR.lib