Repeat a string: Difference between revisions
Repeat a string in various BASIC dialents
(Add vlang V) |
(Repeat a string in various BASIC dialents) |
||
Line 352:
xxxxx
</pre>
=={{header|BASIC}}==
==={{header|BASIC256}}===
<lang BASIC256>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</lang>
==={{header|QBasic}}===
<lang QBasic>FUNCTION StringRepeat$ (s$, n)
cad$ = ""
FOR i = 1 TO n
cad$ = cad$ + s$
NEXT i
StringRepeat$ = cad$
END FUNCTION
PRINT StringRepeat$("rosetta", 1)
PRINT StringRepeat$("ha", 5)
PRINT StringRepeat$("*", 5)
END</lang>
==={{header|True BASIC}}===
<lang qbasic>FUNCTION StringRepeat$ (s$, n)
LET cad$ = ""
FOR i = 1 TO n
LET cad$ = cad$ & s$
NEXT i
LET StringRepeat$ = cad$
END FUNCTION
PRINT StringRepeat$("rosetta", 1)
PRINT StringRepeat$("ha", 5)
PRINT StringRepeat$("*", 5)
END</lang>
==={{header|Yabasic}}===
<lang yabasic>sub StringRepeat$ (s$, n)
cad$ = ""
for i = 1 to n
cad$ = cad$ + s$
next i
return cad$
end sub
print StringRepeat$("rosetta", 1)
print StringRepeat$("ha", 5)
print StringRepeat$("*", 5)
end</lang>
=={{header|Batch File}}==
| |||