;$eU SUN-POSITIONSUBR,8-,| ?? No|(`  "o|,8TRUEANOM `,8ECCENANOM g@` B`,8 g~.% @" No} *o} g~@ A Po} (o},8F " ,8,8COSD .CA No~F "o~,8 gSIND .Q g Po~ "o~ Bg g~ . p.B(@0-, SEMID B g,8 g0 `,: "hASIND,8 g~ ,8 g~ ` g,:,Z`,: "h" No~ "o~,8 g} 5.0!.4` No~ "o~ B` gzFB gz,:FRACTION .4hCQ No~ "o~ `,8,: "hRANGE(a# Bg NCONS g~XCONS $ g(``0-,CONS//,x E Sne"1T S!2q:" Lf!78Qvq !e E!yf3]0SKY-ANGLES,8,8,8,8,:,:0  No "o*,8,8@ g ` g~,:,8 g~`,8 g~ g`h,:@ "h,8 g},8 g|,8@ g ` g g{,: ,8 g~ `,Z,: "hQ@ACOSD,8 g| 5.f!.4`c No~ "o~ B` `-, g~A://,xp(CSUN,8,8FQ,8,8*JULIAN,8 gHHMMSS Q `,: "h,8 g}DDMMSS ,8 g} !.4[g @Z g[ Q,: &h $,X,8[ANGLED `,8Zg[ ,8Zg~Z[  ,X,X//@ ,x(j,8,<,<[Z[ZZ [ ./&."` Nw "w ...` Np *p /. $0/$.7&. (&02.0$0&0/ 0Z$(&0  /..-,0@`0 ,8-, //,xh`0KA|DATED,8-,|,<,<5 IFIX .. l.D Nw{ "w{ (&.:X Nw| *w| .:X$(..&. / Pw| "w| ..$.P&E Nw} (w} .Z$ &./. / Pw} "w} .($&. G Nw~ &w~ . G$&.( / Pw~ $w~ &. Nw "w .$/. / Pw &w (/.$.2. . Np  (p,8 "-,,8 $ " -, $ " -,/0 P/,xJDW,K(INVERT,8!$[+0D +IZ- " +M A%0D +LZ " +MERROR-IN-ANGLE-FORMAT " *PRINTQ /,x8E,8[FLOAT`Z`[,:Z`Z[,:. ph. po. @-, /t/,xNTIMED,:,8,:0,:!. @ No "o B`FIX ,8 g0 p Po "o,8 ,8 g0 p Ph "h!. Bg,: "h,8 gA@`X g~//,xhY,8f0[0D +r  "-, +{ Z[Z`Z[,:Z``-, ,:. ph. po-,0 //,xm,8,:0 ,:-,~ 5."`,:L  "h  /+ Bg~ g~0 p Po "o B` Bg `0 p Ph "h!. B`,:@`0 "h Bg g g~ $  ///,x |1 N,: "hTAND  0 F $,: "hATAND!.-, /,x 0"C_,8   X`-, /,x S{s ,8@00 5.%.4,: "h/+*@003n++).4,: "h/+*@ -,/,x"6@P! /F.4,: "hSIN/,x Y~jX@ 0+ 4.4,: "hCOS/0`,x Y~j(0"",: $h,: 0 "hATAN;..4-, /0`0,x Y~j4,8*` ` -, /,xx; #!0,8,: "hSQRT,: $hAA0,X/,x@@ !0,8,: "h,X,: "h`3/,xxG,8 ` P -, /,xHNUPDATE[  8.,8-, ,<Z`[  $,\-, /$0RU E%QSUN-NOW-HERELONGITUDE,8LATITUDE,8DATEz85 STATUSR SQ6 $,8DAYTIMEziE|5GMT-OFFSET ;P (,X,X,X(8ZDAY-OF-WEEK `]..&..0 -, ,xxbLAST-SUNDAY f:,8CONSTRUCTPREMUTE ` /-, /,xe,8 i0N+n "+n-,/@ ,xk*-,,8Z`[G:[`/$oDAY-SAVE-CROCK,8Z [8 81.+0n+0N+~ZHZ8[8 8 $,<,\3.+Z`[8 80N+Z`Z8[8) 8/. $ `,<,\3ni`%+7  "/,x tU*UjUSETQQUOTE#  x w< x x;