Java StarLogo
2.1
English
`turtle`
to mystuff
if breed = pacman
[
 advance
 rt 90
 advance
]
end






























;;;;;;;;;;DO NOT EDIT BELOW THIS LINE

to eat
  if breed = pacman
   [grab one-of-turtles-here [kill partner]]
end

to advance
  if breed = pacman
    [setsteps steps + 1
     fd 1 
     setshape pacman2-shape 
     wait .05
     eat 
     setshape pacman-shape]
end


`observer`
;;;;;;;DO NOT EDIT ANYTHING ON THIS PANE
patches-own [pattern1 pattern2 pattern3]
breeds [pacman]
globals [steps]

to restore1
   ct
   ask-patches [if pattern1 > 0
       [sprout [setc pattern1 setshape mm-shape]]]
   setup-pacmen
end

to restore2
   ct
   ask-patches [if pattern2 > 0
       [sprout [setc pattern2 setshape mm-shape]]]
   setup-pacmen
end

to restore3
   ct
   ask-patches [if pattern3 > 0
       [sprout [setc pattern3 setshape mm-shape]]]
   setup-pacmen
end

to setup-pacmen
  setsteps 0
  create-and-do 1
   [setc black setxy -12 -12 setshape pacman-shape setbreed pacman]
  if number > 1
  [create-and-do 1
   [setc black setxy 12 12 setshape pacman-shape setbreed pacman seth 180]]
  if number > 2
  [create-and-do 1
   [setc black setxy -12 12 setshape pacman-shape setbreed pacman seth 180]]
  if number > 3
  [create-and-do 1
   [setc black setxy 12 -12 setshape pacman-shape setbreed pacman]]
end


`information`
fd 10 rt fd 10
nested repeats
triangles on top of each other


`interface`
SLCanvas
top-left 11 271

SLButton
turtle-or-observer? turtle
top-left 141 83
width-height 59 30
name "seth angle"
line-to-run "if (shape = pacman-shape or shape = pacman2-shape) [seth angle]"
forever? false
button-number 11
show-name? true
whichip 7

SLButton
turtle-or-observer? observer
top-left 20 90
width-height 51 30
name "setup 2"
line-to-run "restore2"
forever? false
button-number 9
show-name? true
whichip 9
toolTip-text "Resets to pattern 2"

SLButton
turtle-or-observer? observer
top-left 20 150
width-height 47 30
name "setup 3"
line-to-run "restore3"
forever? false
button-number 10
show-name? true
whichip 10
toolTip-text "Resets to pattern 3"

SLButton
turtle-or-observer? turtle
top-left 141 23
width-height 46 30
name "lt angle"
line-to-run "if (shape = pacman-shape or shape = pacman2-shape)[lt angle]"
forever? false
button-number 4
show-name? true
whichip 11

SLSlider
top-left 66 85
width-height 64 25
name "slider2"
variable "number"
min-value 1
max-value 4
current-value 1
slider-number 1
show-name? false
toolTip-text "Sets number of pacmen to create"

SLMonitor
top-left 272 78
width-height 72 36
name "number steps"
list-to-run "steps"
digits 0
delay 0.5
monitor-number 2
show-name? true
whichip 17
onewhichip 18

SLButton
turtle-or-observer? turtle
top-left 325 92
width-height 43 30
name "button11"
line-to-run "mystuff"
forever? false
button-number 12
show-name? false
whichip 12

SLButton
turtle-or-observer? observer
top-left 20 40
width-height 44 30
name "setup 1"
line-to-run "restore1"
forever? false
button-number 1
show-name? true
whichip 14
toolTip-text "Resets to pattern 1"

SLMonitor
top-left 221 73
width-height 129 36
name "number m&ms remaining"
list-to-run "count-turtles"
digits 0
delay 0.5
monitor-number 1
show-name? true
whichip 15
onewhichip 16

SLSlider
top-left 181 32
width-height 169 25
name "slider1"
variable "angle"
min-value 0
max-value 180
current-value 90
slider-number 0
show-name? false

SLButton
turtle-or-observer? turtle
top-left 141 153
width-height 46 30
name "rt angle"
line-to-run "if (shape = pacman-shape or shape = pacman2-shape) [rt angle]"
forever? false
button-number 5
show-name? true
whichip 8

SLButton
turtle-or-observer? turtle
top-left 101 73
width-height 85 30
name "advance-button"
line-to-run "advance wait .5"
forever? false
button-number 2
show-name? true
whichip 13
toolTip-text "Advance one space and eat the m&ms"


