Premier programme après l'Amstrad

rem declaration de labels
label entre, calcul, fin

rem declaration des variables
dim a$, longueur, chaine$, nombre, bin$, i, x, etat, debut



etat=0
i=0
x=100
chaine$=""
bin$=""
longueur=0
debut=0

rem declaration affichage
maximize 0 : color 0,0,0,0 : caption 0,"Convertisseur decbin"
alpha 1 : top 1,10 : font_color 1,2,255,2 : font_bold 1 : left 1,10 : font_size 1,20
caption 1,"Entrez le nombre puis presser Enter : "
alpha 2 : top 2,15 : font_color 2,255,0,2 : font_bold 2 : left 2,800 : font_size 2,15
caption 2,"Pressez la touche (s) pour sortir"
alpha 3 :left 3,500: top 3,10 : font_color 3,255,0,2 : font_bold 3 : font_size 3,20
alpha 4 : top 4,40 : font_color 4,255,0,2 : font_bold 4 : left 4,800 : font_size 4,15
caption 4,"Pressez la touche (v) pour valider"
alpha 5 : top 5,70 : font_color 5,255,0,2 : font_bold 5 : left 5,800 : font_size 5,15
caption 5,"Pressez la touche (e) pour effacer"
alpha 6 : top 6,50 : font_color 6,0,255,0 : font_bold 6 : left 6,10 : font_size 6,15
caption 6,"Longueur du nombre (Base10) :"
alpha 7 : top 7,50 : font_color 7,0,255,2 : font_bold 7 : left 7,320 : font_size 7,15
alpha 8 : top 8,80 : font_color 8,0,255,2 : font_bold 8 : left 8,20 : font_size 8,15
alpha 9 : top 9,100 : font_color 9,0,255,2 : font_bold 9 : left 9,10 : font_size 9,15
entre:
caption 7,longueur
a$=inkey$
if a$="e"
caption 3,"                                            "
longueur=0
chaine$=""
end_if
if a$="s" then goto fin
if longueur=15 or a$="v"
nombre=val(chaine$)
goto calcul
end_if
if a$= "1" or a$="2" or a$="3" or a$="4" or a$="5" or a$="6" or a$="7" or a$="8" or a$="9" or a$="0"
chaine$=chaine$+a$
longueur=longueur+1
caption 3,chaine$
end_if
goto entre
calcul:
if nombre >= power(2,x)
bin$=bin$+"1"
nombre=nombre-power(2,x)
debut=1
else
if debut=1 then bin$=bin$+"0"
end_if
if x = 0 then goto fin
x=x-1
goto calcul
fin:
caption 8,bin$