CLS

'Moldura...
COLOR 11
LOCATE 1, 1: PRINT STRING$(80, CHR$(196))
LOCATE 3, 1: PRINT STRING$(80, CHR$(196))
LOCATE 23, 1: PRINT STRING$(80, CHR$(196))

FOR R = 1 TO 23
    LOCATE R, 1: PRINT CHR$(179)
    LOCATE R, 80: PRINT CHR$(179)
NEXT R

FOR t = 3 TO 23
    LOCATE t, 36: PRINT CHR$(179)
NEXT t

LOCATE 3, 1: PRINT CHR$(195)
LOCATE 3, 80: PRINT CHR$(180)
LOCATE 1, 80: PRINT CHR$(191)
LOCATE 23, 80: PRINT CHR$(217)
LOCATE 23, 1: PRINT CHR$(192)
LOCATE 1, 1: PRINT CHR$(218)
LOCATE 23, 36: PRINT CHR$(193)
LOCATE 3, 36: PRINT CHR$(194)
'LOCATE 9, 1: PRINT CHR$(195)
'LOCATE 9, 36: PRINT CHR$(180)

'Mostra Data
d$ = MID$(DATE$, 1, 3)
c$ = MID$(DATE$, 4, 3)
e$ = MID$(DATE$, 7, 4)
f$ = c$ + d$ + e$

COLOR 11: LOCATE 2, 20: PRINT "* * * Gera Combinacoes em TXT * * *":
LOCATE 2, 65: PRINT f$: COLOR 7


'--------------------------------------------------------------------
h = 4

DO

    ss$ = "0" 'GERA NUMEROS ALEATORIOS
    bc$ = ""
    reg = 0
    xx = 0

    FOR ea = 1 TO 6
        DO
            done = 1
            RANDOMIZE TIMER
            fa = INT(RND * 60) + 1
            FOR er = 1 TO 6 'Impede que um n£mero seja repetido
                IF nn$(er) = LTRIM$(STR$(fa)) THEN done = 0: EXIT FOR
            NEXT er
        LOOP WHILE done = 0
        nn$(ea) = LTRIM$(STR$(fa))
    NEXT ea

    DO
        done = 0
        FOR ei = 1 TO 6 - 1
            IF VAL(nn$(ei)) > VAL(nn$(ei + 1)) THEN
                SWAP nn$(ei), nn$(ei + 1)
                done = 1
            END IF
        NEXT ei
    LOOP WHILE done = 1

    FOR rr = 1 TO 6
        IF VAL(nn$(rr)) < 10 THEN
            bc$ = bc$ + ss$ + nn$(rr) + " "
        ELSE
            bc$ = bc$ + nn$(rr) + " "
        END IF
    NEXT rr

    b$ = LEFT$(bc$, 17)
    s$ = b$
    '------------------------------------------------------------------------

    DIM RecordOn AS LONG
    IF _FILEEXISTS("temp.txt") THEN
        OPEN "temp.txt" FOR INPUT AS #1
        RecordOn = LOF(1) \ 19 + 1
        'INPUT #1, t$

        FOR recordnumber = 1 TO RecordOn
            xx = xx + 1
            IF xx >= RecordOn THEN EXIT FOR
            SEEK #1, (recordnumber - 1) * 19 + 1
            LINE INPUT #1, t$
            'PRINT "RECORD"; RecordOn; " t$ =>  :"; t$; " recordnumber => "; recordnumber; " : "; s$
            COLOR 7: LOCATE 4, 3: PRINT "Numero de dezenas => "
            COLOR 15: LOCATE 4, 25: PRINT RecordOn: COLOR 7

            IF t$ = s$ THEN
                rep = rep + 1
                LOCATE 8, 3: PRINT "Dezenas repetidas => "
                COLOR 10: LOCATE 8, 25: PRINT rep: COLOR 7
                GOTO skipOut
            END IF

        NEXT

        CLOSE

        IF h > 21 THEN
            h = 4
            FOR ii = 4 TO 21
                LOCATE ii, 38: PRINT "                                "
            NEXT
        END IF
        COLOR 15
        LOCATE h, 38: PRINT RecordOn; "=> "
        LOCATE h, 50: COLOR 7: PRINT s$

        h = h + 1

        OPEN "temp.txt" FOR APPEND AS #1
    ELSE
        OPEN "temp.txt" FOR OUTPUT AS #1
    END IF

    IF RecordOn < 50063830 THEN
        PRINT #1, s$
    END IF

    skipOut:
    CLOSE #1

    IF INKEY$ <> "" THEN PRINT: PRINT: PRINT: END

LOOP