ei [7[8[9[0 10u0 ^d
^B&31U8 ^B/32&15U9
-1EJ-7"E ^B/32&31U8 ^B/32/32&15U9 '
-1EJ-4"E ^B-((^B/1000)*1000)U8 1U9
Q8-32"L @O!GOTDAY! '
%9^[ -31%8-29"L @O!GOTDAY! '
((^B/1000)+2)&3"E Q1-30"L @O!GOTDAY! | -1%8^[ ' '
%9^[ -28%8-32"L @O!GOTDAY! '
%9^[ -31%8-31"L @O!GOTDAY! '
%9^[ -30%8-32"L @O!GOTDAY! '
%9^[ -31%8-31"L @O!GOTDAY! '
%9^[ -30%8-32"L @O!GOTDAY! '
%9^[ -31%8-32"L @O!GOTDAY! '
%9^[ -31%8-31"L @O!GOTDAY! '
%9^[ -30%8-32"L @O!GOTDAY! '
%9^[ -31%8-31"L @O!GOTDAY! '
%9^[ -30%8^[ !GOTDAY! '
-1EJ-4"E ^B/1000+1970U7 | -1EJ-7"E ^B&31+1972U7 | ^B/32/16+1900U7 ' '
[3 [4
-1EJ-4"E ^B/1000+70U3 | -1EJ-7"E ^B/31+72U3 | ^B/32/16U3 ' '  !Get Year!
Q3U4   Q9-3"L -1%3'       !Decrement year if before March!
Q9-1"E 0%4'        !Calculate day number from year start!
Q9-2"E 31%4'
Q9-3"E 59%4'
Q9-4"E 90%4'
Q9-5"E 120%4'
Q9-6"E 151%4'
Q9-7"E 181%4'
Q9-8"E 212%4'
Q9-9"E 243%4'
Q9-10"E 273%4'
Q9-11"E 304%4'
Q9-12"E 334%4'
(Q4+(Q3/4)+Q8)U3     !Add 1 day per year since 1900, plus 1 per leap year!
(Q3-((Q3/7)*7))U3   !Convert that to a weekday number (0-6)!
Q3-0"E @^A% Sunday, %'
Q3-1"E @^A% Monday, %'
Q3-2"E @^A% Tuesday, %'
Q3-3"E @^A%Wednesday, %'
Q3-4"E @^A%Thursday, %'
Q3-5"E @^A% Friday, %'
Q3-6"E @^A%Saturday, %'
]4 ]3
 q9-1"E@^A/January/'
 q9-2"E@^A/February/'
 q9-3"E@^A/March/'
 q9-4"E@^A/April/'
 q9-5"E@^A/May/'
 q9-6"E@^A/June/'
 q9-7"E@^A/July/'
 q9-8"E@^A/August/'
 q9-9"E@^A/September/'
 q9-10"E@^A/October/'
 q9-11"E@^A/November/'
 q9-12"E@^A/December/'
 @^A/ / q8:= @^A/, / q7:=
-1EJ-7"E ^H"E @O!NOTIME! ' '
-1EJ-4"E 1440-^HU7 | ^H/30U7 '
Q7/60U8 (Q7-(Q8*60))U7
[p ^upAM q8-12"L  oa'  q8-12"n q8-12u8' ^upPM !a!
 @^A/   / q8:= @^A/:/ q7-10"l @^a/0/'  q7:= @^A/ / :gp ]p
 q0-10"n ^o' ]0]9]8]7 @^a/
/