%include;css %include;hed %message_to_wizard;
%define;arrows() %if;not cancel_links;
%if;(referer != "") %end;
%end; %end; %define;fun_day(ccc, nnn) %end; %define;fun_month(ccc, nnn, vvv, lll) %end; %define;fun_year(ccc, nnn) %end; %define;fun_julian_year(ccc, nnn) %let;year; %if;(date.julian.month < 3 or date.julian.month = 3 and date.julian.day < 25) %expr(date.nnn.year - 1)/%expr(date.nnn.year % 10) %else;%date.nnn.year;%end; %in; %end; %define;calendar(ccc, nnn, vvv, lll, fun_yyy) %if;([!dates order] = "ddmmyy" or [!dates order]0 = "ddmmyyyy" or [!dates order]0 = "dmyyyy") %apply;fun_day("ccc", "nnn") %apply;fun_month("ccc", "nnn", "vvv", "lll") %apply;fun_yyy("ccc", "nnn") %elseif;([!dates order] = "mmddyyyy") %apply;fun_month("ccc", "nnn", "vvv", "lll") %apply;fun_day("ccc", "nnn") %apply;fun_yyy("ccc", "nnn") %else; %apply;fun_yyy("ccc", "nnn") %apply;fun_month("ccc", "nnn", "vvv", "lll") %apply;fun_day("ccc", "nnn") %end; %end;

[*calendar/calendars]1

%apply;capitalize%with;%apply;nth([(week day)], date.week_day)%end; %if;(date.julian_day = today.julian_day) - %time;%end;

%apply;arrows()
%hidden; %if;([!dates order] = "ddmmyy" or [!dates order]0 = "ddmmyyyy" or [!dates order]0 = "dmyyyy") %elseif;([!dates order] = "mmddyyyy") %else; %end; %apply;calendar("g", "gregorian", 12, [(month)], "fun_year") %apply;calendar("j", "julian", 12, [(month)], "fun_julian_year") %apply;calendar("f", "french", 13, [(french revolution month)], "fun_year") %apply;calendar("h", "hebrew", 13, [(hebrew month)], "fun_year")
 [*year/month/day]2 [*year/month/day]1 [*year/month/day]0[*year/month/day]1 [*year/month/day]2 [*year/month/day]0[*year/month/day]0 [*year/month/day]1 [*year/month/day]2
[*gregorian/julian/french/hebrew]0
[*gregorian/julian/french/hebrew]1
[*gregorian/julian/french/hebrew]2
[*gregorian/julian/french/hebrew]3
%if;(date.moon_phase.index != 0) %apply;capitalize%with; %apply;nth([moon age/new moon/first quarter/full moon/last quarter], date.moon_phase.index) -%sp; %date.moon_phase.hour;[:]%date.moon_phase.minute; UT %end; %end;
%nn;[*moon age/new moon/first quarter/full moon/last quarter]0[:]%sp; %date.moon_age;

[*julian day][:]%sp; %if;(date.julian_day < 1000)%date.julian_day; %else;%date.julian_day.sep1000;%end;
%include;trl %include;copyr
%include;js