Perhaps try something like this
.. note also the square brackets around the options ... try a right click to display the popup options menu when the command is running, you'll see the options displayed .. which you can also click ..
(DEFUN c:Yesno (/ return)
(INITGET 0 "Yes No")
(OR (SETQ return (GETKWORD "\nAre you sure? [Yes/No] < Yes >: "))
(SETQ return "Yes")
)
return
)
I just wanted to second that about using the square brackets for your prompt. In the newer versions of Autocad, Autocad uses those square brackets to determine the available choices for the Dynamic Input prompt. It also pays attention to those angle brackets, for the "default". For example, in the following:
(initget 128 "Current Jump Options")
(setq sel
(getpoint
(VLutil:getPointAtDist e curDist)
(strcat
"\nEnter end elev <"
(rtos CogoPtLastEl)
"> or pick grd brk "
"[Current elev/Jump to point/Options]: "
) ;_ strcat
) ;_ getpoint
) ;_ setq
Say the value for CogoPtLastEl is "2600.00". The above code will result in a Dynamic Input prompt composed of a list that contains the following choices:
* 2600.00
Current elev
Jump to point
Options
The "2600.00" will be flagged as the "current value" in the list.