DECLARE SUB getroot1 ()
DECLARE SUB getroot2 ()
'       BASIC assignment no. 20
DIM SHARED a, b, c, root1, root2
INPUT "What is the value of a"; a
INPUT "What is the value of b"; b
INPUT "What is the value of c"; c
PRINT "One root is", root1
PRINT "The other one is", root2

'This program contains 2 SUB routines called GetRoot1 and GetRoot2 that
'calculate each of the two roots of a quadratic equation.
'1. Enter requests to carry out these 2 SUBs at the appropriate point in
'   the main program.
'2. Run the program using 2, 6 and -20 for a, b and c.(This should give
'   roots or 2 and -5.
'3. The last instruction in every SUB routine is the same.  Write this
'   instruction at the end of this line:

'Enter your name as a comment. Save this program on drive f:

SUB getroot1
  LET root1 = (-b + SQR(b ^ 2 - 4 * a * c)) / (2 * a)
END SUB

SUB getroot2
  LET root2 = (-b - SQR(b ^ 2 - 4 * a * c)) / (2 * a)
END SUB