set_switch () {
             set +e                                                        ;
             for Arg in "$@"                                               ;
             do
               Switch=`expr "$Arg" : "\([^ ]*\) *="`                       ;
               Expression=`expr "$Arg" : ".*= *\(.*\)"`                    ;
               if [ `expr "$Expression" : "[0-9]"` -ne 0 ] ; then 
                 Value=`echo "$Expression" | bc`                           ;
               else
                 Value=$Expression                                         ;
               fi                                                          ;
               eval "$Switch=$Value"                                       ;
               if [ `expr $Switch : "j"` -eq 0 ] ; then 
                 sed "/^$Switch/d" Switches > Tmp_switches 2>/dev/null     ; 
                 mv Tmp_switches Switches                                  ;
                 echo "$Switch $Value" >> Switches                         ;
               fi                                                          ;
             done                                                          ;
             set -e                                                        ;
           }
           get_switch () {
             set +e                                                        ;
             for Arg in $@                                                 ;
             do 
               if [ `expr $Arg : "j"` -eq 0 -a -f Switches ] ; then
                 eval "$Arg"=`sed -n "/^$Arg /s///p" Switches 2>/dev/null` ;
               fi                                                          ;
             done                                                          ;
             set -e                                                        ;
           }
           read_data () {
             if [ -s mkdata ] ; then rm mkdatap ; ln mkdata mkdatap ; rm mkdata ; fi ;
             sed -f read_data.sedfil > mkdata                              ;
             chmod u+x mkdata                                              ;
             . mkdata                                                      ;
           }
           rmf=`whereis rm`           
           rmf=`expr "$rmf" : "rm: *\([^ ]*\)"`
           rm () { $rmf -f $@ ; }             
  set -ex