This Programs is from Silver Stone BBS
_________________________________________________________________________

                   SilverSTone BBS - Casio Support BBS

 SysOp: Magnus Werner, M.Werner@abc.se
                       Magnus.Werner@f345.n201.z2.fidonet.org
        Casio URL: http://www.abc.se/~m9935/casio.html
        Casio FTP: ftp://ftp.abc.se/pub/casio/
        FidoNet  : 2:201/345

 Open 24 hours/day on 28k8 V34/VFC, Phone +46-(0)8-6417838.
                                                                 951020
_________________________________________________________________________

           Titel: 3rd degree solver
          Author: ?
      Written by: Sent in R20_CASIO by Hans-Johan HDlan
                  ASCII-file by Magnus Werner.

     Description: Solves 3rd degree equations.

         Remarks: Store the equation in functionmemory 1.

_________________________________________________________________________

Command translation:

->              Single arrow (located on the keyboard)
=>              Double arrow (press: [shift] [prgm] [f1] [f1])
_               Display, -Disp- (press: [shift] [prgm] [f4])
<=              Less or equal (A <= B)
>=              Greater or equal (A >= B)
<>              Not equal (A <> B)
^               Raised to the power of
/               Division or fraction (explain which with a comment)

2rt()           Root (2rt(7) is the square root of 7)
4rt()           4th root
pi              pi (~3.14159265359, low case)
e()             e(1) (~2.7818281846, low case)
E               Exponent (5E4 gives 5*10^4) (located on the keyboard,
                [EXP])
_________________________________________________________________________

All commands which in ASCII-form are two or more characters are to be
seperated from other commands with a space (i.e. -> , => , <> or pi).
Refer to the command standard used in R20_CASIO and set by Magnus
Werner on SilverSTone BBS (2:201/345@fidonet.org).

Everything after a ; is a comment and should not be in the code.

_________________________________________________________________________

 Program:

"A:"?->A
"B:"?->B
"E:"?->E
Lbl 1
(A+B)/2->M
A->X
F1->C
M->X
f1*C->C
C>=0=>Goto 2
M->B
Goto 3
Lbl 2
M->A
Lbl 3
B-A>2E=>Goto 1
(A+B)/2

_________________________________________________________________________

 If you need help or information concerning this file, please contact
 Magnus Werner at the addresses above, or the author if possible.

_________________________________________________________________________