(define quadratic2 '( (100 input "What is the value of A" a ) (110 input "What is the value of B" b ) (120 input "What is the value of C" c ) (130 let d = ((b * b) - (4.0 * (a * c))) ) (140 if (d < 0) then 190 ) (150 gosub 210 ) (160 print "The 1st root is: " (((-1.0 * b) + s) / (2.0 * a)) ) (170 print "The 2nd root is: " (((-1.0 * b) - s) / (2.0 * a)) ) (180 end ) (190 print "Imaginary roots." ) (200 end ) (210 let s = 1 ) (220 for i = 1 to 10 ) (230 let s = ((s + (d / s)) / 2.0) ) (240 next i ) (250 return )))