; ************************************************************
; Quadradic Equation Solver
; ************************************************************
; 

#EMULATOR c:\ti-59\prg2\quadequ\quadequ.t59
#LISTING c:\ti-59\prg2\quadequ\quadequ.lst
#POCKETPC c:\ti-59\prg2\quadequ\quadequ.ti

lbl a
op 0 inv stf 3 sto 1 "A___ line>> rcl 1 mixline rtn

lbl b 
sto 2 "B___ line>> rcl 2 mixline rtn

lbl c
sto 3 "C___ line>> rcl 3 mixline adv rtn

lbl d
0 sto 0 inv stf 0 b' x2 - 4 * rcl 1 * rcl 3 =
sqr sto 4 inv stf 7 op 19 iff 7 ge stf 0 sto 11 "RRT1 line>> rcl 11

lbl s+
+ b' +/- c' mixline iff 3 adv rtn

lbl c'
= / 2 / rcl 1 = rtn

lbl ge
ce c' sto 0 b' +/- c' sto 11 "RRT1 line>> rcl 11 mixline rtn

lbl d'
"I___ line>> rcl 0 mixline rtn

lbl e
"RRT2 line>> rcl 4 +/- stf 3 iff 0 s+ b' +/- c' mixline adv rtn

lbl e'
rcl 0 +/- = sto 11 "I___ line>> rcl 11 mixline adv adv adv adv rtn

lbl b'
rcl 2 rtn

lbl adv
adv rtn

 
#end
 