%%HP: T(1)A(R)F(.);
 CLEAR
"Using a menu option
 Choose Option
1-Celsius 2-Farenheit"
"" INPUT OBJ  A
   CLEAR
    IF A 1 ==
    THEN
"Celcius to Farenheit
Enter T Celcius "
"" INPUT OBJ  C
       C "C" TAG
'1.8*C+32' NUM "F"
TAG
      
    ELSE
      IF A 2 ==
      THEN
"Farenheit to Celcius
Enter T Farenheit"
"" INPUT OBJ  F
         F "F"
TAG '5*(F-32)/9'
NUM "C" TAG
        
      END
    END
  

