sub getThemes {
   open (H,"themes.dat") || die "didn't work: $!\n";
   $i=1;
   while (<H>) {
      chop;
      ($THEMES[$i],$TITLES[$i],$CHECKED[$i]) = split(/!/,$_);
      $THEMES_RADIOS .= "<INPUT TYPE=RADIO NAME=theme $CHECKED[$i] VALUE=$i " .
                        "onClick=\"swapImage('$IMAGEDIR/$THEMES[$i]');\"> $TITLES[$i] \n;" 

      $i++;
   }
   close (H);
}