%%HP: T(1)A(R)F(.);
 CLEAR
"Using CASE THEN END 
Enter a number"
"" INPUT OBJ  A
   A "A" TAG
    CASE 'A==0'
      THEN "A=0"
      END 'A<0'
      THEN "A<0"
      END 'A>0'
      THEN "A>0"
      END
    END
  

