To all I think some of you might be interested in the following script, which prints date and time in standard American long format. I would appreciate comments and suggestions. Jerry { date returns the current date and time in pretty American format } date: function [][t a d m] [ t: now/time a: t/1 if a > 12 [t: t - 12:00:00 t: join t " PM"] if a = 12 [t: join t " PM"] if a = 0 [t: t + 12:00:00 t: join t " AM"] d: join pick ['Monday 'Tuesday 'Wednesday 'Thursday 'Friday 'Saturday 'Sunday] now/weekday "," m: pick ['January 'February 'March 'April 'May 'June 'July 'August 'September 'October 'November 'December] now/month Print [d m join now/day "," join now/year "," t] exit ]