p = 1000000
Dim Zahl(p)

Zahl(0) = 1
Zahl(1) = 1

st = MilliSecs()
For z = 2 To p
 If zahl(z) = 0 Then
  a = z
  Repeat
   a = a + z
   If a <= p zahl(a) = 1
  Until a => p - z
 End if
Next
et = MilliSecs()

Print "Fertig!"
Print "Benötigte Zeit: " + (et-st) + " ms"

fileout = WriteFile("Prim.txt")
Print "Primzahlen Speichern."
For x = 0 To p-1
 If not zahl(x) Then WriteLine fileout, x
Next

Type Primzahl
 Field wert
End Type

Local Prim.primzahl
st = MilliSecs()
For z = 2 To 1000000
 If Not (z Mod 10000) Print z
 n = 0
 For Prim = Each Primzahl
  If Not (z Mod prim\wert) Then n = 1
 Next
 If Not n
   prim = New primzahl
   prim\wert = z
 End if
Next
et = MilliSecs()
Print et-st

Print "HighSpeed Primzahlen Ermittler "
Print ""
Print ""
BisZahl = 1000000;Input ("Primzahlen bis : ") ;
Bank =  CreateBank(BisZahl+1)

Time1 = MilliSecs (); Zeit Start
    t2 = 2
    ;primzahlen ermitteln
    For t1 = 2 To BisZahl
        If PeekByte (Bank,t1) = 0 Then
            t2 = t1
            t2 = t2 + t1
            While t2 <= BisZahl
                PokeByte (Bank,t2,1)
                t2 = t2 + t1
            Wend
        End If
    Next
Time1 = MilliSecs () - time1; Zeit Ende
    ;PrimZahlen Speichern
    Dat = WriteFile ("Primzahlen bis " + BisZahl + " ralli.txt")
    For t1 = 2 To BisZahl
        If PeekByte (Bank,t1) = 0 Then
            WriteLine dat,t1
            a = a + 1
        End If
    Next
    CloseFile Dat
Print "In "+time1 + " Millisekunden "+ a+" ermittelt!"
Print ""
Print "by Rallimen"
Print "Bye.."
WaitKey

; .....
Bank =  CreateBank(BisZahl+1) ; +1 dazu

Time1 = MilliSecs ()
   t2 = 2
   For t1 = 2 To BisZahl ; +1 weg
; .....