XProfan

Título de la ventana "Tippgenerator (eingestellt para D: 6 de 49)"
var anzahl&=6
var gesamt&=49
'  Der 'ca. 1000ste' Tippgenerator fürs Zahlenlotto
'  2012 Freeware P.Pájaro carpintero
'  Nutzung en alleinige Gefahr des/el Anwender!
'  Keine Gewähr! Der Rechtsweg es ausgeschlossen!
'
'  Referencia: Lt. Wikipedia existierten (Feb. 2012)
'  folgende länderspezifisch verschiedenen Systeme:
'  Belgien 	6 de 45 (a September 2011: 6 de 42)
'  Bulgarien 	6 de 49, 6 de 42, 5 de 35
'  Dänemark 	7 de 36, 6 de 48
'  Deutschland 	6 de 49 plus 1 de 10
'  Frankreich 	5 de 49 plus 1 de 10
'  Griechenland 	6 de 49
'  Italien 	6 de 90
'  Liechtenstein (a 05.08.2011) [5] 	6 de 49
'  Litauen 	6 de 30
'  Niederlande 	6 de 45 plus 1 de 6
'  Österreich 	6 de 45
'  5 de 90 (Zahlenlotto 1–90)
'  Polen 	6 de 49, 5 de 42
'  Québec/Kanada 	6 de 49
'  Schweden 	7 de 35
'  Schweiz 	6 de 45 (Lotto)
'  6 de 45 plus 1 de 3 (Lotto plus)
'  Spanien 	6 de 49
'  USA 	5 de 59 plus 1 de 39 (Powerball)
'  5 de 56 plus 1 de 46 (Mega Millions)
'  UK (Vereinigtes Königreich) 	6 de 49
RANDOMIZE' <<< SEHR WICHTIG !
Declarar r&,n&,z%[6],erro%,i%,j%,z%,t%
Font 2
Cls rnd(8^8)

Sinestar encargado %key=2

    n&=0

    Repeat

        r&=rnd(Gesamt&)+1
        erro%=0

        WhileLoop n&

            if r&=z%[&Loop]

                erro%=1
                romper

            endif

        Endwhile

        caso erro%=1:continue
        n&=n&+1
        z%[n&]=r&

    Until n&=Anzahl&

    WhileLoop Anzahl&:i%=&Loop

        WhileLoop Anzahl&:j%=&Loop

            if z%[j%] > z%[i%]

                z%=z%[j%]:z%[j%]=z%[i%]:z%[i%]=z%

            endif

        EndWhile

    Endwhile

    WhileLoop Anzahl&

        locate %csrlin,%pos+5
        imprimir " ";
        caso z%[&Loop]<10:imprimir " ";
        imprimir z%[&Loop],

    Endwhile

    Imprimir:imprimir

    if (z%[6]>Gesamt&) or (z%[1]<1):beep:imprimir:Imprimir "GRENZWERT-ERROR!": WaitInput:endif

        if %csrlin>22:WaitInput:cls rnd(8^8):endif

        EndWhile

        End