18 lines
493 B
Plaintext
18 lines
493 B
Plaintext
test: proc options (main);
|
|
|
|
declare menu(4) character(100) varying static initial (
|
|
'fee fie', 'huff and puff', 'mirror mirror', 'tick tock');
|
|
declare (i, k) fixed binary;
|
|
|
|
do i = lbound(menu,1) to hbound(menu,1);
|
|
put skip edit (trim(i), ': ', menu(i) ) (a);
|
|
end;
|
|
put skip list ('please choose an item number');
|
|
get list (k);
|
|
if k >= lbound(menu,1) & k <= hbound(menu,1) then
|
|
put skip edit ('you chose ', menu(k)) (a);
|
|
else
|
|
put skip list ('Could not find your phrase');
|
|
|
|
end test;
|