CLS
PRINT "ACCELERATION DUE TO GRAVITY"
[ontwze]
PRINT
PRINT "LATITUDE (0-90 DEG) = ";
INPUT " ";L
PRINT"ALTITUDE(FEET)= ";
INPUT " ";H
PRINT
REM ===HELMERTS EQUATION===
R = 57.29577
A = cos(2*L/R)
A1 = 980.616
A2 = 2.5928*A
A3 = .0069*A*A
A4 = (1.0125/10^5)*H
G = A1-A2+A3-A4
GE = G/30.48
PRINT "G (FT/SEC*SEC) = ";GE
PRINT "G (CM/SEC*SEC) = ";G
PRINT
PRINT "CONTINUE (Y/N) = ";
INPUT Q$
PRINT
IF Q$="Y" or Q$="y" goto [ontwze]
END