ti-84 Fibonacci

i want to make a program that tells you the next number in the Fibonacci sequence and i cant seem to find a good equasion

1->A
0->B
0->X
Prompt N
For(K,1,N)
A+B->X
A->B
X->A
End
Disp X

is not giving the right number to the position