13 lines
171 B
Text
13 lines
171 B
Text
|
a$ ="ha "
|
||
|
|
print StringRepeat$( a$, 5)
|
||
|
|
|
||
|
|
end
|
||
|
|
|
||
|
|
function StringRepeat$( in$, n)
|
||
|
|
o$ =""
|
||
|
|
for i =1 to n
|
||
|
|
o$ =o$ +in$
|
||
|
|
next i
|
||
|
|
StringRepeat$ =o$
|
||
|
|
end function
|