Every once in a while, someone wants to know how to compute QB ratings (This 
will not work for the CFL. Their ratings are more lenient). Well, here is how 
you'd do it in Basic (Just be sure to plug in values for attempts (att), 
completions (comp), TDS (tds) and interceptions (ints)):
a1 = ((comp / att) - .3) / .2
IF a1 > 2.375 THEN a1 = 2.375
IF a1 < 0 THEN a1 = 0
a2 = ((yards / att) - 3) / 4
IF a2 > 2.375 THEN a2 = 2.375
IF a2 < 0 THEN a2 = 0
a3 = (tds / att) / .05
IF a3 < 0 THEN a3 = 0
a4 = (.095 - (ints / att)) / .04
IF a4 > 2.375 THEN a4 = 2.375
IF a4 < 0 THEN a4 = 0
rating = INT((((a1 + a2 + a3 + a4) * 100) / 6) * 10 + .5) / 10
PRINT rating
--- TrekEd 1.00
---------------