function StringRepeat$ (s$, n)
	cad$ = ""
	for i = 1 to n
		cad$ += s$
	next i
	return cad$
end function

print StringRepeat$("rosetta", 1)
print StringRepeat$("ha", 5)
print StringRepeat$("*", 5)
end