XProfan

Window Title "Tippgenerator (tuned for D: 6 from 49)"
var anzahl&=6
var gesamt&=49
'  The 'ca. 1000ste' Tippgenerator for Zahlenlotto
'  2012 Freeware P.woodpecker
'  Use on alleinige menace the/the users!
'  No Gewähr! The legal recourse is impossible!
'
'  Info: Lt. Wikipedia existed (Feb. 2012)
'  following länderspezifisch different systems:
'  belgium 	6 from 45 (To september 2011: 6 from 42)
'  Bulgarien 	6 from 49, 6 from 42, 5 from 35
'  denmark 	7 from 36, 6 from 48
'  Germany 	6 from 49 plus 1 from 10
'  france 	5 from 49 plus 1 from 10
'  greece 	6 from 49
'  italy 	6 from 90
'  Liechtenstein (To 05.08.2011) [5] 	6 from 49
'  lithuania 	6 from 30
'  Niederlande 	6 from 45 plus 1 from 6
'  Österreich 	6 from 45
'  5 from 90 (Zahlenlotto 1–90)
'  poland 	6 from 49, 5 from 42
'  Québec/canada 	6 from 49
'  Schweden 	7 from 35
'  switzerland 	6 from 45 (Lotto)
'  6 from 45 plus 1 from 3 (Lotto plus)
'  spain 	6 from 49
'  USA 	5 from 59 plus 1 from 39 (Powerball)
'  5 from 56 plus 1 from 46 (Mega Millions)
'  UK (Vereinigtes Kingdom) 	6 from 49
RANDOMIZE' <<< VERY 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