'ProgramMode:RUN
"Max y': "?->M
"X: "?->X
"Centrd: "?->C
Abs (X-C)->Y
"Remdr Less than: "?->G
1->N
(M*Y^(N+1))/((N+1)!)->Q
While (Abs (Q)-G)>0
N+1->N
(M*Y^(N+1))/((N+1)!)->Q

WhileEnd
ClrText
Locate 1,1,"n _>=_ "
Locate 5,1,N
Locate 1,4,"R<M(X-c)^(n+1)/(n+1)!"