100 cls
110 print stringrepeat$("rosetta",1)
120 print stringrepeat$("ha",5)
130 print stringrepeat$("*",5)
140 end
150 function stringrepeat$(s$,n)
160   cad$ = ""
170   for i = 1 to n
180     cad$ = cad$+s$
190   next i
200   stringrepeat$ = cad$
210 end function