#define CONFIG_FILE_NAME 'example.conf'
#include 'config.sqh'


begin-program
do config_load

while 1
   input $name 'Config Option (Enter "exit" to quit)'
   if upper($name) = 'EXIT'
      break
   end-if
   do config_find($name, $value, #ndx)
   if #ndx = -1
      show '"' $name '" not found'
      input $yn 'Create a new value (Y/N)'
      if upper($yn ) = 'Y'
         input $new_value 'Enter a new value'
         do config_set($name, $new_value)
      end-if
   else
      show 'Current value for "' $name '" is "' $value '"'
      input $yn 'Change to a new value (Y/N)'
      if upper($yn ) = 'Y'
         input $new_value 'Enter a new value'
         do config_set($name, $new_value)
      end-if
   end-if
end-while

let $comment = 'Last changed:  ' || edit($current-date, 'YYYY/MM/DD HH24:MI:SS')
do config_save($comment)
end-program