[VA] SRC#003- New Year 2019 Special

[Thomas Klemm]

This program is for the HP-25:

Code:

01: 14 33     :    CLEAR REG
02: 23 04     :    STO 4
03: 22        :    R↓
04: 23 00     :    STO 0
05: 01        :    1
06: 23 03     :    STO 3
07: 24 03     :    RCL 3
08: 24 00     :    RCL 0
09: 61        :    ×
10: 15 73     :    π
11: 23 61 03  :    STO× 3
12: 24 02     :    RCL 2
13: 23 51 03  :    STO+ 3
14: 61        :    ×
15: 23 02     :    STO 2
16: 22        :    R↓
17: 23 51 02  :    STO+ 2
18: 14 73     :    LSTx
19: 24 00     :    RCL 0
20: 61        :    ×
21: 51        :    +
22: 24 01     :    RCL 1
23: 23 51 02  :    STO+ 2
24: 23 51 03  :    STO+ 3
25: 15 73     :    π
26: 61        :    ×
27: 51        :    +
28: 23 71 02  :    STO÷ 2
29: 23 71 03  :    STO÷ 3
30: 01        :    1
31: 23 01     :    STO 1
32: 23 41 04  :    STO- 4
33: 24 04     :    RCL 4
34: 15 61     :    x≠0
35: 13 07     :    GTO 07
36: 24 02     :    RCL 2
37: 15 22     :    1/x

Example:

2019
ENTER↑
200
R/S
12.63898232


Cheers
Thomas