\start83\
\comment=Program file dated 10/07/97, 14:24
\name=BISECT
\file=J:\BISECT.AS3
prgmFACSU
Disp "ENTER Y\1\"
Disp ""
Disp "(IN QUOTES)"
Disp ""
Input "Y\1\=",Y\1\
ClrHome
0\->\I
Disp "ENTER LEFT EDGE"
Prompt L
Disp "ENTER RIGHT EDGE"
Prompt R
Lbl 1
ClrHome
(L+R)/2\->\M
Y\1\(M)\->\P
Y\1\(L)\->\Q
Y\1\(R)\->\S
If Q>0
Then
Output(1,1,"LEFT EDGE Y POS")
Else
Output(1,1,"LEFT EDGE Y NEG")
End
Output(2,1,"X = ")
Output(2,5,L)
If P>0
Then
Output(3,1,"MIDPOINT Y POS")
Else
Output(3,1,"MIDPOINT Y NEG")
End
Output(4,1,"X = ")
Output(4,5,M)
If S>0
Then
Output(5,1,"RIGHT EDGE Y POS")
Else
Output(5,1,"RIGHT EDGE Y NEG")
End
Output(6,1,"X = ")
Output(6,5,R)
If (((S>0) and (P>0)) or ((S<0) and (P<0)))
M\->\R
If (((Q>0) and (P>0)) or ((Q<0) and (P<0)))
M\->\L
If P=0
Then
ClrHome
Disp "ROOT =",M
Stop
End
I+1\->\I
Output(7,1,"ITERATION=")
Output(7,11,I)
Output(8,1,"HIT ENTER")
Pause 
Goto 1

\stop83\