Décompsition en facteurs premiers

rem ' Décomposition en facteurs premiers
dim a , b , i , r$
label go , key

left 0,300 : top 0,200 : width 0,370 : height 0,220
caption 0,"DÉCOMPOSITION EN FACTEURS PREMIERS"

edit 1
left 1,20 : top 1,40
set_focus 1 : on_key_up 1,key

button 2
left 2,200 : top 2,40
caption 2,"Calculer"
on_click 2,go

alpha 3
left 3,20 : top 3,90

progress_bar 4
left 4,20 : top 4,140 : width 4,255 : min 4,0

alpha 5
left 5,20 : top 5,20
caption 5,"Entrez un nombre"

end

go:
if text$(1)<>"" and text$(1)<>"0" and text$(1)<>"-0" and numeric(text$(1))=1
 caption 3,"ATTENDEZ"
 a=val(text$(1))
 if sgn(a)=1
  r$="+"
 else
  r$="-"
 end_if
 a=abs(a)
 max 4,a
 for i=2 to a
  b=0
  while a/i=int(a/i)
  a=a/i : b=b+1
  end_while
  if b<>0
  r$=r$+"  "+str$(i)+"^"+str$(b)
  end_if
  position 4,i
 next i
 caption 3,r$
end_if
return

key:
if key_up_code=13 then gosub go
return