Décomposition en facteurs premiers

dim divisor%,number%,number2%,lowers%,uppers%,counts%,halt%,x,result$
label factor, On_Click_Button_6

left 0,223
top 0,200
width 0,242
height 0,347
caption 0,"PRIME FACTOR FINDER"
 
alpha 1
left 1,10
top 1,30
caption 1,"Lower number"

alpha 2
left 2,10
top 2,60
caption 2,"Upper number"

edit 3
left 3,100
top 3,30
text 3,"2010"

edit 4
left 4,100
top 4,60
text 4,"2020"

memo 5
left 5,10
top 5,150
width 5,211
height 5,130
bar_vertical 5

button 6
left 6,15
top 6,100
width 6,208
caption 6,"Find prime factors"
on_click 6,On_Click_Button_6

end

On_Click_Button_6:

  lowers% = val(text$(3))
  uppers% = val(text$(4))

  for counts% = lowers% to uppers%
    number% = counts%
    number2% = number%
    result$ = str$(number2%) + " >> "
    divisor% = 2
    while divisor% <= number%
      gosub factor
      divisor% = divisor% + 1
    end_while
    item_add 5, result$
  next counts%

return

' recursive gosub
factor:
  ' if number mod divisor = 0 ---- No mod operator
  x = number% / divisor%
  if x-int(x) = 0
    result$ = result$ + str$(divisor%) + ", "
    number% = x
    gosub factor
  end_if
return