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 ?