%%HP: T(3)A(D)F(.);
\<< RCLMENU \-> m
  \<<
    IF DUP TYPE 5
==
    THEN OBJ\-> DROP
    END ROT TMENU
"Input " ROT +
",
then press menu key
and ENTER"
+ SWAP IN FIXUP m
MENU
  \>>
\>>
