Module TestMenu {
	Print "Make your choice: ";
	Do
	Menu "fee fie", "huff and puff", "mirror mirror", "tick tock"
	when menu=0
	Print Menu$(Menu)
	Print "That was the ";If$(Menu->"1st","2nd","3rd","4th");" option, bravo;"
}
TestMenu