sh vari set_temp
inquire real vari set_temp text "TEMPERATURE FACTOR:"
set temp sele active end = set_temp
return