#COMPILE EXE

#D3BUG DISPLAY ON

#DIM NONE

#BREAK ON

DEFSNG A-Z

FUNCTION PBMAIN () AS LONG

PRINT "INPUT A, B, D"

A=100.

B=-100.

D=1

PRINT A; B; D

PRINT "INPUT A, B, D"

2 X=(A+B)/2

Y=X 'Driver Equation' Y=f(X)'

IF(ABS(B-X)-D)3,3,4

3 PRINT A; B; X

4 IF(Y)5,3,6

5 A=X

GOTO 2

6 B=X

GOTO 2

EXIT FUNCTION

END FUNCTION

#D3BUG DISPLAY ON

#DIM NONE

#BREAK ON

DEFSNG A-Z

FUNCTION PBMAIN () AS LONG

PRINT "INPUT A, B, D"

A=100.

B=-100.

D=1

PRINT A; B; D

PRINT "INPUT A, B, D"

2 X=(A+B)/2

Y=X 'Driver Equation' Y=f(X)'

IF(ABS(B-X)-D)3,3,4

3 PRINT A; B; X

4 IF(Y)5,3,6

5 A=X

GOTO 2

6 B=X

GOTO 2

EXIT FUNCTION

END FUNCTION

## Comment