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

