.TITLE	YESNOA
$YESNO::MOV	#-1,R1
	RETURN
	.END