Why does this Friday 13th program fail?

[ggauny@live.fr]

Hi,

From "One-Minute Marvel", from a program of Joe K Horn and one other, I have ported this for HP Prime :

Code:


EXPORT V13(Année)
BEGIN
PRINT();
A:=Année+.0113;
FOR I FROM −5 TO 6 DO
IF (DDAYS(3000.0404,A) MOD 7)==0
THEN PRINT(A)
END;
A:=A+.01;
END;
END;

Have a good night (or day !).