If then, if then,.....,else. (Multiple if else) 1

[Tenes]

Hello,

I'm trying to create a menu with choices.
When the user will press 1 will call the option1.
When the user will press 2 will call the option2.
.
.
.
else will system halt.

When the user will press 1 will call the option1.

my code works for only 2 choices:
when I try to add more I still get the option2
I need to add at least 5 choices.

menou:-
write('Menou:\n'),
write('Press [1] to ....\n'),
write('Press [2] to ....\n'),
write('Enter choise:'),
read(Key),

Key=1->write('\n1.'),option1;
Key=2->write('\n2.'),option2;
write('\nWrong option.').

option1:-write('option1 selected').
option2:-write('option2 selected').

Thanks in advance.

 

[joel76]

Here is an example in SWI-Prolog :

test :-
	repeat,
	    writeln('1. action 1'),
	    writeln('2. action 2'),
	    writeln('3. bye'),
	    read(X),
	    travail(X).

travail(1) :-
	!,
	writeln('action 1'), fail.

travail(2) :-
	!,
	writeln('action 2'), fail.

travail(3) :-
	!,
	writeln('bye').

travail(_) :-
	writeln('wrong option'), fail.

Here is what you get :

5 ?- test.
1. action 1
2. action 2
3. bye
|: 1.
action 1
1. action 1
2. action 2
3. bye
|: 2.
action 2
1. action 1
2. action 2
3. bye
|: 4.
wrong option
1. action 1
2. action 2
3. bye
|: 3.
bye
true .

 

[Tenes]

Thanks man you have done even more than answering only my question.