Rosetta Code

Langton's ant: Difference between revisions

Page Discussion

Langton's ant (view source)

Revision as of 04:55, 1 September 2022

27 bytes removed ,  1 year ago
→‎{{header|Applesoft BASIC}}
(Applesoft BASIC)
Line 625:
=={{header|Applesoft BASIC}}==
{{trans|BBC 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
1303 DEFPOKE 236, FNPEEK M4(N131): =POKE N237, - INTPEEK (N / 4132) * 4
4 LET S = PEEK (236) + PEEK (237) * 256 + 1
140 READ Y(0),X(1),Y(2),X(3)▼
1505 DATAPOKE 1232,1,-1,-1 PEEK (S)
1606 LETPOKE FS233, =PEEK 100(S + 1)
▲ 1407 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)
1808 LETDEF X FN M(N) = N - INT (FSN / 2F) * F
2909 NEXT QGOTO</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]
Mmphosis
413

edits

Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/329379"