%%HP: T(1)A(R)F(.);
 CLEAR
  IFERR
"IFERR THEN ERRM END 
Type bad guess to ERRM
or a number to  OK!"
"" INPUT OBJ  A
     'A^2' NUM
"Result OK! A "
TAG
    
  THEN CLLCD
"The error message is"
3 DISP .01 WAIT
ERRM 5 DISP 2 WAIT
  ELSE
  END