`turtle shapes`
H4sIAAAAAAAAAO3cy5Ik133Y4RRISRA1vFiWr7SsMiVbsmXIwAAYAL6pV9w4uPXC
oQUBeWwygiBpAAyFvaoH9QPoLWxmEV01c6arMrPy3M/3RbB+UdmddfLUZPf0DAf/
6bs//upXX3z1s5eHL3/y6S9ffvnjh7enRw+nx2e/+fg7p4/PB37r1//7xq//9/b5
UxjZcX74f78WNjx27fNinb/ltZ96vb3nr32dvfuocP/f+823BQBgPG+dHrf+HFFD
t/6Mlmrd3NeRa/1rr7t2/XuvK/WvYanriPXrkGtd64+9/t51772O2OvGuo6117d0
foU9TNM3JwAAAAAAAACgB7/574gq+TcJOkCXPqf09dl/3v32/n7Yv/33tP+t1xt7
/6Xfr9H2n/K9zFH7H+t+SL1G6f2V3n9t70fp99z+7d/+7d/+7d/+7b/3/Zfeb+n3
o/T+cu+/9H5Kvx+lr7/0/re+H7Hfv73r27/qzf7W9OzL//WrT7+4jA89jQk0PpRH
x0puVS3UyfhQABjYW8V/FlFVVdX8nYwPBQAAAAAAAICOvF383yKoqqqqqqqqqqqq
qqqqqqrq/k7zQKBnv3z5xZe/+Pl5fOhb85xA40N5dJwfnrqFnridbn7e1vMj3ua7
rj/2+fde79r3897rvfFx40MBYFhvnR73/Iy092eu0uvf+7PavevXfv5o3XpO7Nez
ft3r732N3taP/fm1rb/3/Wzw/IPxoQAAAAAAAADQi7dPj3v+rcZS975G6uuzf/sf
ef+p1y+9f+tb3/ppv4eoaptNvUbt12f/9m//9m//9m//+ffX+vtj//Zv/+muz/7t
3/7L7X/va1jf+tavev1vTN/+6uUXn//0q5fn+aHf6HJ+6MN3j69168dbX3+H4/yw
915cc3/nOP9Vtz526/X2fN2VXv/O98/8UKjU3t87Kv69ZxX7Pz7ZVOcxqu3zQ0dv
rJ/VYq+b+jpKr1/6/S+x/qv2nBvjukr8+te0/7XvQ6x17t3DLa39+ls/y/13MD8U
AACAa679fw25/j+H0uvDyEp//ZVeH0a29PUX++sx93oAAP1LPz9UVcft3tcoff2l
9t3q+5B6jdL7s3/7t//870Pp/ZR6H0pfv/27/5+6lmtKrl3D+5Rj/6V//e1/7P3f
UnLtGt6fEX79S7wPpfdT6n0off3XrmmtnGvFWtOvf/l9t/o+pF6j9P7s3/7t3/5z
vw+l91Pqfchwnd+c/uBxfujf/uIX//08RPSbN4eIPvzwr292yd7z71V6iGfp9Xc4
zg9P3aC3rLnB95z/1BfZ1nXXXNM9X9w1r3/n+7dqiOjS13bqr/3R12dMhmgeX2vu
80szRJQ81g0R3WvnH2yGX3/Nz4j3/szYyvprryPVuiXWf9Wec2NcV4lf/5r2v/Z9
iLXOvXu4pbVff+tnuf8OMYaI7v2zcut/1rZ/+y/Z0ux/7P0DAP0rPcSr9PowstJf
f6XXh5EZIgoA0Lo4Q0RLS/FvLra0NPu3/5Itzf7L7v/V5niva9in/du//dt/rveh
9H5KvQ+lr7/Uvmt+H24puXYN71OO/Zf+9bf/sfd/S8m1a3h/Rvj1L/E+lN5Pqfeh
9PVfu6a1cq4Va80aft1buA9y7Lu198H+7d/+7X/U/ad6H0rvp9T7kOE6f3t69sWn
n33206/O40N/+/b40Md/dvnjP3rt+TUP35+e/Lxrzx8/f+l13uiV866ef+V57PPP
n7ex4flLr3ft8695+NHfrfvEjeNDb93K4edce37r9dZacx05z7/Xlvfq1ucv7Wfh
89aNDw2/Jh+/RwTfK+4e83ftnt/4T8WvXce117/28b3rXvsedu/6b3z+xo8vrX/1
eiLte6tq1r92HRs/bv2d61/7PXrp+Mb17/09fevv/bnX3fr9J9Z1Lb3+vR+Ptb+1
3ljn65+xzt35+puvJ1h/vzTjQ+/5Y9FT5++19Pqx1tlqy/pr36ste4n96713Petb
v4b1Uyu17tJ1XPt4rHXuXf/e69j6+rHvi62vv/d6dr7eIcb40Eex/wzditX7+vEf
f92n/w6l9Puw+s8uW389z/u+0kj3Rao/A77x+bH/rmjn/u/9M+ja85P9HVnkv2NL
tv/S+9z5PiyJtf83XnfvfZ1p/+f1dr4Pd1//vedH2vd5vda+DiLv/5ra959adfdB
7r97K/11kek+v2b3/hOfn5r9r2zs/Uf6+W4v+19Z+3+6o+z/2n5if779v9bYNu+3
st6r9HWXfh9KX2+p/Ze+ztLvw/LrPAQtva9t17Nk7XrrPz9tL9fxEPT2519z7/uX
7354SHL9S6+z/PkPq9ZPvf97rz+W1fv40f99vZG/j5e2et8r34deLO1/FPXuO874
0NL/hqd0Uyu1j1L7XRL738hsXa+0vddf235Ss//0+9/7mil/TXJ8H69x/7X9PpZb
qt8XaxNrn/Zv/0+1dvZv/ylbO/u3/5Stnf2Ptd8lo+47ZP9j7jtk/3H2X8v7de91
37v/Wu6b2Ne/9Dq1fd3Evv5Wfl7ItY/a3ofS+8n1vpS+vlLvQ+nr+bq/M33nZy//
x1fv/M2nX5wHiP7O/PGrA0T3eviv973k43n3ns/djvPDqzfOrZt8yxfEvR9bu9bS
9bbSa/tfen8ifnzVAFHqUup7Zanv1eG6uda/tq7fq4B+rBsgqnU11eeuea0S6z8l
5Xt2a929e1r6nFz3kOr0tVsfe9U9r33P+Ut6Pz/z+3+IOUAUAF41+t+hjbr/Uf8O
ddS/Q17ad6/7X7vv3va/dd+97P/effeyfwAAAABaE3eAqKqq6qt9VYzXKr2fkvtv
6X14ygj7vyXFWqX3u2bfqa+19n3nusZa913i2mrad+79x34fcl93Le9P6esrtf/S
16Wqqqrpeu85t+S45hLrb9XL+ntZ3/rWb3f9e68j1rq1rL/2OlKtm2j9352++8VP
/+dPXp8g+rvzJySbIHrN3v9Sxn9xk8xxfnjqDrp1l96689bc3VvOu/XVsea82ntr
j0vvQaSPmyDakdLfI0t/ry79X2n6r0WB9pggWnvXfu6rSq8f4zq2nnNLynXXrH/r
OmL+Wq29zpLra11d+tir7nnte85f0vv5md//gwmiANRi9L9Ds/+HJzuK0f9OefRJ
jKNPpBx9MqcJpQAAAADEZYKoqqrG6d7XeEoN+0q9b/u/vv+a34fYr7lGj/vesv+S
70PqNe7Rw7737D/l+5Br3zH2f8/7kHt/Od/Hkfe/9n0ofX2l34fS16Wqqlqi955z
S45rLrH+Vr2sv5f1rW/9dte/9zpirVvL+muvI9W6idZ/e/rWl3/76c/Pw0NP/yjg
7uGhDz/Yesbr5537Yt3nLR2/+voLvfe8WL33+peE7+u19/kVx/nh3ps01s299HlL
x/d+Eynl3uvf+uuzcN4Qw0O3fi2lWnfpe2Du9VNfR+z3fev3xr3rx/7enmrdrb/H
pVq31d+LW/kZINX6qa/nXqXWfeM6Fr5PJv8+uvD9ev/387dOj6n/gFO6oVLr5r6O
tVp537de/971t4q1/l6x3q/USq1bev1a3vdc90Hq71+x1712Hfd+PPb3vcjf5w6G
h9K6XH8mqE3uPxPVYvOfDTP93Vcu9r+xL263NfZ/u72rff+p/86u1v3X8ne1qZX+
O2v7v++8e+Xa79r95P7/BErvP9xHqu8re1+/lS4pfX21fl/ppaHS12P/eXpN6euy
/7Rdq/R1lt5/qPR159rnktL7KrXva0bbb2j0/Yf2/n1i838faf83m/r80trfv+Gh
2n6XlL6+Uvvudf97lb5++y+7/9bfD/vvaz+97X+rXvYfS+37z8X+69h/aXuvp/X9
P9p7Pa3tNxX7H3Pfj0bd96NR9+++H3P/o/++1/rPPWvF/rm3lfch1b5rfT9y79f+
t70fuc8vXfu/LfX5pdv4/n9vevby5//nf3/+8jw+9PfmOYHn8aEP/+Wr02U8/PAn
qxp6PH/J2vP3rh9+3r3nx9r/4vu68v27+rqPv353dvp6fOhW127ztV8OS8f3rr/0
eqnX3/ptYOn8va+74DQ+9I175Id/HbVLalt/r97WL/3+17b+1uvrbf3S739tX/+7
v081vv7u661s/dH6OD40tUw/00RbP/YfIVtff6/e1t96fb2tv1Xr6289P/X11rZ+
7Ostvf5gDvP40MWfGSL/2Tz3n/WX2L/932wl+yy1/9Ls3/5vdffr2//N7r2+3r//
2b/9l+xeqfe/93z7t/89r7+4vv3f7OL5vv8V7V72b/+3mlrp98/+7f9WUxt9/6nZ
v/3frP2r6qB9HB/autH/bYj92/+epn792q/P/u3f/u9//dLs3/73dO/rl1b7/lO/
f/Zv/3ua+vpH339q9m//e7r39Usrvf/U65dm//afsrVLvf/a39/S12//9l9y/0C3
vjV96yfPf/H8PDz0W68ND338rId3fvlaQ6N8fMnS54XrLK773/7yya79vL3nT18P
D732m8nSbza9fnztb7r3/qa89vP3/ma/8vzT8NDQ1nvZ+c53fr/n79Xa+kvnb+1e
qdff+zPG3tezftn1H4eH7v1ZxvnOd36/5y99fuzXK73+1vdzSezrj71+6dezftH1
D/Pw0CW9/yxsfetb3/rWt771rW9961vf+ta3vvXTv/5e9m//t1r76+9V+vr2fn8q
/f1tL/u3/5Ldff2F/+1C6euzf/tP2b1KX7/92/+e7lX6+nvf/+Pw0NL/FsX61re+
9a1vfetb3/rWt771rW9969e//t7Xr/367N/+R97/3vVTq/39T83+7X9PR7++1Ozf
/ve0dfZv/3vausr3//vTs89+9dlnP3t5Hh/6+0+OD3308P3bvWbpvGuv88bHf/R3
r3fj6+4+P3Mf3Xte6I7zjvPD1tsy1u3cy7eBvfa+fzt//b731PjQUKx7/V6518/1
tV/L+pu/t+b+Xmv9sutr1w3lXq+29WNfz17p1396fGjsP7KU/iNTZX9Eq259YFyl
v//Utn7p338yr39YMz50SW0/y+Zm/2VbWu/7L72/0u9P6eu3/33dq/T1p97/7nWW
/q6y97/LtH/7t3/7t3/7H3H/qqqq2lyXlL6+1PtbUvr67X9f9yp9/aX3v6T3/S2x
/7Itrf39rxsfWvrfbizZe/32b/97Wlrv+9vL/u1/T1vX+/4AAACAZb3//YC//7H/
PW3d3v3X/v6k3p/92/+tlrbz+p9Nb3/++Xl06LP5I1dHhzKc4/xQ+kssRZ/6Ms55
fkNdNToUSnj4wbre+/lr10/13PpAeetGhz71s9FSt3xujPViXU/qn79Krbt0HaXW
v/XxNe79/DXXl/K59fXV96TUurWsn+s61n5uqXVjXc+Gzz3EGB0KAAAAAAAAANQg
zuhQVVVVVVVVVX264bHS12P/qqqqqqqqql3329OzX376N59/+vPz+NBvz3MCjQ/l
0XF+qOR2jdrwWO7zG2rV40Mffnh8rbnOD8+L/Tr3rhv7da6dt/X19l7/2utS7bGP
Sq1by/q5rmOtUuvGup713jo9VvIzyRsN5Tp/yd7XuXfd2K+zd/3wdXKdBz0p9XUQ
6+s/1vq5riPW7wOp1k39+0PQg/GhAAAAAAAAANAL40NVVVVVVVVVUzY8Vvp67F9V
VVVVVVW1635n+vZvxoc+P88P/Y75obzqOD9Ucr9GbXgs9/kNddP80NrnpdU6N66W
uXlr5wfmuq5rr59rfdUa+qiWr/9S6+e6jrVKrRvretZ76/S49meHrfb+rBJbqXXX
XkdutawPIyv99VfL+qW//9by+0/m338P5ocCAAAAAAAAQC/MD1VVVVVVVVVN2fBY
6euxf1VVVVVVVdWu+93p7dPc0Hfe+/D0bDI6lIvj/FDJrRq14bHc5zfUTaNDAYCe
bBsdqqp1NDw22vqqGqUHo0MBAAAAAAAAoBdGh6qqqqqqqqqmbHis9PXYv6qqqqqq
qmrX/d55dOiL07PJ6FAujvNDJbdq1IbHcp/fUI0OBYBhGR2q2mLDY6Otr6pRejA6
FAAAAAAAAAB6YXSoqqqqqqqqasqGx0pfj/2rqqqqqqqqdt2/dx4d+tHp2WR0KBfH
+aGSWzVqw2O5z2+oRocCwLCMDlVtseGx0dZX1Sg9GB0KAAAAAAAAAL0wOlRVVVVV
VVU1ZcNjpa/H/lVVVVVVVVW77h+cR4d+fHo2GR3KxXF+qORWjdrwWO7zG6rRoQAw
LKNDVVtseGy09VU1Sg9GhwIAAAAAAABAL4wOVVVVVVVVVU3Z8Fjp67F/VVVVVVVV
1a7798+jQz85PZuMDuXiOD9UcqtGbXgs9/kN1ehQABiW0aGqLTY8Ntr6qhqlB6ND
AQAAAAAAAKAXRoeqqqqqqqqqpmx4rPT12L+qqqqqqqpq1/3Dx9Ghz989PZuMDuXi
OD9UcqtGbXgs9/kN1ehQABiW0aGqLTY8Ntr6qhqlB6NDAQAAAAAAAKAXRoeqqqqq
qqqqpmx4rPT12L+qqqqqqqpq1/0H59Gh752eTUaHcnGcHyq5VaM2PJb7/IZqdCgA
DMvoUNUWGx4bbX1VjdKD0aEAAAAAAAAA0AujQ1VVVVVVVVVTNjxW+nrsX1VVVVVV
VbXr/sPz6NDnp2eT0aFcHOeHSm7VqA2P5T6/oRodCgDDMjpUtcWGx0ZbX1Wj9GB0
KAAAAAAAAAD0wuhQVVVVVVVV1ZQNj5W+HvtXVVVVVVVV7br/6Dw69P3Ts8noUC6O
80Mlt2rUhsdyn99QjQ4FgGEZHaraYsNjo62vqlF6MDoUAAAAAAAAAHphdKiqqqqq
qqpqyobHSl+P/auqqqqqqqp23X98Hh36wenZZHQoF8f5oZJbNWrDY7nPb6hGhwLA
sIwOVW2x4bHR1lfVKD0YHQoAAAAAAAAAvTA6VFVVVVVVVTVlw2Olr8f+VVVVVVVV
VbvuPzmPDv3w9GwyOpSL4/xQya0ateGx3Oc3VKNDAWBYRoeqttjw2Gjrq2qUHowO
BQAAAAAAAIBeGB2qqqqqqqqqmrLhsdLXY/+qqqqqqqqqXfefnkeHvjg9m4wO5eI4
P1Ryq0ZteCz3+Q3V6FAAGJbRoaotNjw22vqqGqUHo0MBAAAAAAAAoBdGh6qqqqqq
qqqmbHis9PXYv6qqqqqqqmrX/f55dOhHp2eT0aFcHOeHSm7VqA2P5T6/oRodCgDD
MjpUtcWGx0ZbX1Wj9GB0KAAAAAAAAAD0wuhQVVVVVVVV1ZQNj5W+HvtXVVVVVVVV
7br/7Dw69OPTs8noUC6O80Mlt2rUhsdyn99QjQ4FgGEZHaraYsNjo62vqlF6MDoU
AAAAAAAAAHphdKiqqqqqqqpqyobHSl+P/auqqqqqqqp23T86jw795PRsMjqUi+P8
UMmtGrXhsdznN1SjQwFgWEaHqrbY8Nho66tqlB6MDgUAAAAAAACAXhgdqqqqqqqq
qpqy4bHS12P/qqqqqqqqql33nz+ODn3/3dOzyehQLo7zQyW3atSGx3Kf31CNDgWA
YRkdqtpiw2Ojra+qUXowOhQAAAAAAAAAemF0qKqqqqqqqmrKhsdKX4/9q6qqqqqq
qnbdPz6PDn3v9GwyOpSL4/xQya0ateGx3Oc3VKNDAWBYRoeqttjw2Gjrq2qUHowO
BQAAAAAAAIBeGB2qqqqqqqqqmrLhsdLXY/+qqqqqqqqqXfdwHh36/PRsMjqUi+P8
UMmtGrXhsdznN1SjQwFgWEaHqrbY8Nho66tqlB6MDgUAAAAAAACAXhgdqqqqqqqq
qpqy4bHS12P/qqqqqqqqql33X5xHh75/ejYZHcrFcX6o5FaN2vBY7vMbqtGhADAs
o0NVW2x4bLT1VTVKD0aHAgAAAAAAAEAvjA5VVVVVVVVVTdnwWOnrsX9VVVVVVVXV
rvuD8+jQD07PJqNDuTjOD5XcqlEbHst9fkM1OhQAhmV0qGqLDY+Ntr6qRunB6FAA
AAAAAAAA6IXRoaqqqqqqqqopGx4rfT32r6qqqqqqqtp1/+Q8OvTD07PJ6FAujvND
Jbdq1IbHcp/fUI0OBYBhGR2q2mLDY6Otr6pRejA6FAAAAAAAAAB6YXSoqqqqqqqq
asqGx0pfj/2rqqqqqqqqdt0/PY8OfXF6NhkdysVxfqjkVo3a8Fju8xuq0aEAMCyj
Q1VbbHhstPVVNUoPRocCAAAAAAAAQC+MDlVVVVVVVVVN2fBY6euxf1VVVVVVVdWu
+y/Po0M/Oj2bjA7l4jg/VHKrRm14LPf5DdXoUAAYltGhqi02PDba+qoapQejQwEA
AAAAAACgF0aHqqqqqqqqqqZseKz09di/qqqqqqqqatf9V+fRoR+fnk1Gh3JxnB8q
uVWjNjyW+/yGanQoAAzL6FDVFhseG219VY3Sg9GhAAAAAAAAANALo0NVVVVVVVVV
UzY8Vvp67F9VVVVVVVW16/7ZeXToJ6dnk9GhXBznh0pu1agNj+U+v6EaHQoAwzI6
VLXFhsdGW19Vo/RgdCgAAAAAAAAA9MLoUFVVVVVVVdWUDY+Vvh77V1VVVVVVVe26
f/44OvSDd0/PJqNDuTjOD5XcqlEbHst9fkM1OhQAhmV0qGqLDY+Ntr6qRunB6FAA
AAAAAAAA6IXRoaqqqqqqqqopGx4rfT32r6qqqqqqqtp1//V5dOh7p2eT0aFcHOeH
Sm7VqA2P5T6/oRodCgDDMjpUtcWGx0ZbX1Wj9GB0KAAAAAAAAAD0wuhQVVVVVVVV
1ZQNj5W+HvtXVVVVVVVV7br/5jw69Pnp2WR0KBfH+aGSWzVqw2O5z2+oRocCwLCM
DlVtseGx0dZX1Sg9GB0KAAAAAAAAAL0wOlRVVVVVVVU1ZcNjpa/H/lVVVVVVVVW7
7l+cR4e+f3o2GR3KxXF+qORWjdrwWO7zG6rRoQAwLKNDVVtseGy09VU1Sg9GhwIA
AAAAAABAL4wOVVVVVVVVVU3Z8Fjp67F/VVVVVVVV1a77b8+jQz84PZuMDuXiOD9U
cqtGbXgs9/kN1ehQABiW0aGqLTY8Ntr6qhqlB6NDAQAAAAAAAKAXRoeqqqqqqqqq
pmx4rPT12L+qqqqqqqpq133nPDr0w9OzyehQLo7zQyW3atSGx3Kf31CNDgWAYRkd
qtpiw2Ojra+qUXowOhQAAAAAAAAAemF0qKqqqqqqqmrKhsdKX4/9q6qqqqqqqnbd
vzyPDn1xejYZHcrFcX6o5FaN2vBY7vMbqtGhADAso0NVW2x4bLT1VTVKD0aHAgAA
AAAAAEAvjA5VVVVVVVVVTdnwWOnrsX9VVVVVVVXVrvvvzqNDPzo9m4wO5eI4P1Ry
q0ZteCz3+Q3V6FAAGJbRoaotNjw22vqqGqUHo0MBAAAAAAAAoBdGh6qqqqqqqqqm
bHis9PXYv6qqqqqqqmrXffc8OvTj07PJ6FAujvNDJbdq1IbHcp/fUI0OBYBhGR2q
2mLDY6Otr6pRejA6FAAAAAAAAAB6YXSoqqqqqqqqasqGx0pfj/2rqqqqqqqqdt33
zqNDPzk9m4wO5eI4P1Ryq0ZteCz3+Q3V6FAAGJbRoaotNjw22vqqGqUHo0MBAAAA
AAAAoBdGh6qqqqqqqqqmbHis9PXYv6qqqqqqqmrXff44OvTDd0/PJqNDuTjOD5Xc
qlEbHst9fkM1OhQAhmV0qGqLDY+Ntr6qRunB6FAAAAAAAAAA6IXRoaqqqqqqqqop
Gx4rfT32r6qqqqqqqtp13z+PDn3v9GwyOpSL4/xQya0ateGx3Oc3VKNDAWBYRoeq
ttjw2Gjrq2qUHowOBQAAAAAAAIBeGB2qqqqqqqqqmrLhsdLXY/+qqqqqqqqqXfeD
8+jQ56dnk9GhXBznh0pu1agNj+U+v6EaHQoAwzI6VLXFhsdGW19Vo/RgdCgAAAAA
AAAA9MLoUFVVVVVVVdWUDY+Vvh77V1VVVVVVVe26H55Hh75/ejYZHcrFcX6o5FaN
2vBY7vMbqtGhADAso0NVW2x4bLT1VTVKD0aHAgAAAAAAAEAvjA5VVVVVVVVVTdnw
WOnrsX9VVVVVVVXVrvviPDr0g9OzyehQLo7zQyW3atSGx3Kf31CNDgWAYRkdqtpi
w2Ojra+qUXowOhQAAAAAAAAAemF0qKqqqqqqqmrKhsdKX4/9q6qqqqqqqnbdj86j
Qz88PZuMDuXiOD9UcqtGbXgs9/kN1ehQABiW0aGqLTY8Ntr6qhqlB6NDAQAAAAAA
AKAXRoeqqqqqqqqqpmx4rPT12L+qqqqqqqpq1/34PDr0xenZZHQoF8f5oZJbNWrD
Y7nPb6hGhwLAsIwOVW2x4bHR1lfVKD0YHQoAAAAAAAAAvTA6VFVVVVVVVTVlw2Ol
r8f+VVVVVVVVVbvuJ+fRoR+dnk1Gh3JxnB8quVWjNjyW+/yGanQoAAzL6FDVFhse
G219VY3Sg9GhAAAAAAAAANALo0NVVVVVVVVVUzY8Vvp67F9VVVVVVVW16/778+jQ
j0/PJqNDuTjOD5XcqlEbHst9fkM1OhQAhmV0qGqLDY+Ntr6qRunB6FAAAAAAAAAA
6IXRoaqqqqqqqqopGx4rfT32r6qqqqqqqtp1/8N5dOgnp2eT0aFcHOeHSm7VqA2P
5T6/oRodCgDDMjpUtcWGx0ZbX1Wj9GB0KAAAAAAAAAD0wuhQVVVVVVVV1ZQNj5W+
HvtXVVVVVVVV7br/8XF06It3T88mo0O5OM4PldyqURsey31+QzU6FACGZXSoaosN
j422vqpG6cHoUAAAAAAAAADohdGhqqqqqqqqqikbHit9Pfavqqqqqqqq2nX/03l0
6HunZ5PRoVwc54dKbtWoDY/lPr+hGh0KAMMyOlS1xYbHRltfVaP0YHQoAAAAAAAA
APTC6FBVVVVVVVXVlA2Plb4e+1dVVVVVVVXtuv/5PDr0+enZZHQoF8f5oZJbNWrD
Y7nPb6hGhwLAsIwOVW2x4bHR1lfVKD0YHQoAAAAAAAAAvTA6VFVVVVVVVTVlw2Ol
r8f+VVVVVVVVVbvuX51Hh75/ejYZHcrFcX6o5FaN2vBY7vMbqtGhADAso0NVW2x4
bLT1VTVKD0aHAgAAAAAAAEAvjA5VVVVVVVVVTdnwWOnrsX9VVVVVVVXVfvv/AcUV
GJ4eDxUAABUPHg==

