Data update

Task/Repeat-a-string/Quite-BASIC/repeat-a-string.basic

@@ -0,0 +1,20 @@
+100 CLS
+110 LET S$ = "rosetta"
+115 LET N = 1
+120 GOSUB 210
+130 PRINT C$
+140 LET S$ = "ha"
+145 LET N = 5
+150 GOSUB 210
+160 PRINT C$
+170 LET S$ = "*"
+175 LET N = 5
+180 GOSUB 210
+190 PRINT C$
+200 END
+210 REM FUNCTION STRINGREPEAT$(S$,N)
+220   LET C$ = ""
+230   FOR I = 1 TO N
+240     LET C$ = C$ + S$
+250   NEXT I
+260 RETURN