XProfan

'PrimTurbo, el Turbo-Primzahlensuchprogramm de @Johnathan, hier sin Assemblercode
'Findet todos Primzahlen de 2 - z.B. 100.000 innerhalb de 12,6 Sekunden (Interpreter!)
Título de la ventana "Jonathans PRIM-TURBO"
Cls
Declarar Primeln&[], PrimIndex&, MaxPrimel&, ActPrimel&, StartZeit&, PrimCount&, Edición%, JN$
Imprimir "Primzahlen encontrar a: ";
Entrada MaxPrimel&
Primeln&[MaxPrimel&] = 0
Imprimir ""
Imprimir "Primzahlen voluntad gesucht..."
StartZeit& = &gettickcount

WhileLoop 4, MaxPrimel&, 2

    Primeln&[&bucle] = 1

EndWhile

WhileLoop 3, (MaxPrimel& \ 3) + 1

    ActPrimel& = &bucle

    If Primeln&[ActPrimel&] = 0

        WhileLoop 3, (MaxPrimel& \ ActPrimel&), 2

            Primeln&[&bucle * ActPrimel&] = 1

        EndWhile

    EndIf

EndWhile

Imprimir ""
Imprimir "Suchen abgeschlossen."
Imprimir "Benötigte Tiempo: " + @Str$((&gettickcount - StartZeit&) / 1000) + " Sekunden."
Imprimir ""
Imprimir "Primzahlen zählen (J/N)? ";
Entrada JN$

If @Upper$(JN$) = "J"

    Imprimir ""
    Imprimir "Primzahlen voluntad gezählt..."
    PrimCount& = 0

    WhileLoop 2, MaxPrimel&

        If Primeln&[&bucle] = 0

            Inc PrimCount&

        EndIf

    EndWhile

    Imprimir ""
    Imprimir "Gefundene Primzahlen: " + @Str$(PrimCount&)

EndIf

Imprimir ""
Imprimir "Ausgeben (0 = No ausg.; 1 = Im Ventana ausgeben;"
Imprimir "2 = In Expediente ausgeben; 3 = beides)? ";
Entrada Edición%

If (Edición% Mod 2)

    Imprimir ""
    Imprimir "Ausgabe:"

    WhileLoop 2, MaxPrimel&

        If Primeln&[&bucle] = 0

            Imprimir &bucle,

            if %csrlin>25:cls

            endif

        EndIf

    EndWhile

EndIf

If (Edición% \ 2)

    Imprimir ""
    Imprimir "Dateiausgabe..."
    Asignar #1, "Primzahlen.txt"
    Vuelva a escribir #1

    WhileLoop 2, MaxPrimel&

        If Primeln&[&bucle] = 0

            Imprimir #1, &bucle

        EndIf

    EndWhile

    Cerrar #1

EndIf

WaitInput
End