Wilson WindowWare Tech Support

WinBatch WinBatch+Compiler WebBatch
Home | Tech Database | Tech BBS | White Papers | Purchase

Prime Number Generator

Keywords:   prime number generator

;Prime finder "Sieve of Erastophanes"
BoxOpen(0,0)
Maxprime=1000
PrimeList="1"
list=ArrDimension(Maxprime+1)

ArrInitialize(list,1)
list[0]=0
list[1]=0


index=0
inc=1
while index <= Maxprime
    BoxTitle("---")
    BoxText(index)
    if list[index] == 0
       index=index+1
       continue
    endif

    num=index
    num2=num*2
    Primelist=strcat(PrimeList," ",num)
    for xx=num2 to MaxPrime by num
       list[xx]=0
       BoxTitle(xx)
    next
    index=index+1
endwhile

AskItemList("Primes",PrimeList," ",@unsorted,@single)

Article ID:   W15219