A small program to evaluate the summation of products :

   PRINT "Key in the number of data points......"
   INPUT n
   IF n <= 0 GOTO 20
   i = 0
   Noodles = 0
7  i = i + 1
   PRINT "Key in the x-coordinate...."
   INPUT x(i)
   PRINT "Key in the y-coordinate...."
   INPUT y(i)
   Noodles = Noodles + (x(i)*y(i))
   if i < n GOTO 7
   PRINT "   "
   PRINT "The summation of the products of x and y is equal to", Noodles
   PRINT "   "
   GOTO 25
20 PRINT "Invalid input !" 
25 END

Microwave spectroscopy for diatomic systems......

   PRINT "Key in the relative atomic mass of the first atom..."
   INPUT ram1
   PRINT "      "
   PRINT "Key in the relative atomic mass of the second atom...."
   INPUT ram2
   IF ram1 = ram2 GOTO 1
   PRINT "  "
   PRINT "Key in the value of the rotational constant (B) in reciprocal cm....."
   INPUT B
   green = (ram1 * ram2)/((ram1 + ram2) * (6.023))
   blue = (27.9907 / B)
   square = ((blue) / (green)) * 0.1
   sqroot = SQR(square)
   PRINT "    "
   PRINT "The bond length is numerically equal to", sqroot
   PRINT "angstrom"
   GOTO 2
1  PRINT "The molecule is microwave inactive.....!"
2  END

Assignment for students: Banwell's book on spectroscopy will help you in unleashing the origin of the number "27.9907." You should also study the way in which the negative powers of "10" were eliminated from the above calculations.