00 { 92-Byte Prgm }
01▸LBL "SUN"
02 MVAR "TILT"
03 MVAR "LAT"
04 MVAR "SEAS"
05 MVAR "TOD"
06 MVAR "HGHT"
07 DEG
08 RCL "TILT"
09 SIN
10 RCL "SEAS"
11 COS
12 ×
13 1
14 RCL ST Y
15 X↑2
16 -
17 SQRT
18 15
19 RCL× "TOD"
20 COS
21 ×
22 RCL "LAT"
23 COS
24 ×
25 X<>Y
26 RCL "LAT"
27 SIN
28 ×
29 +
30 ASIN
31 +/-
32 RCL- "HGHT"
33 END