Calcul de point au bac

Define bac()=
Prgm
:Local spe,a,b,c,option,option1,option2,calcul,fro,fre,hist,tpe,philo,lv1,lv2,sport,maths,phys,svt,point,note,mention
:RequestStr "Votre specialite:",spe
:If spe="maths" Then
:a:=9
:b:=6
:c:=6
:ElseIf spe="physique" Then
:a:=7
:b:=8
:c:=6
:ElseIf spe="svt" Then
:a:=7
:b:=6
:c:=8
:EndIf
:Request "Nombre d'option(s):",option
:If option=0 Then
:option1:=0
:option2:=0
:ElseIf option=1 Then
:Request "Note option:",option1
:option1:=2*option1
:option2:=0
:ElseIf option=2 Then
:Request "Note option 1:",option1
:option1:=2*option1
:Request "Note option 2:",option2
:EndIf
:Request "note francais ecrit:",fre
:fre:=fre*2
:Request "note francais oral:",fro
:fro:=fro*2
:Request "note histoire:",hist
:hist:=hist*3
:Request "note tpe:",tpe
:If tpe>10 Then
:tpe:=(10-tpe)*2
:Else
:tpe:=0
:EndIf
:Request "note philo:",philo
:philo:=philo*3
:Request "note sport:",sport
:sport:=sport*2
:Request "note lv1:",lv1
:lv1:=lv1*3
:Request "note lv2:",lv2
:lv2:=lv2*3
:Request "note maths:",maths
:maths:=maths*a
:Request "note svt:",svt
:svt:=svt*c
:Request "note physique:",phys
:phys:=phys*b
:point:=option1+option2+fre+fro+hist+tpe+philo+sport+lv1+lv2+maths+svt+phys
:note:=((point)/(760))*20
:setMode(5,2)
:If 456≤point<532 Then
:mention:=assez*bien
:ElseIf 532≤point<608 Then
:mention:=bien
:ElseIf 608≤point Then
:mention:=tres*bien
:EndIf
:Disp "Vous avez ",point," points soit une note de ",note
:Disp mention
:EndPrgm