%%HP: T(1)A(R)F(.);
 CLEAR CLLCD
"Minehunt with Password
Enter Password"
{  } INPUT  A
   A
    IF A "HP48" ==
    THEN CLEAR
CLLCD
"     Password OK!"
4 DISP 1 WAIT
MINEHUNT
    ELSE
"   MISMATCH
   PASSWORD!
   Use HP48 
  as password!"
MSGBOX CLEAR
    END
  

