Convertisseur io en octets

Define convertisseur()=
Prgm
Local nbre,prefixe,a,convert
Request "Le nombre à convertir",nbre
RequestStr "Le prefixe est : ",prefixe
If prefixe="kilo" Then
a:=10^(3)
abrev:="k"
ElseIf prefixe="mega" Then
a:=10^(6)
abrev:="M"
ElseIf prefixe="giga" Then
a:=10^(9)
abrev:="G"
ElseIf prefixe="tera" Then
a=10^(12)
abrev:="T"
Else
Stop
EndIf
RequestStr "Convertir de "&abrev&" io ou de "&abrev&" o en octets", convert


EndPrgm