21 lines
322 B
Plaintext
21 lines
322 B
Plaintext
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
|