14 lines
414 B
Plaintext
14 lines
414 B
Plaintext
to select :prompt [:options]
|
|
foreach :options [(print # ?)]
|
|
forever [
|
|
type :prompt type "| |
|
|
make "n readword
|
|
if (and [number? :n] [:n >= 1] [:n <= count :options]) [output item :n :options]
|
|
print sentence [Must enter a number between 1 and] count :options
|
|
]
|
|
end
|
|
|
|
print equal? [huff and puff] (select
|
|
[Which is from the three pigs?]
|
|
[fee fie] [huff and puff] [mirror mirror] [tick tock])
|