LZW compression: Difference between revisions

Content added Content deleted
Line 2,958: Line 2,958:
c = d
c = d
IF i > LEN(i$) THEN EXIT
IF i > LEN(i$) THEN EXIT
FOR d = 1 TO l-1
FOR d = 1 TO l-1 {
IF w$ = dict$(d) THEN EXIT FOR
IF w$ = dict$(d) THEN EXIT
NEXT d
}
IF d < l Then i += 1 : w$ += MID$(i$, i, 1)
IF d < l Then i += 1 : w$ += MID$(i$, i, 1)
} UNTIL d >= l
} UNTIL d >= l