13 lines
287 B
Text
13 lines
287 B
Text
procedure main()
|
|
|
|
L := ["fee fie", "huff and puff", "mirror mirror", "tick tock"]
|
|
|
|
every i := 1 to *L do
|
|
write(i,") ",L[i])
|
|
repeat {
|
|
writes("Choose a number from the menu above: ")
|
|
a := read()
|
|
if 1 <= integer(a) <= i then break
|
|
}
|
|
write("You selected ",a," ==> ",L[a])
|
|
end
|