'ProgramMode:RUN
ClrText
"For f(X)=_ln _X ONLY"Disps"X: "?->X
"Centrd: "?->C
Abs (X-C)->Y
Min({X,C})->Z
"Remdr Less than: "?->G
1->N
Y^(N+1)-G*(N+1)*Z^(N+1)->Q
While Q>0
N+1->N
Y^(N+1)-G*(N+1)*Z^(N+1)->Q

WhileEnd
ClrText
Locate 1,1,"n _>=_ "
Locate 5,1,N
Locate 1,4,"|R|_<=_(X-c)^(n+1)//"
Locate 5,5,"[(n+1) * z^(n+1)]"
Locate 1,6,"where z=_Min(_x,c)"