Menu: Difference between revisions

Content added Content deleted
Line 1,337: Line 1,337:


<lang Icon>
<lang Icon>
## menu.icn : rewrite of the faulty version on Rosetta Code site 24/4/2021

procedure main()
procedure main()
Line 1,354: Line 1,356:
# --------- subroutines below ---------------------------------
# --------- subroutines below ---------------------------------


procedure displaymenu(X)
procedure choose_from_menu(X)

displaymenu(X)
repeat {
repeat {
writes("Choose a number from the menu above: ")
writes("Choose a number from the menu above: ")
Line 1,376: Line 1,379:
procedure displaymenu(X)
procedure displaymenu(X)
every i := 1 to *X do
every i := 1 to *X do
write(i,") ",X[i]) ## display menu options
write(i,") ",X[i]) ## dispay menu options
end ## displaymenu(X)
end ## displaymenu(X)
# ------------- end subroutines -----------------




</lang>
</lang>