Data update
This commit is contained in:
parent
35bcdeebf8
commit
74c69a0df6
2427 changed files with 31826 additions and 3468 deletions
18
Task/Repeat-a-string/Minimal-BASIC/repeat-a-string.basic
Normal file
18
Task/Repeat-a-string/Minimal-BASIC/repeat-a-string.basic
Normal file
|
|
@ -0,0 +1,18 @@
|
|||
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
|
||||
Loading…
Add table
Add a link
Reference in a new issue