`template`
null

`settings`
patch-size 16
num-shapes 64
screen-half-width 12
screen-half-height 12
interface-window-xcor 178
interface-window-ycor 53
interface-window-size 702 426
output-window-xcor 0
output-window-ycor 0
output-window-width 300
output-window-height 200
info-window-xcor 0
info-window-ycor 0
info-window-width 500
info-window-height 400
control-center-xcor 45
control-center-ycor 332
control-center-width 562
control-center-height 706
shape-chooser-xcor 100
shape-chooser-ycor 100
shape-chooser-width 298
shape-chooser-height 155
turtle-command-center-height 150
observer-command-center-height 150
background-image ""

`string table`
H4sIAAAAAAAAAGNgYGAAABzfRCEEAAAAAAAABA==

`symbol table`
H4sIAAAAAAAAAGNgYGAAABzfRCEEAAAAAAAABA==

`double table`
H4sIAAAAAAAAAGNgYOB1UGMAAwfvBgjtCKUtoeJRDhBaD8p3g8prQPgHoLSDFpTW
gdD2K2eCwCz7BxA+AFlc9AFsAAAAAAAAbA==

`list table`
H4sIAAAAAAAAAHWQSxKAIAxD0+KMPxaewWN5Tg8I1XTMAhcB+tqmAIADwGR9STkw
kxmZCXMyJzul19i/UCuZKupqSPI3d1ePn5qiPjoHX/8FzsPrY3o/vmfr2qO3oxJ7
sMgP4hELj5ozec6ZJf9Jap64AaHPhBtwAQAAAAABcA==

