RosettaCodeData/Task/Repeat-a-string/IS-BASIC/repeat-a-string.basic
2023-07-01 13:44:08 -04:00

8 lines
152 B
Text

10 PRINT STRING$("ha",5)
100 DEF STRING$(S$,N)
105 LET ST$=""
110 FOR I=1 TO N
120 LET ST$=ST$&S$
130 NEXT
140 LET STRING$=ST$
150 END DEF