(34C) Locating the Moon

[Thomas Klemm]

This program is the translation of the HP-42S program from the original post:

Code:

001  15 22 :    R↓
002     51 :    +
003     21 :    X<>Y
004  14 22 :    R↑
005      1 :    1
006   14 4 :    →R
007  14 22 :    R↑
008     21 :    X<>Y
009   14 4 :    →R
010     21 :    X<>Y
011     32 :    CHS
012  15 22 :    R↓
013   15 4 :    →P
014  15 22 :    R↓
015     21 :    X<>Y
016     41 :    -
017  14 22 :    R↑
018   14 4 :    →R
019  15 22 :    R↓
020   15 4 :    →P
021  14 22 :    R↑
022     21 :    X<>Y
023   15 4 :    →P
024  15 22 :    R↓

Example:

37.33 ENTER
-122.13 ENTER
80.85 ENTER
23.36 R/S

52.0939
X<>Y
99.6580

---

Edit: Replaced +/- by CHS in line 11.