XProfan

'PrimTurbo en Ensamblador (C) by @Jonathan
'Un Primzahlensuche, el abgeht como sonstwas...
Ventana de Estilo 1 | 8 | 16
cls
Declarar Daten#, ZahlenAnzahl&, StartZeit&, JN$, PrimAnz&
'Erstellt con el XProfan Datengenerator, (C) Frank Abbing
Declarar Code#
Dim Code#,164
Claro Code#
Largo Code#,0=1397791846,1448563281,35048,-1959228672,12977264,21022208
Largo Code#,24=37799424,54576640,71353856,88131072,104908288,121685504
Largo Code#,48=16827904,16859334,441,-834977536,-796187532,311087363,1946286720
Largo Code#,76=-1047834384,-487075445,-1957113717,-958790696,-788332285
Largo Code#,96=-210315461,29087723,-1962934272,63013832,-150736757,225955387
Largo Code#,120=-1048374902,16416770,-347868555,63474671,428425679,1499094878
Largo Code#,144=-1654237093,321731,-854261760,-1957165221,49920
Imprimir "Primzahlen encontrar a: ";
Entrada ZahlenAnzahl&
Dim Daten#, ZahlenAnzahl& + 5
Largo Daten#, 0 = ZahlenAnzahl&
Largo Daten#, 4 = (Sqrt(ZahlenAnzahl&) + 1) \ 1

WhileLoop 0, @SizeOf(Code#) - 4

    If @Largo(Code#, &bucle) = 123456789

        Largo Code#, &bucle = Daten#

    EndIf

EndWhile

Imprimir "Primzahlen voluntad gesucht..."
StartZeit& = &gettickcount
@Call(Code#)
Disponer Code#
Imprimir ""
Imprimir "Benötigte Tiempo: " + @Str$((&gettickcount - StartZeit&) / 1000) + " Sekunden."
Imprimir "Gefundene Primzahlen: " + @Str$(@Largo(Daten#, ZahlenAnzahl& + 1))
Imprimir ""
' Statt Ausgabeteil adaptiert en Darstellung uno Primel by P. Pájaro carpintero
' SetPixel es desafortunadamente siempre todavía verdammt langsam!
Imprimir "Primzahlen como S-PRIMEL darstellen (J/N)? ";
Entrada JN$

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

    declarar x&,y&,c%,ri&,xx&,yy&,scale&
    Ventana 0,0 - %maxx,%maxy-52
    cls @rgb(207,207,207)
    xx&=width(%hwnd)*3/5
    yy&=height(%hwnd)*2/7
    c%=rgb(255,0,0)
    x&=0:y&=0:scale&=10' Maßstab 1 : scale&

    WhileLoop 2, ZahlenAnzahl&

        Caso negativo @Byte(Daten#, &bucle)

            setpixel xx&+x&/scale&,yy&+y&/scale&,c%
            ri&=(ri&+1) mod 8

        EndIf

        Select ri&

            caseof 0:inc x&

            caseof 1:inc x&:dec y&

            caseof 2:dec y&

            caseof 3:dec x&:dec y&

            caseof 4:dec x&

            caseof 5:dec x&:inc y&

            caseof 6:inc y&

            caseof 7:inc x&:inc y&

        endselect

        inc c%

    EndWhile

EndIf

Disponer Daten#
Imprimir "\n Fertig! "
WaitInput
End