%%HP: T(1)A(R)F(.);
 CLEAR CLLCD
"      Calculus 
  of Circle area

   Press <ENTER>"
3 DISP 0 WAIT DROP
"Enter r" "" INPUT
OBJ  r
   r "r" TAG '*r
^2' NUM "area"
TAG
  

