10 lines
233 B
Text
10 lines
233 B
Text
|
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
|