title "Magic 8 Ball"

resize 0, 0, 340, 150
center

bgcolor 0, 0, 255
cls graphics

formid 1
formtext "Think of a question and select the magic button."
staticform 10, 10, 310, 20
bgcolor 0, 0, 0
fgcolor 255, 0, 255
colorform

formid 2
formtext "Magic Button"
buttonform 115, 50, 100, 20
bgcolor 255, 0, 0
fgcolor 0, 0, 255
colorform

do


	if forms = 2 then

		gosub magicbutton

	endif

	button k, 27

	wait

loop k = 0

end

sub magicbutton

	let r = int(rnd * 20) + 1

	if r = 1 then

		alert "It is certain."

	endif

	if r = 2 then

		alert "It is decidedly so."

	endif

	if r = 3 then

		alert "Without a doubt."

	endif

	if r = 4 then

		alert "Yes – definitely."

	endif

	if r = 5 then

		alert "You may rely on it."

	endif

	if r = 6 then

		alert "As I see it", comma, " yes."

	endif

	if r = 7 then

		alert "Most likely."

	endif

	if r = 8 then

		alert "Outlook good."

	endif

	if r = 9 then

		alert "Yes."

	endif

	if r = 10 then

		alert "Signs point to yes."

	endif

	if r = 11 then

		alert "Reply hazy", comma, " try again."

	endif

	if r = 12 then

		alert "Ask again later."

	endif

	if r = 13 then

		alert "Better not tell you now."

	endif

	if r = 14 then

		alert "Cannot predict now."

	endif

	if r = 15 then

		alert "Concentrate and ask again."

	endif

	if r = 16 then

		alert "Don't count on it."

	endif

	if r = 17 then

		alert "My reply is no."

	endif

	if r = 18 then

		alert "My sources say no."

	endif

	if r = 19 then

		alert "Outlook not so good."

	endif

	if r = 20 then

		alert "Very doubtful."

	endif

return