Langton's ant: Difference between revisions
Applesoft BASIC
m (→{{header|APL}}: slow updates down a bit so RIDE can keep up) |
(Applesoft BASIC) |
||
Line 623:
..............................⌺⌺....................................................................</pre>
=={{header|Applesoft BASIC}}==
{{trans|BBC BASIC}}
<syntaxhighlight lang="gwbasic"> 100 HGR
110 HCOLOR= 3
120 LOMEM: 16384
130 DEF FN M4(N) = N - INT (N / 4) * 4
140 READ Y(0),X(1),Y(2),X(3)
150 DATA 1,1,-1,-1
160 LET FS = 100
170 DIM F%(FS,FS)
180 LET X = INT (FS / 2)
190 LET Y = X
200 FOR Q = 0 TO 1 STEP 0
210 LET F = F%(X,Y) = 0
220 LET F%(X,Y) = F
230 LET D = D + F * 2 - 1
240 HPLOT X * 3,220 - Y * 3 TO X * 3 + 1,220 - Y * 3 TO X * 3 + 1,221 - Y * 3 TO X * 3,221 - Y * 3
250 LET D = FN M4(D + 4)
260 LET X = X + X(D)
270 LET Y = Y + Y(D)
280 LET Q = X > FS OR X < 0 OR Y > FS OR Y < 0
290 NEXT Q</syntaxhighlight>
=={{header|AutoHotkey}}==
ahk forum: [http://ahkscript.org/boards/viewtopic.php?f=17&t=1363 discussion]
| |||