`bytecodes`
H4sIAAAAAAAAAM2VzXLaMBDHVzbGFAi2Q8VX2uIkTG8cktxy6vTedwghStsZYhgs
dyYzfcT2nSKklbXYlF5yiA5efaz3/9v1CqBzd/8sxXL9IPK7L/BnN/4CQB9aW5HL
9VZcqdU5lOPCB/B2kwEAM1usz3DOgMUcz7toW3jmKT9leIxrFYd/1gZGvrGRZ+xl
AyBEHzsiCHQ0pLp+Q1SspLp5Q1QedHMhi818s1g+iUxt/3YejFr1SLxS2ZBERNlS
NNCq4LyJ86Yh03OFwS+Q0p63gM2szjuS8Qj32rg+xXWH6HXRnhC9HtGLjJ6eq3f4
yGnbCumzhDCcHmDoVxjeEwaOdkAYhoRhRBjGRxgmhOGMMNj4Hyp1/0gYPqGdEoaU
MJzv193q6i7wIXx6zmXx+GiSsN+dp64l46FrwxA/6l6jqAcf18/2hBrgi4U0VTwq
ojrizHaZD2yqHEbMBJtWgwYQLh5+LbKlULuz/wSeuIuV2EumLlJss1CRE9+1Mrft
FZBSquyiNmYaVKoQuktYAjah/7WQcp3dpqm6bT/SRfZ9JXQVGJ/tQbo1M+t4iuCB
g93laHsosochJKXIVr6KxLgi0YKY5lFs0murDaWEGcHuIle9b4i3V/N2+KvXwZ9U
8NsEyLW7BWrUgIalN7bX/F5vgP4JPngHwHSGDtCp5X9F5PaGlht8W2c/1f/Dbbpc
F5mcy2IrVyKH+g+/MmM1n/llIbSqTraJ8bpH4gX1OHrzBHrlO7kUm51vD7Xbtb8D
lgBh8A4w9A7EC/8dR78TvQDudEO2bAgAAAAACGw=

