RosettaCodeData/Task/Repeat-a-string/Sinclair-ZX81-BASIC/repeat-a-string.sinclair

11 lines
133 B
Text
Raw Permalink Normal View History

2017-09-23 10:01:46 +02:00
10 LET S$="HA"
20 LET N=5
30 GOSUB 60
40 PRINT T$
50 STOP
60 LET T$=""
70 FOR I=1 TO N
80 LET T$=T$+S$
90 NEXT I
100 RETURN