CLS
PRINT "PROPERTIES OF WATER"
PRINT
[ONTWZE]
PRINT
[ONTHZE]
PRINT "FAHRENHEIT OR CENTIGRADE (F/C) ? ";
INPUT " ";Q1$
PRINT
IF Q1$ = "F" THEN [TWFOZE]
IF Q1$ <>"C"THEN [ONTHZE]
[ONEIZE]
PRINT "INPUT INITIAL TEMP (0-100 C ) = "';
INPUT " "; C
IF C < 0 THEN [ONEIZE]
IF C > 100 THEN [ONEIZE]
PRINT
GOTO [THONZE]
[TWFOZE]
PRINT "INPUT INITIAL TEMP (32-212 F ) = ";
INPUT  " "; F
IF F < 32 THEN [TWFOZE]
IF F > 212 THEN [TWFOZE]
PRINT
C = 5 * (F -32)/9
[THONZE]
REM CALC DENSITY
GOSUB [ONZEZEZE]
D3 = D1
[THFOZE]
PRINT "CALCULATE VOLUME EXPANSION? Y/N = ";
INPUT " "; Q2$
PRINT
IF Q2$ = "N" THEN [SISIZE]
IF Q2$ <>"Y"THEN [THFOZE]
IF Q1$ = "F" THEN [FOSIZE]
[FOZEZE]
PRINT "INPUT FINAL TEMP (0-100 C ) = ";
INPUT  " ";C
IF C < 0 THEN [FOZEZE]
IF C > 100 THEN [FOZEZE]
PRINT
GOTO [FITHZE]
[FOSIZE]
PRINT "INPUT FINAL TEMP (32-212 F ) = ";
INPUT  " ";F
IF F <32 THEN [FOSIZE]
IF F > 212 THEN [FOSIZE]
PRINT
C = 5 * (F -32) / 9
[FITHZE]
PRINT "VOLUME OF WATER V= ";
INPUT  " ";V
PRINT
REM ==CALCULATE DENSITY==
GOSUB [ONZEZEZE]
D4 = D1
REM ==CALCULATE VOLUME EXPANSION==
V1 = V * D3 / D4
V2 = V1 -V
PRINT "ORIGINAL VOLUME = ";V
PRINT "FINAL VOLUME= ";V1
PRINT "DIFFERENCE VOL= ";V2
PRINT
[SISIZE]
PRINT "RERUN PROGRAM WITH NEW DATA Y/N = ";
INPUT  " ";Q3$
IF Q3$ = "Y" THEN [ONTWZE]
IF Q3$ <> "N" THEN [SISIZE]
GOTO [ONTWTWZE]
[ONZEZEZE]
A1 = 999.8425
A2 = 16.9451784 * C
A3 = 7.9870401*10^-3 * C^ 2
A4 = 4.6170461*10^-5 * C^3
A5 = 1.0556302*10^-7 * C^4
A6 = 2.8054253*10^-10 * C^5
A7 = .01687985 * C
D1 = (A1 + A2 -A3 -A4 + A5 -A6) / (1 + A7)
REM ==CONVERT TO #/FT^3==
D2 = D1 * .06242796
REM ==CALC #/GAL==
G1 = D2 * .13368
REM ==CALC SPECIFIC GRAVITY==
S1 = D1 / 999.975
PRINT "DENSITY (KG/M^3) = ";D1
PRINT "DENSITY (#/FT^3) = ";D2
PRINT "DENSITY (#/GAL)  = ";G1
PRINT "SPECIFIC GRAVITY = "; S1
PRINT
RETURN
[ONTWTWZE]
END