Nevermind, I made one (I found out that you can't change the step while inside a for( loop, for example:

```
:1->F
:FOR(X,1,3,F
:DISP X
:2->F
:END
```

will display

not

)

Here is my code:

```
DISP "GUESS BELOW..."
PAUSE
TRACE
Y1>Y2->G
1->F
LBL L
X+F->X
IF ABS (Y1-Y2)≤5E-6
GOTO E
IF (Y1<Y2)≠G
-.5F->F
Y1<Y2->G
GOTO L
LBL E
ROUND(X,5->X
ROUND((Y1+Y2)/2,2->Y
HORIZONTAL Y
VERTICAL X
DISP {X,Y
```

Just have the 2 graphs set to Y1 and Y2, then run this program and select a point left of the intersection (closer=faster). X is correct to 5 decimal places, and Y is usually only around 2.