LZW compression: Difference between revisions
m
→{{header|M2000 Interpreter}}
Line 2,958:
c = d
IF i > LEN(i$) THEN EXIT
FOR d = 1 TO l-1
IF w$ = dict$(d) THEN EXIT
IF d < l Then i += 1 : w$ += MID$(i$, i, 1)
} UNTIL d >= l
| |||