`observer world`
H4sIAAAAAAAAAGMQSMhPKk4tKkstUiguSSxJTXBggAMrBq6CnPyS8syU9NQSIJ+F
gS0nNS+9JAPI5mFgB8kVpOaBlXKDNcNlOYCYkYG1uCS1oBhqGCMIMwEJAMuawBNz
AAAAAAAAcw==

`patch world`
H4sIAAAAAAAAAJXcT4+jyB3GcYy7vWiTSBw4cOCAEEKWhSybPwZOmVeR865mR7uR
VrOjTUtJ3nVeQtzYLncNdtXzbQm1LX3610UBTxVluoO//fTt57fPv+X/evv57ctP
nwLz9Y/g5T+f//hzfv3jt9//ePv3P3/59cvb+V0WhN8+n7/Hweb3L19/ffvt/LoO
fng33758Pb9Jg5f/Xn40Cv4yFzYuP29/vW7rIDr/7rcvf349zr/l9q45v16Zd+35
Xfj3/10adfv+4Wv1vq1uL87bbR8kGwEbA5sAmwKbAZsDWwBbAlsBuwV2B2wN7B7Y
A7BHYBtgW2A7YHu3DT/4TydQdwB2BHbS7c18WtDnWSLZCNgY2ATYFNgM2BzYAtgS
2ArYLbA7YGtg98AegD0C2wDbAtsB27vtoyyR6g7AjsBOujVZEgl1A2AjYGNgE2BT
YDNgc2ALYEtgK2C3wO6ArYHdA3sA9ghsA2wLbAds77YPs0SpOwA7Ajvp1mRJLNQN
gI2AjYFNgE399nzsQitLFJtLdmVliduurSxR2lBJdmVlidJnO2BrYPfAHtz2vF8v
5+3VypLndm36t/Halenf1ms37+2wssTdhpWVJe66GytLlD4bgB2BnXRrsiQR6gbA
RsDGwCbApn5rzrPMb03dHNgC2BLYym/NdbH120WWeOx7v5ksUerugT247fWaX1lZ
otRtgG2B7YDt/dZk1MlvF1mi2BHYSbcmS1KhbgBsBGwMbAJs6rfmuGV+u8gSxRbA
lsBWfmvGt63fLrLEY99rmyzx27XJEqUNB7e9jt1rK0uUug2wLbAdsL3fLuYlSt0B
2BHYSbcmSzKhbgBsBGwMbAJs6reLeYlSNwe2ALYEtvJbcx+w9VuTDzvNznVrzb63
w2SJUvfgtg/nJUrdBtgW2A7Y3m/Nvp38dpElih2BnXRrsiQX6gbARsDGwCbApn67
WC9R6ubAFsCWwFZ++75vcz5s/fZ2DpssUdpQA7vX7Ps80WTJE3udl4RWlihtaIBt
ge2A7f12MS9R6g7AjsBOujVZUgh1A2AjYGNgE2BTv11kiWJzya6tLHHbVytLFFu5
7bu7XXMmS57bF9NnO2Brrw0XWfLcmmNnsuS5Xd/WSU2WKMetkezKyhK3tddelePW
S9bOEuVcH4AdgZ10a7KkFOoGwEbAxsAmwKbAZsDmwBbAlpqd5xqV217nJKGVJY66
t887TJa47aVuLdv7PY7bzusgJkv8dmOyROnfBtgW2A7YHtgTsAOwI7CTbk2WVELd
ANgI2BjYBNgU2AzYHNgC2FKz83VcuW143+5ZorRhB2wN7B7Yg99es++eJf4+ezFZ
orShBbYDtgf2BOwA7AjspFuTJVuhbgBsBGwMbAJsCmwGbA5sodl5PC41O9et3PY2
H5jrbt32YZYotgZ2r1lrvcRhF2uv/rqvJkuU9rbAdsD2wJ6AHYAdgZ10a7JkJ9QN
gI2AjYFNgE2BzYDNNTtfFwWwpWatLHlir+P25X5+67ZWnu00a2WJv25ossRvX02W
OOwiS5T2Npqd16BbzVpZotge2BOwA7AjsJNuTZbUQt0A2AjYGNgE2NRtrfW+DNjc
a0NzThZe+2rqll57X/esvHaz+ExY6bOdZsOPz6r57cZkidKGg98uPsdR6jbAtpqd
c7LTrJUlij0BOwA7Ajvp1mTJXqgbABsBGwObAJu67W293MoST9153MxluzZZ4rcb
kyV+e18vcdjFPY7brq3PhP11X0yWuO3KWnt12401L/Hb+3qJ0r+NbNcmS5S6nWat
LFHsCdgB2BHYSbcmSw5C3QDYCNgY2ATY1G3Dy9912M+9OuqaayiX7Nq6x3Hbyxhb
SvbS3kqy9jP0Sp/tNGvNSxS71+zqg/Hsm32Po/RZA2wr2c2cv51k1/MY0Es2tLJE
6bMB2BHYSbcmS45C3QDYCNgY2ATY1G2vY+Z6Hgszt7Xq5pqdx6xCs1aWKLby2/D7
Z+iV9u40O9etNWvd4yh1D34bfv8MvVK30aw1L1Hqdpq1ssS9b69WlihtGIAdgZ10
a7KkEeoGwEbAxsAmmp3nBKnb3uYO89iSue3DLFFsodm5DaVmrSxxWPO56dZvTZ/t
NGtliWL3mp3be/Bbk5NHvzX71sh2Y7JE2bcO2N5vzfz35LeLLFHsCOykW5Ml7WNr
rTkGXntfG4y89r5WEQObeO2LOR9Sr30Nv/97nCf2YZYotgC21Gz48Vk1hw1vz35t
/da0YQdsDewe2IPfXseAV5Ml/j5bmSxR2tAC2wHb+234/XOvyr4NmrWyRLGTbk2W
dI/t7VqzsuSJtdoQARtrdp4jJsCmfhvenjPP/PZ2Dpss8dtXkyV+e5+XKG2o/PZ6
vd3nJf6693scpb21bF9Mlvjt/blX975dntM9+q1pQwNsK9v7eolie7+93nuHJkuU
4zZo1soSxU66NVnSP7YPs+SJfZglio2BTYBN/XYxL3Hby3iRS/ayflZI9rKOWErW
/l9Iyr5t/db02Q7YGtg9sAe/Xay9Kv3QSPZStwW2k+zl3Okla///EqXPBmBHYCfd
miw5PbbWfUvgtg+zRLExsAmwKbAZsDmwBbAlsBWwW2B3wNbA7oE9AHsEtgG2BbYD
tgf2BOwA7AjspFuTJcNj+zBLntiHWaLYGNgE2BTYDNgc2ALYEtgK2C2wO2BrYPfA
HoA9AtsA2wLbAdsDewJ2AHYEdtKtyZLxsX2YJU/swyxRbAxsAmwKbAZsDmwBbAls
BewW2B2wNbB7YA/AHoFtgG2B7YDtgT0BOwA7Ajvp1mTJJNQNgI2AjYFNgE2BzYDN
gS2ALYGtgN0CuwO2BnYP7AHYI7ANsC2wHbA9sCdgB2BHYCfd/h8xrNTME2wAAAAA
bBM=

