ô > Confirm 1.00 ô J.G.Harston : (+ô FNyn - Prompt for Yes/No confirmation 2+ô ===================================== <+ô Prompts Yes/No and returns TRUE/FALSE Fô Called as: P*ô PRINT "Do something";:action%=FNyn Z$ô IF action% THEN do something d: nݤyn x*ñ "? (Y/N)";:õ:A%=§"YN",½(¥€&DF)):ý A% ‚)ñ Ä5,½127);Á"YesNo ",A%*3-2,3);:=A%=1 Œ: –:  4ô FNyna(A%) - Prompt for Yes/No/All confirmation ª4ô ============================================== ´Bô If the passed action% is zero, then immediately returns zero ¾8ô If the passed action% is non-0, prompts Yes/No/All È:ô Returns 0 = All - so future calls return immediately Ò0ô <0 = Yes so <1 = Yes now and always Üô >0 = No æô Called as: ð>ô Previous set action%=0 for 'All' or non-zero to prompt ú4ô PRINT "Do something";:action%=FNyna(action%) &ô IF action%<1 THEN do something : ݤyna(A%):ç A%=0:=0 "-ñ "? (Y/N/A)";:õ:A%=§"YAN",½(¥€&DF)):ý A% ,,ñ Ä7,½127);Á"YesAllNo ",A%*3-2,3);:=A%-2 ÿ