DIM t$, t1$, x&, i&, Z&
    OPEN "d:\##\icolor.csv" FOR INPUT AS #1
    OPEN "d:\##\icolor-2.csv" FOR OUTPUT AS #2
 
    WHILE NOT EOF(1)
        z = 0 : x =  0
        LINE INPUT #1, t
        IF LEN(t) THEN
 
            FOR i = 1 TO 5
                x = INSTR(x+1, t, ";")
                IF x THEN z = Z + 1
            NEXT
 
            WHILE z < 5
                z = 0 : x = 0
                IF NOT EOF(1) THEN
                    LINE INPUT #1, t1
                    t = t & t1
                END IF
                FOR i = 1 TO 5
                    x = INSTR(x + 1, t, ";")
                    IF x THEN z = Z + 1
                NEXT
            WEND
 
            PRINT #2, t
        END IF
 
    WEND
    CLOSE

 DIM t$, t1$
    OPEN "d:\##\icolor.csv" FOR INPUT AS #1
    OPEN "d:\##\icolor-2.csv" FOR OUTPUT AS #2
 
    WHILE NOT EOF(1)
        LINE INPUT #1, t
        IF LEN(t) THEN
            WHILE TALLY(t, ";") < 5
                IF NOT EOF(1) THEN
                    LINE INPUT #1, t1
                    t = t & t1
                END IF
            WEND
 
            PRINT #2, t
        END IF
    WEND
    CLOSE