\START\
\COMMENT=Program file dated 06/28/93, 16:37
\NAME=INVRS
\FILE=INVRS.85P
Func:FnOff 
ClLCD
Radian
Disp "ENTER FUNCTION"
InpST "Y=",Y
\St>Eq\(Y,y1)
ClLCD
Disp "HIT ENTER TO SEE"
Disp "FUNCTION GRAPH"
Pause 
\(-)\10\->\xMin
10\->\xMax
\(-)\10\->\yMin
10\->\yMax
ZSqr
Pause 
ClLCD
Disp "HIT ENTER TO SEE"
Disp "INVERSE"
Pause 
DispG
(xMax-xMin)/40\->\N1
For(I,xMin,xMax,N1)
evalF(x,x,I)\->\P
PtOn(I,P)
End
(xMax-xMin)/150\->\NP
For(I,xMin,xMax,NP)
evalF(y1,x,I)\->\X1
PtOn(X1,I)
End
Pause 
Lbl ZZ
ClLCD
Disp "ENTER GUESS"
Disp "FOR INVERSE"
InpST "Y=",Y
\St>Eq\(Y,y2)
Disp "HIT ENTER TO SEE"
Disp "GUESS"
Pause 
DispG
For(I,xMin,xMax,N1)
evalF(x,x,I)\->\Y2
PtOn(I,Y2)
End
For(I,xMin,xMax,NP)
evalF(y1,x,I)\->\X1
PtOn(X1,I)
End
Pause 
ClLCD
Disp "TRY ANOTHER GUESS?"
Disp "ENTER CHOICE"
Disp "(1) TRY AGAIN"
Disp "(2) QUIT"
Input CC
If CC==1
Goto ZZ
ClLCD
Stop
\STOP\