TALK=T;RUN(1,1)                                           
  <html><head><title>088.htm</title>
  <link rel="stylesheet" type="text/css"
  href="/phoenics/d_polis/polstyle.css">
  </head><body><pre><strong>
  
  This macro is called by cases 090 to 
  facilitate selecting fluids for use with case 089
  
boolean(liquid)
integer(kase)
mesg(press 1 for liquid (default) or 2 for gas)
readvdu(kase,int,1)
if(kase.gt.1) then
 goto gases
endif 
mesg(available liquids are as follows
mesg(1 fluid_name=saturated_water       
mesg(2 fluid_name=SAE_5W-30_engine_oil  
mesg(3  fluid_name=SAE_10W-30_engine_oil 
mesg(4  fluid_name=SAE_20W-20_engine_oil 
mesg(5  fluid_name=Ethylene_Glycol
mesg(6  fluid_name=Ethylene_Glycol_50%_by_volume_aqueous_solution
mesg(7  fluid_name=Gasoline
mesg(8 fluid_name=Glycerin
mesg(9  fluid_name=Refrigerant-12
mesg(10 fluid_name=Refrigerant-134a
mesg(11 fluid_name=Therminol_59
mesg(12 fluid_name=Therminol_66
mesg(13 fluid_name=Dowtherm_A
mesg(14 fluid_name=Syltherm_800
mesg(15 fluid_name=FC-72
mesg(16 fluid_name=HFE-7100
mesg(17 fluid_name=Mercury
mesgm(Now please choose a number
readvdu(kase,int,1) 
if(kase.eq.1) then
fluid_name=saturated_water       
endif
if(kase.eq.2) then 
fluid_name=SAE_5W-30_engine_oil  
endif
if(kase.eq.3 ) then 
fluid_name=SAE_10W-30_engine_oil 
endif
if(kase.eq.4 ) then 
fluid_name=SAE_20W-20_engine_oil 
endif
if(kase.eq.5 ) then 
fluid_name=Ethylene_Glycol
endif
if(kase.eq.6 ) then 
fluid_name=Ethylene_Glycol_50%_by_volume_aqueous_solution
endif
if(kase.eq.7 ) then 
fluid_name=Gasoline
endif
if(kase.eq.8) then
 fluid_name=Glycerin
endif
if(kase.eq.9 ) then
 fluid_name=Refrigerant-12
endif
if(kase.eq.10) then
 fluid_name=Refrigerant-134a
endif
if(kase.eq.11) then
 fluid_name=Therminol_59
endif
if(kase.eq.12) then
 fluid_name=Therminol_66
endif
if(kase.eq.13) then
 fluid_name=Dowtherm_A
endif
if(kase.eq.14) then
 fluid_name=Syltherm_800
endif
if(kase.eq.15) then
 fluid_name=FC-72
endif
if(kase.eq.16) then
 fluid_name=HFE-7100
endif
if(kase.eq.17) then
 fluid_name=Mercury
endif
   ------------------
goto end
label gases
mesg(1  fluid_name=Air
mesg(2 fluid_name=Ammonia
mesg(3 fluid_name=Argon
mesg(4 fluid_name=Carbon_Dioxide
mesg(5 fluid_name=Carbon_Monoxide
mesg(6 fluid_name=Helium
mesg(7 fluid_name=Hydrogen
mesg(8 fluid_name=Methane
mesg(9 fluid_name=Nitrogen
mesg(10 fluid_name=Oxygen
mesg(11 fluid_name=superheated_water_vapour
mesg(12 fluid_name=saturated_water_vapor
mesg(13 fluid_name=saturated_vapor_Refrigerant-12
mesg(14 fluid_name=saturated_vapor_Refrigerant-134a
mesgm(Now please choose a number
readvdu(kase,int,1) 
if(kase.eq.1) then 
 fluid_name=Air
endif 
if(kase.eq.2) then
 fluid_name=Ammonia
endif 
if(kase.eq.3) then
 fluid_name=Argon
endif 
if(kase.eq.4) then
 fluid_name=Carbon_Dioxide
endif 
if(kase.eq.5) then
 fluid_name=Carbon_Monoxide
endif 
if(kase.eq.6) then
 fluid_name=Helium
endif 
if(kase.eq.7) then
 fluid_name=Hydrogen
endif 
if(kase.eq.8) then
 fluid_name=Methane
endif 
if(kase.eq.9) then
 fluid_name=Nitrogen
endif 
if(kase.eq.10) then
 fluid_name=Oxygen
endif 
if(kase.eq.11) then
 fluid_name=superheated_water_vapor
endif 
if(kase.eq.12) then
 fluid_name=saturated_water_vapor
endif 
if(kase.eq.13) then
 fluid_name=saturated_vapor_Refrigerant-12
endif 
if(kase.eq.14) then
 fluid_name=saturated_vapor_Refrigerant-134a
endif 
label end
  load fluid-property file, case 089
l($089) then
fluid_name
text(:fluid_name:
  </html></body></pre></strong>