%%HP: T(1)A(G)F(.);
  p
  
    DO p
      IFERR EVAL
      THEN CLEAR p
" error:
data entry mistake"
+ { "" "" "" "" {
"(AN(L"
         0 MENU
KILL 0 DOERR
         } {
"AGAIN"
         0 MENU 0
CONT
         } } TMENU
PROMPT
      ELSE 1
      END
    UNTIL
    END
  

