Graphics 400,250,0,2
b=Input("Maximale Zahl:")
Const tozahl=100000000
Dim Wurzeln#(16000000,10)
Print "Phase 1/2: Vorbearbeitung"
For var=3 To tozahl
   var2=var-xvar*16000000
   If var2=16000000 Then
      var2=var2-16000000
      xvar=xvar+1
   EndIf
   Wurzeln#(var2,xvar)=Ceil(Float(var)^0.5)
Next

Type prim
   Field zahl
End Type
n.prim=New prim
n\zahl=2
out=WriteFile("primzahlen.txt")
WriteLine out,"2"
Print "Phase 2/2: Bearbeitung"

For var=3 To tozahl
   var2=var-xvar*16000000
   If var2=16000000 Then
      var2=var2-16000000
      xvar=xvar+1
   EndIf
   For n.prim = Each prim
      If n\zahl>Wurzeln(var2,xvar) Then Exit
      a#=Float(var)/Float(n\zahl)
      If Ceil#(a#)=Floor#(a#) Then ret=1 : Exit
   Next
   If Not ret=1 Then
      WriteLine(out,var)
      n.prim=New prim
      n\zahl=var
      x=x+1
      If x=1000 Then
         Print var
         x=0
      EndIf
   EndIf
   ret=0
Next
CloseFile out
Print "Done :P"
WaitKey
End

Dim test (18000000)
test(17000000) = 345
Print test(17000000)
WaitKey()