CLS
PRINT "SATURATION STEAM PRESSURE"
PRINT
[ONTHZE]
PRINT
PRINT "FAHRENHEIT OR CENTIGRADE {F/C}? ";
INPUT " ";T$
PRINT
IF T$ = "F" THEN [TWTHZE]
IF T$ <> "C" THEN [ONTHZE]
PRINT "INPUT TEMPERATURE (0-374 C) = ";
INPUT  " ";C
GOTO [TWSEZE]
[TWTHZE]
PRINT "INPUT TEMPERATURE (32-705 F) = ";
INPUT " ";F
REM ==CONVERT TO KELVIN==
C = 5 * (F -32) / 9
[TWSEZE]
K = C + 273.15
K1 = 1000 / K
REM ==CRITICAL TEMPERATURE/PRESSURE==
T1 = 374.136
P1 = 220.88
REM ==POLYNOMIAL COEFFICIENTS==
F(1) = -741.9242
F(2) = -29.72100
F(3) = -11.55286
F(4) = -0.8685635
F(5) = 0.1094098
F(6) = 0.439993
F(7) = 0.2520658
F(8) = 0.05218684
P = 0
FOR J = 1 TO 8
P = P + F(J) * (0.65 -.01 * C)^(J -1)
NEXT J
P = P1 * EXP(K1 * (1/10^5) * (T1 -C) * P) / 10
P2 = P * 145.03894
PRINT
PRINT "PRESSURE -MPA  = ";P
PRINT "PRESSURE -PSIA = ";P2
PRINT
PRINT "RERUN WITH NEW DATA (Y/N)? ";
INPUT " ";Q$
PRINT
IF Q$ = "Y" or Q$="y" THEN [ONTHZE]
END