`turtle world`
H4sIAAAAAAAAAJWVzVLCQAzHg/IlCqKioqIiIiI6HNSDnqwXL949eKLCDmUG2w7U
QW++iY9iH8lHcClNlK3E2c5kJunkl/w3GwrkWt7LwOuL8tAzPdEygJ4PSPaF3fUs
6V9B4mkgREe6Vci4fccb9Tpd4cn4ElLj2BW2DJqQaDt9ZyDdEsTf2oG3BItB8V/V
0jK944xsV0bnkBhapiuk24D464SJw/zIcgIdyaEVZl5AyhJmp2d3ZVAIZcYg6Zrt
Z9MOfIAMvQeYkzYfVJu8X5CWlpYal5WWkFaRtuiXJpCPVcPHuJ6O5VnGlWNh/SXi
8gp3/85xWeLSCvdocFyOOEWWccf2W8b8zy8tLo/6IhyvcwXnEeGawHGrOP8Id8vq
XPOLMzj+Hgo4T01u3Ye/n3/2ZQO5G73zbSJnqP14nUXi1D3j+21hvqHuNX++bdQX
4XidOziPCMfrLFGeyvH7ufs5qx/P7fmz+vF7vU/zVL8v/O+vTFxR4fh5HhBXUji+
X4W4sla/Q8w3Klr9qqgvwvF7doTz0OxXw/lHOP58x3jfmjrrNE+V4/fshOZZ1dLZ
IK6mxZ0SV9fizuj/CO/jYTqfvnPZH+4bSIcJgnMIAAAAAAhz