Yes or No?

[CosmicTruth]

This is getting a little better, takes an text or arg from stack 1, it shows a tmenu and allows menu selection or Y or N key it returns a 1 for yes or a 0 for no.

Code:

%%HP: T(3)A(D)F(.);
\<< CLLCD "?
Yes or No" + 1 DISP { "YES" "" "" "" "" "NO" } TMENU
  DO -1 WAIT
  UNTIL { 16.1 42.1 64.1 11.1 } SWAP POS
    IF DUP
    THEN 1 - 1
    ELSE 1000 .07 BEEP
    END
  END 0 MENU 1.1 - SIGN
\>>

something tells me this has all been done before but i couldn't find anything with source code.