@title CAMremote-Dummy
rem by VP-Systems
rem 19-09-2009

m=0

goto "cr_fast"
rem goto "cr_normal"

rem CAMremote-1/2 (4-pin USB connector). Control Method: USB/CHDK
:cr_normal
print "CR: USB/CHDK"
while 1
   do
     a = get_usb_power
   until a>0
   print a
   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

rem CAMremote-2 (Mini USB connector).  Control Method: USB/CHDK+
:cr_fast
print "CR: USB/CHDK+"
while 1
   do
     a = get_usb_power
   until a>0
   if a<2 then gosub "shoot" else if a<4 then gosub "focus" else if a<6 then gosub "focusoff" else if a<8 then gosub "zin" else if a<10 then gosub "zout" else if a<12 then gosub "rec_video" else if a<14 then gosub "avup" else if a<16 then gosub "avdn" else if a<18 then gosub "tvup" else if a<20 then gosub "tvdn" else if a<22 then gosub "stop_video" else if a<42 then gosub "lensoff" else if a<52 then gosub "pwroff"

   a=0
wend
end

:shoot
  print "shoot:";a
  return

:rec_video
  if m=1 then return
  print "rec_video:";a
  m=1
  return

:stop_video
  if m=0 then return
  print "stop_video:";a
  m=0
  return

:video
  if m=0 then gosub "rec_video" else gosub "stop_video"
  return

:focus
  print "focus:";a
  return

:focusoff
  print "release:";a
  return

:zin
  print "zoomin:";a
  return

:zout
  print "zoomout:";a
  return

:avup
  print "Av+:";a
  return

:avdn
  print "Av-:";a
  return

:tvup
  print "Tv+:";a
  return

:tvdn
  print "Tv-:";a
  return

:capture
  print "capture:";a
  return

:lensoff
  print "lensoff not supported"
  return

:pwroff
  print "poweroff"

return