Sorry your browser is not supported!

REM ******PRIM NUMBER CALCULATOR******
REM ::::::::::::::::::::::::::::::::::
REM *************by Soma**************

n1#=2
n2#=1

Do

if returnkey()=1 then gosub waitandend

IF n1#<>n2#
   IF n2#<>1
      IF n1#/n2#=FLOOR(n1#/n2#) or n1#/n2#=CEIL(n1#/n2#)

         n1#=n1#+1

      Endif
   Endif
Endif

IF n2#<>1 and n1#=n2#
   Print "Prim number found? -> ",n1#
   n1#=n1#+1
   n2#=1
Endif

n2#=n2#+1

Loop

waitandend:
wait 3000
wait key
end

Rem Project: Dark Basic Pro Project
Rem Created: Tuesday, April 19, 2011

Rem ***** Main Source File *****
sync on
sync rate 60
nmbr# = 3
nmbrs = 1
scroll = 1
dim prim(10000)
do

    for x = 2 to ceil(sqrt(nmbr#))
        divide# = nmbr#/x
        if divide#-int(divide#) = 0
            goto _skip:
        endif
        
    next
    
    prim(nmbrs) = nmbr#
    inc nmbrs
    
    _skip:
    
    inc nmbr#
    
    for x = scroll to nmbrs
    text 0,(x-scroll)*20,"prim"+str$(x)+" = "+str$(prim(x))
    next
    if (nmbrs-scroll)*20 > 480
        inc scroll 
    endif
    
    sync
    cls
    if spacekey() then wait 1000000000
    
loop

sync on : sync rate 60 : nmbr# = 3 : nmbrs = 1 : scroll = 1 : dim prim(10000)
do
    for x = 2 to ceil(sqrt(nmbr#))        
        divide# = nmbr#/x : if divide#-int(divide#) = 0 then goto _skip:                    
    next    
    prim(nmbrs) = nmbr# :  inc nmbrs    
    _skip:           
    for x = scroll to nmbrs
        text 0,(x-scroll)*20,"prim"+str$(x)+" = "+str$(prim(x))
    next
    inc nmbr# : if (nmbrs-scroll)*20 > 480 then inc scroll 
    sync : cls      
loop