%%HP: T(1)A(D)F(.);
 "1"
  DO Code
    IF DUP "1" SAME
    THEN 200 .03
BEEP
    END
  UNTIL KEY
  END DROP DROP

