(12C) Same years ?

[Schraf]

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
...

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