19 lines
291 B
Plaintext
19 lines
291 B
Plaintext
100 REM Repeat a string
|
|
110 LET S$ = "rosetta"
|
|
120 LET N = 1
|
|
130 GOSUB 210
|
|
140 LET S$ = "ha"
|
|
150 LET N = 5
|
|
160 GOSUB 210
|
|
170 LET S$ = "*"
|
|
180 LET N = 5
|
|
190 GOSUB 210
|
|
200 STOP
|
|
210 REM FUNCTION StringRepeat$(S$,N)
|
|
220 FOR I = 1 TO N
|
|
230 PRINT S$;
|
|
240 NEXT I
|
|
250 PRINT
|
|
260 RETURN
|
|
270 END
|