'This is a program that calculates the volume of a sphere.
DIM Radius AS DOUBLE
DIM Pi AS DOUBLE
DIM Volume AS DOUBLE
CLS
INPUT "What is the radius of the sphere (ft.) "; Radius
PRINT
Pi = 4 * ATN(1)
Volume = Pi * Radius * Radius * Radius / 3
PRINT "The volume of the sphere= "; Volume; " cubic feet"
END