TI-89 programation aide

Bonjour,
voici l'algorithme:
mettre 3 dans la mémoire Q
Demander une valeur entre 0 et 1 et l mettre dans mémoire X
Mettre 0 ds memoire A
1 ds memoire I
1 ds memoire B
Q dans memoire J
tant que |J-I|>10^-19
mettre (A+B)/2 ds mémoire c
mettre rac(IJ) ds mémoire y
si X<C
alors remplacer B par C et J par Y
Sinon, remplacer A par C et I par Y
Fin de boucle afficher Y.
J'ai déjà fait ceci mais je bloque après....
Prgm
3->q
Prompt x
0->a
1->i
1->b
q->j
Then abs(j-i)>10^-9
(a+b)/2->c
rac(ij)->y
If x<c
......................................