Texas Instruments TI-86 Manual Book page 263

Begins Then group
Calls subroutine
Begins For group
Begins While group
Creates nested While group
Creates nested For group
Ends While group
Ends For group
Ends Then group
:If order‚1
:der1(y13,x,center)¶TPOLY(order)
:If order‚2
:der2(y13,x,center)à2¶TPOLY(orderN1)
:If order‚3
:Then
:MOBIUS
:For(N,3,order,1)
:abs f0¶gmax:gmax¶bmi
:1¶m:0¶ssum
:While abs bmi‚H¹gmax
:While MSERIES(m)==0
:m+1¶m
:End
:0¶bsum
:For(J,1,m¹N,1)
:rr¹e^(2p(Jà(m¹N))¹(0,1))+(center,0)¶x
:real y13¶gval
:bsum+gval¶bsum
:max(abs gval,gmax)¶gmax
:End
:bsumà(m¹N)Nf0¶bmi
:ssum+MSERIES(m)¹bmi¶ssum
:m+1¶m
:End
:ssumà(rr^N)¶TPOLY(order+1NN)
:End
:End
:ZStd
Chapter 19: Applications
251