> > ) (DS ,TIME-STRING) "AUX" (DL ,TIME-LIST) L T S) #DECL ((F) (DS) STRING (DL) ! (L) ! (T) FIX (S) STRING) >)> 22> 22>>> > > <1 .DS %> CHARACTER>> <2 .DS %> CHARACTER>> <3 .DS !\ > >> <4 .DS <1 .S>> <5 .DS <2 .S>> <6 .DS <3 .S>> <7 .DS !\ > > <8 .DS %> CHARACTER>> <9 .DS %> CHARACTER>> <10 .DS !\ > > > <11 .DS %> CHARACTER>> <12 .DS %> CHARACTER>> <13 .DS !\:> > <14 .DS %> CHARACTER>> <15 .DS %> CHARACTER>> <16 .DS !\:> > <17 .DS %> CHARACTER>> <18 .DS %> CHARACTER>> <19 .DS !\ > > <20 .DS <1 .S>> <21 .DS <2 .S>> <22 .DS <3 .S>> .DS)>> > ) (ELSE >)>> > ) (ELSE >)>> > ) (LST ,TIME-LIST)) #DECL ((VALUE LST) (FF) ) <2 .FF> .LST>) (ELSE )>> ) Z (LST ,TIME-LIST) "AUX" F S D LY? Y M (DATE <1 .LST>) (TIME <2 .LST>)) #DECL ((VALUE LST) (F D S Y M Z) FIX (FF) (LY?) (DATE TIME) ) .FF) (ELSE <1 .FF>)>> ) ( .FF>>>) (ELSE > <1 .FF>>)>> >> >)> >>> 366 365>> >>>> >> > 0>> >) (> > 0>> >) (> > 0>> >) (ELSE >)> > )> 0> > ) (ELSE > >)>> '![31 28 31 30 31 30 31 31 30 31 30 31!]> >> > > > > .LST> \ ) TIM "AUX" (ZL ,ZONELIST) ZS IZ (UV ,ZONE-UV)) #DECL ((Z) (ZL) VECTOR (IZ) FIX (ZS) (UV) ) >> 60>> > >)>)> 0> > >)> .IZ) ( > <1 >) (ELSE .IZ)>) (> <2 .ZS>) (ELSE #FALSE ("Unknown time zone"))>> "IN-DST? - are we in daylight savings time" 2> >>> 366 365>> >>>> >> > 0>> >) (> > 0>> >) (> > 0>> >) (ELSE >)> > )> 0> > ) (ELSE > >)>> '![31 28 31 30 31 30 31 31 30 31 30 31!]> > T) ( <==? .M 10>> > -7) (T <- .DOW 6>)>> .D>) (<==? .M 10> .D>)>)>> > > > > > \ ) > >>) ( >) ( >)> 4> 4>> > 1) (ELSE 0)> .D -1>> 63>>>> >> <* .HH 3600>>>>> \ > > 16> >>>> "STIME - convert seconds to fraction of day" *200000*> %<* 24 3600>>> *177777*>> "QTIME - convert fraction of day to seconds" > %<* 24 3600>> *200000*>>> "IDAY - day of week, MON=0, SUN=6" )) #DECL ((T) FIX) 3> 7>>