Run-length encoding: Difference between revisions
→{{header|FutureBasic}}
Line 2,849:
end if
t = fn StringByPaddingToLength( ch, rl, ch, 0 ) // Assemble string of chars
s = fn StringByAppendingString( s, t ) // Add to
next // character
end fn = s
|