%%HP: T(1)A(R)F(.);
 CLEAR
"Celcius to Farenheit
Enter T in CELCIUS"
"" INPUT OBJ  C
   C "Celcius"
TAG '1.8*C+32'
EVAL "Farenheit"
TAG
  

