Primzahl = True
For i = 2 To x / 2
  If (x Mod i) = 0 Then Primzahl = False
Next

Primzahl = True
If (zahl Mod 2) = 0
  Primzahl = False
Else
  i = 3
  Repeat
    If (zahl Mod i) = 0
      Primzahl = False
      Goto Ende
    End if
    i = i + 2
  Until i * i > zahl
End If

.Ende

Dim Primz(1000)
For x = 2 to 1000
  if PrimZ(x) = 0 then
    Print x
    For y = x to 1000 step x
      if y>1000 then  exit
      PrimZ(y)=1
    next
  end if
next
Waitkey
end

A= 10000                     ;Zu überprüfender Zahlenraum
Dim IstPrim (A)    
For I=1 To A
   IstPrim (I)=1               ; alle Zahlen vorläufig prim setzen
Next
Wurzel=Ceil(Sqr(A))             ; Höchste Prpüfzahl festlegen
For I=2 To Wurzel
   If IstPrim(I)=1             ; Falls noch nicht als nichtprim markiert überprüfen
       MaxMulti= Ceil (A/I)      ; Höchsten Multiplikator z mit z*I = A wählen
      For J=2 To MaxMulti         ; Vielfache als nichtprim markieren
         IstPrim(J*I)=0
      Next
   EndIf
Next
For I=2 To A                  ; Primzahlen ausgeben
   If IstPrim(I)=1 Print I
Next;
WaitKey

Graphics 350,850,0,2

Print "Working..."

Dim Primzahlen(100000)
Const range = 1000000
Const pause = False
Global max_prims = 0
Global prints = 0
Global starttime = MilliSecs()
Primzahlen(0) = 2

For z = 3 To range
If pause = True And prints > 63
Print "Press a key..."
WaitKey()
prints = 0
End If
If IsPrimZahl(z)
max_prims = max_prims + 1
Primzahlen(max_prims) = z
Print z
prints = prints + 1
End If
Next
Print "Benötigte Zeit: " + Str(MilliSecs()-starttime) + " Millisekunden"
Print "Program has ended ... Press a key..."
WaitKey()
End

Function IsPrimZahl(zahl%)
a=0
Repeat
If (zahl Mod Primzahlen(a)) = 0
Return False
End If
a = a + 1
Until Primzahlen(a)*Primzahlen(a) > zahl Or a > max_prims
Return True
End Function

Const Zahlen = 1000000

Dim Primz(Zahlen)
For x = 2 To Zahlen
  If PrimZ(x) = 0 Then
   
   Print x
    For y = x To Zahlen
      y = y + x
      If y>Zahlen Then  Exit
      PrimZ(y)=1
    Next
  End If
Next
WaitKey
End