%%HP: T(3)A(D)F(.);
DIR
  MPHASE
    \<< RCLF -31 SF
DEG ERASE { # 0d
# 0d } PVIEW {
# 64d # 28d } # 26d
0 360 ARC 26 28
MFRAC MPLOT MFINI 7
FREEZE STOF
    \>>
  MTIME
    \<< MFRAC \-> X
      \<<
        IF X .25 <
        THEN "NM+"
        ELSE
          IF X .5 <
          THEN
"FQ+"
          ELSE
            IF X
.75 <
            THEN
"FM+"
            ELSE
"LQ+"
            END
          END
        END X
      \>> .25 MOD
42532 * SWAP OVER
1440 / IP \->STR +
"d " + SWAP 1440
MOD SWAP OVER 60 /
IP \->STR + "h " +
SWAP 60 MOD SWAP
OVER IP \->STR + "m "
+ SWAP FP 60 * IP
\->STR + "s" +
    \>>
  MFRAC
    \<< 1.121975 DATE
DDAYS TIME 4.21
HMS- HMS\-> 24 / +
1440 * 42532 / FP
    \>>
  FLIP
    \<< PICT RCL NEG
PICT STO
    \>>
  MPLOT
    \<< \-> RA MI F
      \<<
        IF F .5 <
        THEN F 360
* COS RA * RA
        ELSE RA NEG
F .5 - 360 * COS RA
*
        END \-> L R
        \<< 1 0
          FOR x x
ACOS SIN DUP MI x
RA * + L R MLINE MI
x RA * - L R MLINE
RA INV NEG
          STEP
        \>>
      \>>
    \>>
  MLINE
    \<< \-> SC LI L R
      \<< SC L * 64 +
R\->B LI R\->B 2 \->LIST
SC R * 64 + R\->B LI
R\->B 2 \->LIST LINE
      \>>
    \>>
  MFINI
    \<< { # 10d # 10d
} PIXON { # 110d
# 15d } PIXON {
# 100d # 50d }
PIXON { # 30d # 41d
} PIXON { # 31d
# 41d } PIXON FLIP
    \>>
  SLOFLIP
    \<< 0 63
      FOR l # 0d l
R\->B 2 \->LIST # 130d
l R\->B 2 \->LIST TLINE
      NEXT
    \>>
END