While designing and testing various sections of script I find that it would be nice if I had access to these same routines other than just in the script they were designed. Unfortunately, having too many "nice", short scripts on the camera would create more script files to jump over when loading scripts. This script is the method I used to create a single script that allows me to have multiple mini-scripts inside.

At first I thought about entering each mini-scripts input data real-time, but I wanted to avoid that when possible. I decided that I would try to work out a method by allowing each script parameter to have a different meaning with each mini-script.

After the "Utility" script has been loaded, the parameters will look like this on the OSD:

[pre]1Days:2DOF:3DMP:4Shots ( 1) 1Days:2DOF:3DMP:4Shots ( 2)
SD : mm : : SH ( 20) SD : mm : : SH ( 0)
SM : m : : SM ( 2) SM : m : : SM ( 39)
SY : : : EH ( 11) SY : : : EH ( 11)
ED : : : EM ( 27) ED : : : EM ( 27)
EM : : : IM ( 2) EM : : : IM ( 2)
EY : : : IS ( 11) EY : : : IS ( 11)[/pre]
Each mini-script is identified by the first parameter line and the mini-script is chosen by the number in the name of the min-script. If there are parameters for that mini-script, they are shown in the column just below the mini-script name.

Utility mini-scripts

1Days. This mini-script allows the user to determine the number of days between two dates (inclusive). The top three parameters for "1Days" are for the Start date where SD=day of month, SM=month, and SY=year. The bottom three parameters for "1Days" are for the End date where ED=day of month, EM=month, and EY=year. In the above example on the left, I have selected the 1st mini-script and set the Start date as 20/02/11 and the End date as 27/02/11.

2DOF. This mini-script allows a user to convert millimeters or meters to the english equivalents of feet/yds/inches. If you want to convert a value from "mm", then you would enter the number on the "mm" parameter line and make sure the "m" parameter line is 0. If you want to convert a value from "m", then you would enter the number on the "m" parameter line and make sure the "mm" parameter line is 0. In the above example on the right, I have selected the 2nd mini-script "2DOF" and will convert 39 meters into yards/feet/inches. Note: in this case the mini-script only uses the first three parameter lines for input, so the user needs to set the "mm" parameter line to 0 per the instructions in this paragrah. Since the "2DOF" ignores the bottom 4 parameter lines it won't matter what their values are.

3DMP. This is a mini-script that I created to dump the standard PropCas memory locations and save to a LOG file. This has helped me "discover" the PropCas locations and values for the SX20. The mini-script should work on any CHDK camera. It saves locations 1-600. The LOG file name is created using the current hour and minute of the camera (24 hr time clock). For example, the file name would look like "LOG_2023.TXT" and would be located in the CHDK/LOG folder. Naming the LOG files in this way will allow taking multiple snapshot dumps. I then compare the contents of two LOG files at the same time using one of the tools of the editor I use for CHDK scripts (TextPad).

4Shots. This mini-script calculates the maximum number of shots in a time period specified by the Start Hour (SH) and Start Minute (SM) and End Hour (EH) and End Minute (EM) using an interval specified by Interval Minutes (IM) and Interval Seconds (IS).

Special note: Since the CHDK UBasic is an interpreted script reader, any mini-script that is time sensitive should be located near the top of the "Utility" script in order to insure the fastest run times. You'll notice that while the "3DMP" mini-script is the 3rd in the parameter list, it is located near the top of the "Utiliy" script to insure it runs quicker.

Just save this script to your CHDK/SCRIPT folder as BAS.

rem Author SkyWalker9
@title Utilities
@param a 1Days:2DOF:3DMP:4Shots
@default a 1
@param b SD   : mm :    :  SH
@default b 1
@param c SM   :  m :    :  SM
@default c 1
@param d SY   :    :    :  EH
@default d 11
@param e ED   :    :    :  EM
@default e 1
@param f EM   :    :    :  IM
@default f 1
@param g EY   :    :    :  IS
@default g 11

  if a=1 then goto "option1"
  if a=2 then goto "option2"
  if a=3 then goto "option3"
  if a=4 then goto "option4"
  goto "done"

:option3
rem dump PropCas standard memory locations 1-600 to LOG file for comparison
  y=get_time 1
  x=get_time 2
  h=x*100+y
  if h<1 then h=1
  if h>9999 then h=9999
  print_screen h
  z=0
  for i=1 to 300
    x=i+300
    get_prop i u
    get_prop x v
    print "IDs="i"/"u" "x"/"v
    z=z+1
    if z=10 then print " "
    if z=10 then let z=0
  next i
  print_screen 0
  print "LOG_"h".TXT done"
  goto "done"
  
:option1
rem calculate the number of days between two dates (inclusive)
rem calculate what day of the year is the start day
  y=0
  Y=d
  for i=1 to c
    gosub "month_days"
    y=y+D
  next i
  B=y-(D - b)
rem calculate what day of the year is the end day
  y=0
  Y=g
  for i=1 to f
    gosub "month_days"
    y=y+D
  next i
  E=y-( D - e)
rem correct for overlapping years
  if g>d then let y=(365-B+1)+E else y=E-B+1
  print "Number of Days="y
  goto "done"
:month_days
  if (Y%4)=0 then x=29 else x=28
  select i
   case 1,3,5,7,8,10,12; let D=31 
   case 4,6,9,11; let D=30
   case_else let D=x
  end_select
  return

:option2
rem DOF conversion from m/mm to feet/yards/inches
 if b=0 then v=c*1000 else v=b
 w=v*3937/100000
 n=v*3937/1000
 m=n/10
 n=n-(m*10)
 m=m-(w*10)
 if n>5 then let m=m+1
 if b=0 then goto "feet" 
   print "DOF: "b" mm ("w"."m" inches)"
   goto "done"
:feet
   x=0
   m=w%12
   w=w/12
   x=w/3
   if x>=1 then w=w-(x*3)
   print "DOF: "c"m ("x"yd "w"ft "m"in)"
   goto "done"

:option4
rem Check input variables for proper values
  if f<0 then f=0
  if g<0 then g=0
  if b<0 then b=0
  if b>23 then b=23
  if c<0 then c=0
  if c>59 then c=59
  if d<0 then d=0
  if d>23 then d=23
  if e<0 then e=0
  if e>59 then e=59
  D=(f*600+g*10)*100
  if D<1 then D=1
  if d>=b then goto "ok1"
    print "START Time after END"
    end
:ok1
  N=((d*60+e)-(b*60+c))*60000
  n=N/D
  print "Number of shots="n

:done
end