Back on Forum

[ggauny@live.fr]

Hello for all of you,

I am happy to be back with you all. I was in deasease.
I submit, as present, you a little routine that it is from Joe Horn and a friend of He which optmized. It is "friday the 13" in any year in gregorian.

[/code]
LBL'FRI'
LBL'A' // Because it is more queeker
6
10^x // it is ALOG
/
13.12
+
#011
STO 00
DROP
ENTER
ENTER
4.043
DELTADAYS
7
MOD
x=0?
SF00
DROP
FS?C00
ENTER
ENTER
0.01
-
DSE 00
BACK 022
DROP
END[/code]
[code]

This give all fridays the 13 in a year.
I thank people they have asked me.

I don't forget JEBEM