CLS
PRINT "BAROMETRIC PRESSURE CORRECTION"
[ONONZE]
PRINT
PRINT "ALTITUDE = ";
INPUT " ";A
PRINT
REM ==EQUATION COEFFICIENTS==
A1 = 29.921
A2 = 1.07097479*10^-3
A3 = 1.35271553*10^-8
B1 = 3.5654239*10^-3
B2 = A1-A2*A+A3*A*A
T = 59.0-B1*A
P = B2 * .4911901
M = B2 * 25.40023
PRINT "BAROMETRIC PRESSURE"
PRINT
PRINT "INCHES OF MERCURY  = ";B2
PRINT "MM OF MERCURY      = ";M
PRINT "POUNDS PER SQ INCH = ";P
PRINT
PRINT "TEMPERATURE FAHR.  = ";T
PRINT
PRINT "MORE DATA (Y/N)? ";
INPUT " ";X$
IF X$ = "Y" or X$="y" THEN [ONONZE]
END