22 lines
381 B
Text
22 lines
381 B
Text
|
PROGRAM "Repeat a string"
|
||
|
|
VERSION "0.0000"
|
||
|
|
|
||
|
|
DECLARE FUNCTION Entry ()
|
||
|
|
DECLARE FUNCTION StringRepeat$ (s$, n)
|
||
|
|
|
||
|
|
FUNCTION Entry ()
|
||
|
|
|
||
|
|
PRINT StringRepeat$ ("rosetta", 1)
|
||
|
|
PRINT StringRepeat$ ("ha", 5)
|
||
|
|
PRINT StringRepeat$ ("*", 5)
|
||
|
|
|
||
|
|
END FUNCTION
|
||
|
|
FUNCTION StringRepeat$ (s$, n)
|
||
|
|
cad$ = ""
|
||
|
|
FOR i = 1 TO n
|
||
|
|
cad$ = cad$ + s$
|
||
|
|
NEXT i
|
||
|
|
RETURN cad$
|
||
|
|
END FUNCTION
|
||
|
|
END PROGRAM
|