**TI92P*mainFunction file 06/27/05, 20:34RbezoutZ(m,n) Func Local m0,m1,m2,q {m,1,0}m0 {n,0,1}m1 While m1[1]0 int(m0[1]/(m1[1]))q m0-q*m1m2 m1m0 m2m1 EndWhile Return m0 EndFuncZ*