($DESC1,$DESC2) = split(/\(/, $DESC0, 2);

(@data) = split(/~/, $theCookie, 5);

   $ix1 = 1;
   do {
      if ($dow[$ix1] eq '') { $BGCX[$ix1] = ''; }
      if (substr($dow[$ix1],1,6) eq 'a href'
          && $BGCX[$ix1] ne 'class=td001') {
          $BGCX[$ix1] = 'class=td002';
         }
      $ix1++;
      } while ($ix1 ne 8);