\start83P\
\comment=Program file dated 04/09/00, 10:00
\protected=TRUE
\name=PI
\file=F:\PROGRA~1\TIEDUC~1\TI-GRA~2\FILES\BASIC\PI_SOU~1.TXT
ClrHome
Disp "STARTING UP..."
Full

ClrHome
Disp "   PI PLOTTER"
Pause 
ClrHome
Disp "BY:","","KIROS LIONHEART"
Pause 
ClrHome
Lbl 1
ClrHome
Menu("PI PLOTTER","START",2,"INFO",I,"QUIT",3)
Lbl I
ClrHome
Disp "   PI PLOTTER","  VERSION 1.2","   RELEASE 2"
Pause 
Goto 1
Lbl 2
FnOff 
PlotsOff 
ClrDraw
0\->\Xmin
1\->\Xres
AxesOn
GridOff
CoordOn
"\pi\"\->\Y\1\
ClrHome
Input "ITERATIONS: ",Z
Prompt Ymin,Ymax
.1*(Ymax-Ymin)\->\Yscl
Z\->\Xmax
Z/10\->\Xscl
0\->\B
For(I,0,Z-1)
B+((\(-)\1)^I)/(2I+1)\->\B
Pt-On(I,4B)
Text(1,5,I+1)
End
Pause 
FnOn 1
DispGraph
Input 
ClrHome
Disp "CLOSEST APPROX.","OF PI IS",4B
Pause 
Goto 1
Lbl 3
FnOff 1
ZStandard
ClrDraw
ClrHome
""\->\Y\1\
Stop
\stop83P\