Data update

Task/Repeat-a-string/XBasic/repeat-a-string.basic

@@ -0,0 +1,21 @@
+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