(12C) Fridays the 13th in a year

[Schraf]

Hello,

This program searches every Friday the 13th of a year

Before running the program :

f 6 (6 digits)
g - D.MY
13.102 STO 0 (it's an example of friday)

R/S
2021 (Enter the year)
R/S

13.082021 (friday)
0.000 (end)

Conclusion : 2021 has a single Friday the 13th

Code:

001 f Σ         42.32
002 R/S         31
003 1           1
004 EEX         26
005 6           06 
006 ÷           10
007 13          01 – 03
009 +           40 
010 STO 2       44.02
011 .01         48 – 00 – 01
014 Σ+          49 
015 ENTER       36
016 13          01 – 03
018 x≤y         43.34
019 GTO 001     43.33.001
020 RCL 0       45.00
021 RCL 2       45.02
022 ΔDYS        43.26
023 7           07
024 ÷           10
025 Frac        43.24
026 x = 0       43.35
027 GTO 029     43.33.029
028 GTO 011     43.33.011
029 RCL 2       45.02
030 R/S         31 
031 GTO 011     43.33.011

Explanations (in french) : https://youtu.be/GKpPRt_K-bk