Repeat: Difference between revisions
Content added Content deleted
Not a robot (talk | contribs) (Add Refal) |
m (Applesoft BASIC - fixed broken link, included code from linked web page) |
||
| Line 327: | Line 327: | ||
=={{header|Applesoft BASIC}}== |
=={{header|Applesoft BASIC}}== |
||
http://hoop-la.ca/apple2/2016/winterwarmup/#repeat.bas |
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}}== |
=={{header|Arturo}}== |
||