DUP n "erzats"

[ggauny@live.fr]

Hi,
Well I see that my think is not well writed and I me scuse. In others words I was thinking of the DUPN function in HP48 to HP 50g, what it is showing in attachement 1.
In the following routine what calculate fridays 13, have a seeing of DUPN, if x register is valued 0 not copy the real value of x in y, but if value is one we copies in y register.

Code:


"6
Alog // it is 10^x
12.12
+
-5
6
START
1
DATE+
DUP
4.043
DDAYS
7
MOD
NOT
DUPN // you see DUPN (if n, the x value is 0 don't copy in y, else copy)
1.01
-
Next
DROP
END

It is a routine for Friday 13 in RPL. BTW, if you verifiying the easter is on 13/04, then it is Holly Friday.

So, because I wanted do the same function in amazing WP34s, I doed my little routine.

May be it is clear better in this others words.

regards