%%HP: T(1)A(R)F(.);
 CLEAR
"Using DOERR
LOG of a number
Enter a number  0"
"" INPUT OBJ  A
  
    CASE 'A0'
      THEN
"ERROR! Irreal Result!
"
DOERR
      END 'A>0'
      THEN 'LOG(A)'
NUM " LOG " TAG
      END
    END
  

