Menu: Difference between revisions

Content added Content deleted
Line 1,354: Line 1,354:
# --------- subroutines below ---------------------------------
# --------- subroutines below ---------------------------------


procedure
procedure displaymenu(X)

displaymenu(X)
repeat {
repeat {
writes("Choose a number from the menu above: ")
writes("Choose a number from the menu above: ")