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) 'AS STRING
DIM nt$(9000000)
DIM ss$(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
'nt$(1) = "01 04 06 07 08 09 10 11 12 14 16 17 22 23 24"
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"

    _DELAY 4

    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 e = 3 TO 37 STEP 3
        FOR i = 1 TO 37 STEP e
            x = x + 3
            tt$ = MID$(nt$(recor), i, 8)

            FOR R = 1 TO 67 STEP e
                O$ = MID$(recor$, R, 8)
                IF tt$ = O$ THEN
                    g = g + 1
                    ss$(g) = MID$(recor$, R, 8)
                    cor1(g) = i
                    R = 67 '   LEN(recor$)
                END IF
            NEXT R
        NEXT i

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

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

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

    g = 0
NEXT

END
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