24 lines
661 B
Plaintext
24 lines
661 B
Plaintext
include c:\cxpl\codes;
|
|
string 0;
|
|
|
|
func Menu(List);
|
|
int List;
|
|
int Size, I, C;
|
|
[Size:= List(0);
|
|
if Size < 1 then return List(0);
|
|
for I:= 1 to Size-1 do
|
|
[IntOut(0, I); Text(0, ": ");
|
|
Text(0, List(I)); CrLf(0);
|
|
];
|
|
CrLf(0);
|
|
Text(0, List(Size)); \display prompt
|
|
loop [C:= ChIn(0); \buffered keyboard requires Enter key
|
|
if C>=^1 & C<=Size-1+^0 then return List(C-^0);
|
|
Text(0, "Please enter 1 thru "); IntOut(0, Size-1);
|
|
Text(0, ": ");
|
|
];
|
|
];
|
|
|
|
Text(0, Menu([5, "fee fie", "huff and puff", "mirror mirror", "tick tock",
|
|
"Which phrase is from the Three Little Pigs? "]))
|