06-26-2014, 02:47 AM
here is what I have now for YN for 50G.
takes a string then asks for Y or N, Yes or No, 0 or 1 and returns 0 for no 1 for yes.
crude, imperfect, but it works.
Code:
%%HP: T(3)A(D)F(.);
\<< CLLCD "?
Yes or No" + 1 DISP { "YES" "" "" "" "" "NO" } TMENU
DO -1 WAIT
UNTIL { 16.1 42.1 102.1 64.1 11.1 92.1 } SWAP POS
IF DUP
THEN 3.1 - 1
ELSE 1500 .1 BEEP
END
END 0 MENU SIGN \-> X 'X>0'
\>>
crude, imperfect, but it works.