%%HP: T(1)A(R)F(.);
 CLEAR
"Parts of a number
Enter a number"
"" INPUT OBJ  A
   A "Number" TAG
'IP(A)' NUM
"Int Part" TAG 'FP
(A)' NUM
"Frac Part" TAG
  

