erreur: etiquette

Bon voila, j'ai un gros probleme...
J'ai fais un programme de quizz mais le probleme c'est que lorsque j'ai fini de répondre aux questions, il m'affiche erreur etiquette et en + c'est pas le bon score
bon à peut près a quoi ça ressemble :
Menu("titre", "choix 1",A,"choix 2",B,"choix3",C
Lbl A
disp "...."
(plein d'autres disps)
return
Goto D
Lbl B
0 sto S
disp "question"
disp "reponse1"(faux)
disp "reponse2"(faux)
disp "reponse3"(juste)
disp "reponse4"(faux)
disp "reponse0"(ne sais pas)
input "reponse:",R
If R=3
then
(S+1)stoS
end
If R=1 ou 2 ou 4
then
(S-0.5)stoS
end
If R=0
then
(S+0)stoS
end
disp "question"
disp "reponse1"(faux)
disp "reponse2"(juste)
disp "reponse3"(faux)
disp "reponse4"(faux)
disp "reponse0"(ne sais pas)
input "reponse:",R
If R=2
then
(S+1)stoS
end
If R=1 ou 3 ou 4
then
(S-0.5)stoS
end
If R=0
then
(S+0)stoS
end
disp "score:"
disp S
Goto G
alors quelqu'un peut m'aider ?
J'ai fais un programme de quizz mais le probleme c'est que lorsque j'ai fini de répondre aux questions, il m'affiche erreur etiquette et en + c'est pas le bon score

bon à peut près a quoi ça ressemble :
Menu("titre", "choix 1",A,"choix 2",B,"choix3",C
Lbl A
disp "...."
(plein d'autres disps)
return
Goto D
Lbl B
0 sto S
disp "question"
disp "reponse1"(faux)
disp "reponse2"(faux)
disp "reponse3"(juste)
disp "reponse4"(faux)
disp "reponse0"(ne sais pas)
input "reponse:",R
If R=3
then
(S+1)stoS
end
If R=1 ou 2 ou 4
then
(S-0.5)stoS
end
If R=0
then
(S+0)stoS
end
disp "question"
disp "reponse1"(faux)
disp "reponse2"(juste)
disp "reponse3"(faux)
disp "reponse4"(faux)
disp "reponse0"(ne sais pas)
input "reponse:",R
If R=2
then
(S+1)stoS
end
If R=1 ou 3 ou 4
then
(S-0.5)stoS
end
If R=0
then
(S+0)stoS
end
disp "score:"
disp S
Goto G
alors quelqu'un peut m'aider ?