Langton's ant: Difference between revisions
→{{header|Run BASIC}}
m (→{{header|REXX}}: (hopefully) clarified what is displayed in the section header. -- ~~~~) |
|||
Line 2,431:
y = y + (nxt = 3) - (nxt = 1)
plane(x,y) = (plane(x,y) <> 1)
wend
graphic #g, 100,100
for
for
print chr$((plane(x,y)*3) + 32);
if plane(x,y) = 1 then #g "color green ; set "; x; " "; y else #g "color blue ; set "; x; " "; y
next
print
next
render #g
#g "flush"</lang>
| |||