Repeat a string: Difference between revisions

m
(Added FreeBASIC)
Line 723:
Var buffer = Space(size * n) 'create buffer for size > 1
For i As Integer = 0 To n - 1
For j As Integer = 0 To Len(s)size - 1
buffer[i * size + j] = s[j]
Next j
9,490

edits