Convertisseur V2

Define convertisseur()=
Prgm
Local nbre,prefixe,a,facteur,abrev,convert,octets,bits
Request "Le nombre à convertir",nbre
RequestStr "Le prefixe est : ",prefixe
If prefixe="kilo" or prefixe="k" or prefixe="K" Then
a:=10^(3)
facteur:=1
abrev:="k"
ElseIf prefixe="mega" or prefixe="m" or prefixe="M" Then
a:=10^(6)
facteur:=2
abrev:="M"
ElseIf prefixe="giga" or prefixe="g" or prefixe="G" Then
a:=10^(9)
facteur:=3
abrev:="G"
ElseIf prefixe="tera" or prefixe="t" or prefixe="T" Then
a:=10^(12)
facteur:=4
abrev:="T"
Else
Stop
EndIf
RequestStr "Convertir de "&abrev&"io ou de "&abrev&"o en octets: de ",convert
If convert="kio" or convert="mio" or convert="gio" or convert="tio" Then
setMode(3,3)
octets:=nbre*2^(facteur*10)
ElseIf convert="ko" or convert="mo" or convert="go" or convert="to" Then
octets:=nbre*a
Else
Stop
EndIf
bits:=octets*8
Disp "La conversion de "&nbre,abrev&" en octets est =",octets,"octet"
Disp "Le nombre de bots est ",bits,"bits"
EndPrgm