Langton's ant: Difference between revisions

Line 625:

=={{header|Applesoft BASIC}}==

<syntaxhighlight lang="gwbasic"> 0 IF T THEN FOR Q = 0 TO T STEP 0: XDRAW T AT X * S,H - Y * S:D = FN M(D + D( PEEK (234)) + F):X = X + X(D):Y = Y + Y(D):Q = X > M OR X < 0 OR Y > M OR Y < 0: NEXT Q: END : DATA 100,50,50,3,220,1,4,-1,1,1,1,-1,-1

<syntaxhighlight lang="gwbasic"> 100 HGR

1 HGR : SCALE= 1: ROT= 0

110 HCOLOR= 3

2 LET S$ = CHR$ (1) + CHR$ (0) + CHR$ (4) + CHR$ (0) + "5'" + CHR$ (0)

120 LOMEM: 16384

~~130~~ ~~DEF~~ FN M4(N) = N ~~- INT~~ (~~N / 4~~) * 4

3 POKE 236, PEEK (131): POKE 237, PEEK (132)

4 LET S = PEEK (236) + PEEK (237) * 256 + 1

⚫

~~140~~ READ Y(0),X(1),Y(2),X(3)

~~150~~ ~~DATA~~ 1,~~1,-1,-1~~

5 POKE 232, PEEK (S)

~~160~~ ~~LET~~ FS = ~~100~~

6 POKE 233, PEEK (S + 1)

⚫

7 READ M,X,Y,S,H,T,F,D(0),D(4),Y(0),X(1),Y(2),X(3)

170 DIM F%(FS,FS)

~~180~~ ~~LET~~ X = INT (FS / 2)

8 DEF FN M(N) = N - INT (N / F) * F

⚫

9 GOTO</syntaxhighlight>

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]