Moon Landing

[BarryMead]

(01-28-2017 01:19 PM)hibiki Wrote:  I adapted it to HP34C, as I do not have the 25. And also for HP32SII.

This version is adapted to the WP-34S Enjoy.

Code:

001 LBL A
002 FIX 04
003 GTO 14
004 LBL 02
005 RCL 00
006 EEX
007 4
008 /
009 RCL 01
010 x<0?
011 GTO 11
012 +
013 GTO 13
014 LBL 11
015 x[<->] Y
016 -
017 LBL 13
018 STOP
019 LBL 14
020 RCL 02
021 x<? Y
022 GTO 34
023 R[v]
024 STO- 02
025 5
026 -
027 STO 03
028 2
029 /
030 RCL 00
031 +
032 RCL 01
033 +
034 STO 00
035 x<0?
036 GTO 44
037 RCL 03
038 STO+ 01
039 GTO 02
040 LBL 34
041 RCL 01
042 x[^2]
043 RCL 00
044 1
045 0
046 [times]
047 +
048 [sqrt]
049 +/-
050 STO 01
051 LBL 44
052 RCL 01
053 FIX 00
054 GTO A
055 END