Repeat: Difference between revisions
m
Applesoft BASIC - fixed broken link, included code from linked web page
Not a robot (talk | contribs) (Add Refal) |
m (Applesoft BASIC - fixed broken link, included code from linked web page) |
||
Line 327:
=={{header|Applesoft BASIC}}==
https://web.archive.org/web/20190202165511/http://hoop-la.ca/apple2/2016/winterwarmup/#repeat.bas
<syntaxhighlight> 100 FOR I = 768 TO 794
110 READ B: POKE I,B: NEXT
120 DATA165,185,72,165,184,72
130 DATA165,118,72,165,117,72
140 DATA169,176,72,32,123,221
150 DATA32,82,231,32,65,217
160 DATA76,210,215
170 POKE 1014,0: POKE 1015,3
200 LET P = 400:N = 4
210 GOSUB 300"REPEAT P N
220 END
300 IF N < = 0 THEN RETURN
310 LET N = N - 1
320 & P
330 GOTO 300
400 PRINT "EXAMPLE"
410 RETURN
</syntaxhighlight>
=={{header|Arturo}}==
|