Hallo Ted
TM> :: ******************* fourth version **********************
TM> :setGTZ, fourth version by (TM)
TM> How 'bout that, pardner ? The truth, the whole truth and nothing but the 
TM> truth in only 308 bytes ;-)
KM> :: ******************* fifth version **********************
    set DT=%@doy[%@eval[8-%@dowi[07.04.%_year]].04.%_year].02
    set TD=%@doy[%_date].%@right[2.0%_hour]
    set GTZ=UTZ+%@if[%@eval[%TD-%DT] ge 0 .and. %@eval[%TD-%DT]...
    ... le 203,%@eval[%1-1],%1]
    unset DT TD
Join line 3 and 4 at ...
Couldn't resist: less than 200 bytes, difference to UTZ as %1. Date values 
are in german DDMMYY format for my convenience, but you'll get my drift, I'm 
sure ;-)).  Not fully tested for le and ge, and setdos /g., is implied.
Just to show I _can_ write small btms...
Grsse aus Ostrhauderfehn, 
*Klaus Meinhard*
--- FIPS/32 v0.99b W95/NT [M]
---------------