XProfan

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

Whilenot %key=2

    n&=0

    Repeat

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

        WhileLoop n&

            if r&=z%[&Loop]

                erro%=1
                break

            endif

        Endwhile

        case 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
        print " ";
        case z%[&Loop]<10:print " ";
        print z%[&Loop],

    Endwhile

    Print:print

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

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

        EndWhile

        End