04-15-2021, 11:49 AM
Hello,
This program searches for the years which will be identical to the one given in parameter (same days of the week all year round).
R/S
2021
R/S
Display : 1.012021 (2021 is like 2021 !)
R/S
1.012027 (2027 is like 2021)
R/S
1.012038 (2038 is like 2021)
R/S
...
Explanations (in french with subtitles) : https://youtu.be/GKpPRt_K-bk
This program searches for the years which will be identical to the one given in parameter (same days of the week all year round).
R/S
2021
R/S
Display : 1.012021 (2021 is like 2021 !)
R/S
1.012027 (2027 is like 2021)
R/S
1.012038 (2038 is like 2021)
R/S
...
Code:
01 f Σ
02 R/S
03 1 EEX 6 CHS
07 STO 0
08 ×
09 1.01
13 +
14 STO 1 STO 2
16 STO 3 STO 4
18 .02
21 STO + 2
22 STO + 4
23 RCL 1 RCL 3
25 ΔDYS
26 7 ÷
28 Frac
29 RCL 2 RCL 4
31 ΔDYS
32 7 ÷
34 Frac
35 x⇌y
36 R↓
37 +
38 x = 0
39 GTO 43
40 RCL 0
41 STO + 3
42 GTO 22
43 RCL 3
44 R/S
45 GTO 40
Explanations (in french with subtitles) : https://youtu.be/GKpPRt_K-bk