Erstellt : Donnerstag dem 14.05.98                         Erhalten am 
16.05.98
von      : *John Hentsch@1:218/907* an *Ted Menks*
Hallo John,
TM>> :setGTZ, fourth version by (TM)
TM>> set Daytm=%@doy[4-%@eval[8-%@dowi[4-7-%_year]]-4-%_year].02
TM>> set Stdtm=%@doy[10-%@eval[32-%@dowi[10-31-%_year]]-%_year].02
TM>> set toDay=%@doy[%_date].%@right[2,0%_hour]
TM>> iff %toDay ge %Daytm .and. %toDay lt %Stdtm then
TM>>   set GTZ=UTC+7
TM>> else
TM>>   set GTZ=UTC+8
TM>> endiff
TM>> unset toDay Daytm Stdtm
TM>> return
Some extra bytes to spare?
change the above like below:
:setGTZ, fourth version by (TM)
 set Daytm=%@doy[4-%@eval[8-%@dowi[4-7-%_year]]-4-%_year].02
 set Stdtm=%@doy[10-%@eval[32-%@dowi[10-31-%_year]]-%_year].02
 set toDay=%@doy[%_date].%@right[2,0%_hour]
 set GTZ=UTC+%@if[%toDay ge %Daytm .and. %toDay lt %Stdtm,7,8]
 unset toDay Daytm Stdtm
 return
- mfg *Claus* -
 ... There are only two forces that unite men - fear and interest. 
--- a Tearline - how boring
---------------