clc
clear
//Initialization of variables
disp("From table 1 of keenan and keynes,")
p=400 //psia
t1=700 //F
p2=85 //psia
//calculations
s2=1.6398 //units/lb
t2=350 //F
//results
printf("Final state of steam is %d psia and %d F",p2,t2)