@title CAMremote
rem by VP-Systems
rem 29-06-2010

while 1
   do
      a = get_usb_power
   until a>0
   if a<3 then gosub "shoot" else if a<9 then gosub "focus" else if a<14 then gosub "focusoff" else if a<21 then gosub "zin" else if a<28 then gosub "zout" else if a<35 then gosub "rec_video" else if a<41 then gosub "avup" else if a<47 then gosub "avdn" else if a<53 then gosub "tvup" else if a<59 then gosub "tvdn" else if a<67 then gosub "stop_video" else if a<77 then gosub "pwroff"

   a=0
wend
end

:shoot
  print "shoot:";a
  press "shoot_full"
  sleep 1500
  release "shoot_full"
  release "shoot_half"
  return

:focus
  print "focus:";a
  press "shoot_half"
  return

:focusoff
  print "release:";a
  release "shoot_half"
  return

:zin
  print "zoomin:";a
  click "zoom_in"
  release "shoot_half"
  return

:zout
  print "zoomout:";a
  click "zoom_out"
  release "shoot_half"
  return

rec_video:
avup:
avdn:
tvup:
tvdn:
stop_video:
pwroff:
  print "not supported:";a
  return

return