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, 24: PRINT "* * * Sequence * * *":
LOCATE 2, 70: PRINT TIME$
LOCATE 2, 4: PRINT f$: COLOR 7

'------------------------------------------------------------------------
DIM don AS LONG
DIM g AS LONG

DIM cor1(80)
DIM nt$(9000000)

g = 0
h = 4

OPEN "Seque.txt" FOR INPUT AS #1
RecordOn = LOF(1) \ 46 + 1

FOR t = 1 TO RecordOn - 1
    SEEK #1, (t - 1) * 46 + 1
    LINE INPUT #1, t$
    nt$(t) = t$
    COLOR 15: LOCATE 4, 24: PRINT RIGHT$("0000", (LEN("0000") - LEN(LTRIM$(STR$(t))))) + LTRIM$(STR$(t)): COLOR 7
NEXT
CLOSE

COLOR 15: LOCATE 4, 3: PRINT "Number of records =>"; RecordOn - 1: COLOR 7
COLOR 13: LOCATE 22, 5: PRINT "Type [S] to EXIT ..."
COLOR 15

recor$ = "01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25"


FOR S = 8 TO 20
    LOCATE S, 2: PRINT "                                                                       "
NEXT S

IF r$ = "s" THEN
    PLAY "o3l32ceff+g"
    PLAY "mfo4l64ceg>c"

    SYSTEM
END IF

FOR recor = 1 TO RecordOn - 1

    IF h > 19 THEN
        COLOR 13: LOCATE 22, 42: PRINT "Press Enter to continue ...."
        COLOR 7
        DO
        LOOP UNTIL INKEY$ = CHR$(13) '13 ‚ o c¢digo ASCII para Enter.
        LOCATE 22, 4: PRINT "                                                                        "

        FOR S = 5 TO 20
            LOCATE S, 2: PRINT "                                                                 "
        NEXT S

        h = 4
    END IF

    h = h + 1
    x = 8

    COLOR 15: LOCATE h, x - 5: PRINT RIGHT$("0000", (LEN("0000") - LEN(LTRIM$(STR$(recor))))) + LTRIM$(STR$(recor)); " => ": COLOR 7

    FOR i = 1 TO 44 STEP 3
        x = x + 3
        tt$ = MID$(nt$(recor), i, 2)
        O$ = MID$(recor$, i, 2)
        IF tt$ = O$ THEN
            g = g + 1
            cor1(g) = i
            R = LEN(recor$)
        END IF
    NEXT i

    COLOR 7: LOCATE h, 11: PRINT nt$(recor)

    IF g <= 2 THEN
        LOCATE h, 2: PRINT "                                           "
        h = h - 1
        g = 0
    END IF

    IF g = 3 THEN
        COLOR 6
        P3 = P3 + 1
        LOCATE 5, 66: PRINT " = "; "Sq3 ="; P3
        LOCATE h, 56: PRINT "=>";: PRINT " Sq de 3"
        FOR ag = 1 TO 3
            LOCATE h, 10 + cor1(ag): PRINT MID$(nt$(recor), cor1(ag), 2)
        NEXT ag
        COLOR 7
    END IF

    IF g = 4 THEN
        COLOR 8
        P4 = P4 + 1
        LOCATE 6, 66: PRINT " = "; "Sq4 ="; P4
        LOCATE h, 56: PRINT "=>";: PRINT " Sq de 4"
        FOR ag = 1 TO 4
            LOCATE h, 10 + cor1(ag): PRINT MID$(nt$(recor), cor1(ag), 2)
        NEXT ag
        COLOR 7
    END IF


    IF g = 5 THEN
        COLOR 9
        P5 = P5 + 1
        LOCATE 7, 66: PRINT " = "; "Sq5 ="; P5
        LOCATE h, 56: PRINT "=>";: PRINT " Sq de 5"
        FOR ag = 1 TO 5
            LOCATE h, 10 + cor1(ag): PRINT MID$(nt$(recor), cor1(ag), 2)
        NEXT ag
        COLOR 7
    END IF

    IF g = 6 THEN
        P6 = P6 + 1
        COLOR 10
        LOCATE 8, 66: PRINT " = "; "Sq6 ="; P6
        LOCATE h, 56: PRINT "=>";: PRINT " Sq de 6"
        FOR ag = 1 TO 6
            LOCATE h, 10 + cor1(ag): PRINT MID$(nt$(recor), cor1(ag), 2)
        NEXT ag
        COLOR 7
    END IF

    IF g = 7 THEN
        P7 = P7 + 1
        COLOR 11
        LOCATE 9, 66: PRINT " = "; "Sq7 ="; P7
        LOCATE h, 56: PRINT "=>";: PRINT " Sq de 7"
        FOR ag = 1 TO 7
            LOCATE h, 10 + cor1(ag): PRINT MID$(nt$(recor), cor1(ag), 2)
        NEXT ag
        COLOR 7
    END IF

    IF g = 8 THEN
        P8 = P8 + 1
        COLOR 12
        LOCATE 10, 66: PRINT " = "; "Sq8 ="; P8
        LOCATE h, 56: PRINT "=>";: PRINT "Sq de 8"
        FOR ag = 1 TO 8
            LOCATE h, 10 + cor1(ag): PRINT MID$(nt$(recor), cor1(ag), 2)
        NEXT ag
        COLOR 7
    END IF

    IF g = 9 THEN
        P9 = P9 + 1
        COLOR 13
        LOCATE 11, 66: PRINT " = "; "Sq9 ="; P9
        LOCATE h, 56: PRINT "=>";: PRINT " Sq de 9"
        FOR ag = 1 TO 9
            LOCATE h, 10 + cor1(ag): PRINT MID$(nt$(recor), cor1(ag), 2)
        NEXT ag
        COLOR 7
    END IF

    g = 0

NEXT