Java StarLogo
2.1
English
`turtle`
to patch
repeat 100 [seth random 360
jump random 200 stamp yellow]
end

to move 
fd 1 
rt random 50 
lt random 50 
end  

to search-for-chip 
if pc = green 
[stamp black jump 20 stop]
move 
search-for-chip
end  

to uninfect
if pc = black
[stamp green]
move
end


`observer`
breeds [virus antivirue]
to setup 
ct
ask-patches [setpc green]

create-virus 5
create-antivirue 4

ask-virus [setc blue fd 10] 
ask-antivirue [setc red fd 90]
end  

to infect
ask-virus [search-for-chip]
ask-antivirue[uninfect]
end


`information`



`interface`
SLCanvas
top-left 4 98

SLButton
turtle-or-observer? observer
top-left 131 38
width-height 55 30
name "start"
line-to-run "infect"
forever? true
button-number 2
show-name? false
whichip 7

SLButton
turtle-or-observer? observer
top-left 69 50
width-height 40 30
name "reset"
line-to-run "setup"
forever? false
button-number 1
show-name? false
whichip 6

SLTextWidget
top-left 69 511
width-height 153 70
textwidth 149
linenums 4
words "green is uninfected compouters\nblack is infected conpouters\nblue are viruses\nred is antiviruses "
drawBorder false
textwidget-number 1


`turtle shapes`
H4sIAAAAAAAAAO3c2bIkR33A4UJsAgTCeDfGlPG+CEsz0kjyeq64cXDrCwcXkuyx
RQQgLIkg7Kt+UD8Ab2FThU73TOp0V3VXZuX2fRHuX3TNqc7Kmpozi8V/ePmdj3/2
4cc/ejp+9P67P3360Tt3Lw737ubXl37146/MPz4d+Mwv/++zv/y/F49fQs8O08v/
/VLY8Ni5r4t1/jWf/dDnbT1/7eds3UeB+//6r74tAAD9eWF+vfbPESX02j+jpVp3
7+vYa/1zn7t2/VuvK/XPYa7riPXzsNe61u97/a3r3nodsdeNdR1rr2/p/AI7DsPn
BgAAAAAAAACgBb/63xEV8t8kaAdd+prc12f/++639fth//bf0v6vvd7Y+899v3rb
f8p7uUftv6/nIfUaufeXe/+l3Y/c99z+7d/+7d/+7d/+7b/1/efeb+77kXt/e+8/
935y34/c1597/9fej9j3b+v69q96sZ8ZXvrov3727oen8aHzmEDjQ7l3KORR1Uwd
jA8FgI69kP3PIqqqqrp/B+NDAQAAAAAAAKAhL2b/bxFUVVVVVVVVVVVVVVVVVVV1
e4dpINBLP3364Ucf/OQ4PvSFaU6g8aHcO0wvDz1CDzxOF7/u2vMjPuabrj/2+bde
79r7eev1Xvhx40MBoFsvzK9b/oy09c9cude/9c9qt65f+vm99dpzYn+e9ctef+tn
tLZ+7K8vbf2t97PC80fjQwEAAAAAAACgFS/Or1v+W42lbv2M1Ndn//bf8/5Tr597
/9a3vvXTfg9R1Tqbeo3Sr8/+7d/+7d/+7d/+999f7ffH/u3f/tNdn/3bv/3n2//W
z7C+9a1f9PqfHb768dMPf/zDj58e54d+tsn5oXcvH57rtT9e+/obHKaXrc/imud7
j/OfdenHLn3ell93ude/8f6ZHwqF2vp7R8G/96xi/4cHm+o8enX9/NDeG+vParHX
TX0dudfPff9zrP+sLefGuK4cP/8l7X/tfYi1zq17uKS2n3/r7/L8jeaHAgAAcM65
/1/DXv8/h9zrQ89y//rLvT70bOnXX+xfj3uvBwDQvvTzQ1W13279jNzXn2vftd6H
1Gvk3p/927/9738fcu8n133Iff327/l/6FrOybl2Cfdpj/3n/vm3/773f0nOtUu4
Pz38/Oe4D7n3k+s+5L7+c9e01p5rxVrTz3/+fdd6H1KvkXt/9m//9m//e9+H3PvJ
dR92uM7PDd+4nx/68w8++PfjENHPXRwieve9H1zskq3n3yr3EM/c629wmF4eekAv
WfOAbzn/oV9k16675ppu+cVd8vo33r9VQ0SXfm2n/rXf+/r0yRDNw3Pd+/zcDBFl
H+uGiG618S823a+/5s+It/6ZsZb1115HqnVzrP+sLefGuK4cP/8l7X/tfYi1zq17
uKS2n3/r7/L8jTGGiG79u3Ltf9e2f/vP2dzsv+/9AwDtyz3EK/f60LPcv/5yrw89
M0QUAKB2cYaI5pbiv7m4prnZv/3nbG72n3f/z3aPe13CPu3f/u3f/ve6D7n3k+s+
5L7+XPsu+T5cknPtEu7THvvP/fNv/33v/5Kca5dwf3r4+c9xH3LvJ9d9yH39565p
rT3XirVmCT/vNTwHe+y7tvtg//Zv//bf6/5T3Yfc+8l1H3a4zs8PL3347nvv/fDj
4/jQz18eH3r/n12+863n3p9z983hwa879/7+65c+51M9c97Z88+8j33+8euubHj+
0ued+/pz7r7/i3VfeOX40EuPcvg1595f+ry11lzHnuff6pp7denrl/az8HXrxoeG
vybvv0cE3ytuHvN37pm/8j8VP3cd5z7/3I9vXffc97Bb1//U11/540vrn72eSPu+
VjHrn7uOK3/c+hvXP/d79NLxK9e/9ff0a3/v33vda7//xLqupc+/9cdj7W+tT63z
yZ+xjt34+VdfT7D+dmnGh97y16KHzt9q6fNjrXOta9Zfe6+u2Uvsn++t61nf+iWs
n1qudZeu49yPx1rn1vVvvY5rPz/2c3Ht52+9no2fN8YYH3ov9t+ha7F6X+98+5M+
/G8oue/D6r+7XPvzedz3mUZ6LlL9HfBTXx/734o27v/Wv4OuPT/Zv5FF/je2ZPvP
vc+N92FJrP1/6nO3Ptc77f+43sb7cPP133p+pH0f16vt10Hk/Z9T+v5TK+452Pvf
3nL/utjpOT9n8/4Tn5+a/a9s7P1H+vPdVva/svb/cHvZ/7n9xP56+3+usV2938J6
q9zXnfs+5L7eXPvPfZ2578Py59wFzb2v665nydr11n992p6u4y7o5a8/59b7t9/z
cJfk+pc+Z/nr71atn3r/t15/LKv38f3/fb6Rv4/ntnrfK+9DK5b234ty9x1nfGju
/4Ynd1PLtY9c+10S+7+RuXa93LZef2n7Sc3+0+9/62em/DnZ4/t4ifsv7fexvaX6
fbE0sfZp//b/UEtn//afsqWzf/tP2dLZf1/7XdLrvkP23+e+Q/YfZ/+l3K9br/vW
/Zfy3MS+/qXPKe3XTezrr+XPC3vto7T7kHs/e92X3NeX6z7kvp5P+oXhaz96+h8f
v/Jv7354HCD6henHzw4Q3eruX277yPvzbj2fmx2ml2cfnEsP+TW/IG79sbVrLV1v
LT23/6X7E/HHVw0QpSy5vlfm+l4drrvX+ufW9XsV0I51A0S1rKb62jWflWP9h6S8
Z5fW3bqnpa/Z6xlSHT5x6ceedctn33L+ktbP3/n+jzEHiALAs3r/N7Re99/rv6H2
+m/IS/tudf9r993a/q/ddyv7v3XfrewfAAAAgNrEHSCqqqr6bJ8V47Ny7yfn/mu6
Dw/pYf+XpFgr937X7Dv1tZa+772usdR957i2kva99/5j34e9r7uU+5P7+nLtP/d1
qaqqarrees4le1xzjvWv1cr6W1nf+tavd/1bryPWuqWsv/Y6Uq2baP0vDi9/+MP/
fP/5CaJfnL4g2QTRc7b+L2X8L26SOUwvDz1Bl57SS0/emqf7mvMu/epYc17pvbTH
pXsQ6cdNEG1I7u+Rub9X5/5fafpfiwL1MUG09K792mflXj/GdVx7ziUp112z/qXr
iPlztfY6c66vZXXpx551y2ffcv6S1s/f+f6PJogCUIre/w3N/u8ebC96/zfl3icx
9j6RsvfJnCaUAgAAABCXCaKqqhqnWz/jISXsK/W+7f/8/ku+D7E/c40W933N/nPe
h9Rr3KKFfW/Zf8r7sNe+Y+z/lvuw9/72vI8973/tfch9fbnvQ+7rUlVVzdFbz7lk
j2vOsf61Wll/K+tb3/r1rn/rdcRat5T1115HqnUTrf/i8OWPfv7uT47DQ+f/KODm
4aF337n2jOfPO/bJuq9bOn728xd663mxeuv1Lwnv67n7/IzD9HLrQxrr4V76uqXj
W7+J5HLr9V/787NwXhfDQ6/9tZRq3aXvgXuvn/o6Yt/3a783bl0/9vf2VOte+3tc
qnVr/b24lj8DpFo/9fXcKte6n7qOhe+Tyb+PLny/3v79/IX5NfVfcHI3lGvdva9j
rVru+7XXv3X9a8Vaf6tY9yu1XOvmXr+U+77Xc5D6+1fsdc9dx60/Hvv7XuTvc6Ph
odRur78TlGbvvxOV4uq/G+70b197sf8r++Rya2P/l9u60vef+t/sSt1/Kf9Wm1ru
f7O2/9vOu9Ve+127n73/fwK59x/uI9X3la2fX0uX5L6+Ur+vtNJQ7uux/316Tu7r
sv+0XSv3debefyj3de+1zyW595Vr3+f0tt9Q7/sPbf33xOr/PdL+Lzb1+bnVv3/D
Q7X+Lsl9fbn23er+t8p9/fafd/+13w/7b2s/re3/Wq3sP5bS978X+y9j/7ltvZ7a
939v6/XUtt9U7L/Pfd/rdd/3et2/577P/ff++17tf+5ZK/afe2u5D6n2Xer92Hu/
9n/d/dj7/Ny1/8tSn5+7le//S8NLT3/yP//946fH8aFfmuYEHseH3v3zx/Nl3H3v
/VUN3Z+/ZO35W9cPv+7W82Ptf/G+rrx/Zz/3/ufvxg6fjA+91rnHfO0vh6XjW9df
+rzU61/7bWDp/K2fu2AeH/qpZ+R7P4jaJaWtv1Vr6+e+/6Wtf+31tbZ+7vtf2q//
zd+nKl9/8/UWtn5vvR8fmtpOf6aJtn7sv0LWvv5Wra1/7fW1tv61al//2vNTX29p
68e+3tzrd2acxocu/pkh8t/N9/67/hL7t/+LLWSfufafm/3b/6Vu/nz7v9it19f6
9z/7t/+c3Sr1/reeb//2v+XzF9e3/4tdPN/3v6zdyv7t/1JTy33/7N/+LzW13vef
mv3b/8Xav6p22vvxobXr/b8NsX/739LUn1/69dm//dv/7Z+fm/3b/5Zu/fzcSt9/
6vtn//a/pamvv/f9p2b/9r+lWz8/t9z7T71+bvZv/ylbutT7L/3+5r5++7f/nPsH
mvXl4cvvP/rg0XF46JefGx56/1V3r/z0uYZ6+fElS18XrrO47r9+98Gu/bqt5w+f
DA8995vJ0m82rf742t90b/1Nee3Xb/3NfuX58/DQ0LXPsvOd7/x2z9+qtvWXzr+2
W6Vef+ufMbZ+nvXzrn8/PHTrn2Wc73znt3v+0tfH/rzc6197P5fEvv7Y6+f+POtn
XX+chocuaf3Pwta3vvWtb33rW9/61re+9a1vfetbP/3nb2X/9n+ppX/+Vrmvb+v3
p9zf37ayf/vP2c3Xn/m/Xch9ffZv/ym7Ve7rt3/739Ktcl9/6/u/Hx6a+79Fsb71
rW9961vf+ta3vvWtb33rW9/65a+/9fNLvz77t/+e9791/dRKv/+p2b/9b2nv15ea
/dv/ltbO/u1/S2tX+P6/Mrz03s/ee+9HT4/jQ7/y4PjQe3ffvNxzls479zmf+vHv
/+L5Xvm5m8/fufduPS90w3mH6eXaxzLW49zKt4Gttt6/jT9/X39ofGgo1rN+q73X
3+vXfinrX/29de/vtdbPu7423dDe65W2fuzr2Sr9+g+PD439V5bcf2Uq7K9oxa0P
9Cv395/S1s/9+8/O649rxocuKe3Psnuz/7zNrfX9595f7vuT+/rtf1u3yn39qfe/
eZ2lf6ts/d8y7d/+7d/+7d/+e9y/qqqqVtclua8v9f6W5L5++9/WrXJff+79L2l9
f0vsP29zq3//68aH5v5vN5ZsvX77t/8tza31/W1l//a/pbVrfX8AAADAstb/fcC/
/9j/ltZu6/5Lvz+p92f/9n+puW28/peGF+e5oa+89mh+N1wYHUp3DtNL7l9iKfrQ
L+M9z6+oq0aHAgAtWjc6VFXLanist/VVNUrHGKNDAQAAAAAAAIASxBkdqqqqqqqq
qqoPNzyW+3rsX1VVVVVVVbXpfvU4OvTx/G4wOpSTw/RSyKMateGxvc+vqEaHAkC3
jA5VrbHhsd7WV9UoHY0OBQAAAAAAAIBWGB2qqqqqqqqqmrLhsdzXY/+qqqqqqqqq
Tfdrx9Ghr8/vBqNDOTlML4U8qlEbHtv7/IpqdCgAdMvoUNUaGx7rbX1VjdLR6FAA
AAAAAAAAaIXRoaqqqqqqqqopGx7LfT32r6qqqqqqqtp0Xz6ODn1jfjcYHcrJYXop
5FGN2vDY3udXVKNDAaBbRoeq1tjwWG/rq2qUjkaHAgAAAAAAAEArjA5VVVVVVVVV
TdnwWO7rsX9VVVVVVVXVpvv14+jQJ/O7wehQTg7TSyGPatSGx/Y+v6IaHQoA3TI6
VLXGhsd6W19Vo3Q0OhQAAAAAAAAAWmF0qKqqqqqqqmrKhsdyX4/9q6qqqqqqqjbd
XzuODn1zfjcYHcrJYXop5FGN2vDY3udXVKNDAaBbRoeq1tjwWG/rq2qUjkaHAgAA
AAAAAEArjA5VVVVVVVVVTdnwWO7rsX9VVVVVVVXVpvuN4+jQt+Z3g9GhnByml0Ie
1agNj+19fkU1OhQAumV0qGqNDY/1tr6qRulodCgAAAAAAAAAtMLoUFVVVVVVVdWU
DY/lvh77V1VVVVVVVW26v34cHfr2/G4wOpSTw/RSyKMateGxvc+vqEaHAkC3jA5V
rbHhsd7WV9UoHY0OBQAAAAAAAIBWGB2qqqqqqqqqmrLhsdzXY/+qqqqqqqqqTfc3
7keHPnp1fjcYHcrJYXop5FGN2vDY3udXVKNDAaBbRoeq1tjwWG/rq2qUjkaHAgAA
AAAAAEArjA5VVVVVVVVVTdnwWO7rsX9VVVVVVVXVpvubx9Ghr83vBqNDOTlML4U8
qlEbHtv7/IpqdCgAdMvoUNUaGx7rbX1VjdLR6FAAAAAAAAAAaIXRoaqqqqqqqqop
Gx7LfT32r6qqqqqqqtp0f+s4OvTR/G4wOpSTw/RSyKMateGxvc+vqEaHAkC3jA5V
rbHhsd7WV9UoHY0OBQAAAAAAAIBWGB2qqqqqqqqqmrLhsdzXY/+qqqqqqqqqTfe3
j6NDH8/vBqNDOTlML4U8qlEbHtv7/IpqdCgAdMvoUNUaGx7rbX1VjdLR6FAAAAAA
AAAAaIXRoaqqqqqqqqopGx7LfT32r6qqqqqqqtp0f+c4OvT1+d1gdCgnh+mlkEc1
asNje59fUY0OBYBuGR2qWmPDY72tr6pROhodCgAAAAAAAACtMDpUVVVVVVVVNWXD
Y7mvx/5VVVVVVVVVm+7vHkeHvjG/G4wO5eQwvRTyqEZteGzv8yuq0aEA0C2jQ1Vr
bHist/VVNUpHo0MBAAAAAAAAoBVGh6qqqqqqqqqmbHgs9/XYv6qqqqqqqmrT/b3j
6NAn87vB6FBODtNLIY9q1IbH9j6/ohodCgDdMjpUtcaGx3pbX1WjdDQ6FAAAAAAA
AABaYXSoqqqqqqqqasqGx3Jfj/2rqqqqqqqqNt1vHkeHvjm/G4wO5eQwvRTyqEZt
eGzv8yuq0aEA0C2jQ1VrbHist/VVNUpHo0MBAAAAAAAAoBVGh6qqqqqqqqqmbHgs
9/XYv6qqqqqqqmrT/f3j6NC35neD0aGcHKaXQh7VqA2P7X1+RTU6FAC6ZXSoao0N
j/W2vqpG6Wh0KAAAAAAAAAC0wuhQVVVVVVVV1ZQNj+W+HvtXVVVVVVVVbbrfOo4O
fXt+NxgdyslheinkUY3a8Nje51dUo0MBoFtGh6rW2PBYb+urapSORocCAAAAAAAA
QCuMDlVVVVVVVVVN2fBY7uuxf1VVVVVVVdWm+wf3o0Mfvzq/G4wO5eQwvRTyqEZt
eGzv8yuq0aEA0C2jQ1VrbHist/VVNUpHo0MBAAAAAAAAoBVGh6qqqqqqqqqmbHgs
9/XYv6qqqqqqqmrT/fZxdOhr87vB6FBODtNLIY9q1IbH9j6/ohodCgDdMjpUtcaG
x3pbX1WjdDQ6FAAAAAAAAABaYXSoqqqqqqqqasqGx3Jfj/2rqqqqqqqqNt3xODr0
0fxuMDqUk8P0UsijGrXhsb3Pr6hGhwJAt4wOVa2x4bHe1lfVKB2NDgUAAAAAAACA
Vhgdqqqqqqqqqpqy4bHc12P/qqqqqqqqqk33D4+jQx/P7wajQzk5TC+FPKpRGx7b
+/yKanQoAHTL6FDVGhse6219VY3S0ehQAAAAAAAAAGiF0aGqqqqqqqqqKRsey309
9q+qqqqqqqradL9zHB36+vxuMDqUk8P0UsijGrXhsb3Pr6hGhwJAt4wOVa2x4bHe
1lfVKB2NDgUAAAAAAACAVhgdqqqqqqqqqpqy4bHc12P/qqqqqqqqqk33j46jQ9+Y
3w1Gh3JymF4KeVSjNjy29/kV1ehQAOiW0aGqNTY81tv6qhqlo9GhAAAAAAAAANAK
o0NVVVVVVVVVUzY8lvt67F9VVVVVVVW16f7xcXTok/ndYHQoJ4fppZBHNWrDY3uf
X1GNDgWAbhkdqlpjw2O9ra+qUToaHQoAAAAAAAAArTA6VFVVVVVVVTVlw2O5r8f+
VVVVVVVVVZvunxxHh745vxuMDuXkML0U8qhGbXhs7/MrqtGhANAto0NVa2x4rLf1
VTVKR6NDAQAAAAAAAKAVRoeqqqqqqqqqpmx4LPf12L+qqqqqqqpq0/3T4+jQt+Z3
g9GhnByml0Ie1agNj+19fkU1OhQAumV0qGqNDY/1tr6qRulodCgAAAAAAAAAtMLo
UFVVVVVVVdWUDY/lvh77V1VVVVVVVW26f3YcHfr2/G4wOpSTw/RSyKMateGxvc+v
qEaHAkC3jA5VrbHhsd7WV9UoHY0OBQAAAAAAAIBWGB2qqqqqqqqqmrLhsdzXY/+q
qqqqqqqqTffP70eHvv7q/G4wOpSTw/RSyKMateGxvc+vqEaHAkC3jA5VrbHhsd7W
V9UoHY0OBQAAAAAAAIBWGB2qqqqqqqqqmrLhsdzXY/+qqqqqqqqqTfcvjqNDX5vf
DUaHcnKYXgp5VKM2PLb3+RXV6FAA6JbRoao1NjzW2/qqGqWj0aEAAAAAAAAA0Aqj
Q1VVVVVVVVVTNjyW+3rsX1VVVVVVVbXp/uVxdOij+d1gdCgnh+mlkEc1asNje59f
UY0OBYBuGR2qWmPDY72tr6pROhodCgAAAAAAAACtMDpUVVVVVVVVNWXDY7mvx/5V
VVVVVVVVm+5fHUeHPp7fDUaHcnKYXgp5VKM2PLb3+RXV6FAA6JbRoao1NjzW2/qq
GqWj0aEAAAAAAAAA0AqjQ1VVVVVVVVVTNjyW+3rsX1VVVVVVVbXp/vVxdOjr87vB
6FBODtNLIY9q1IbH9j6/ohodCgDdMjpUtcaGx3pbX1WjdDQ6FAAAAAAAAABaYXSo
qqqqqqqqasqGx3Jfj/2rqqqqqqqqNt1XjqND35jfDUaHcnKYXgp5VKM2PLb3+RXV
6FAA6JbRoao1NjzW2/qqGqWj0aEAAAAAAAAA0AqjQ1VVVVVVVVVTNjyW+3rsX1VV
VVVVVbXpfvc4OvTJ/G4wOpSTw/RSyKMateGxvc+vqEaHAkC3jA5VrbHhsd7WV9Uo
HY0OBQAAAAAAAIBWGB2qqqqqqqqqmrLhsdzXY/+qqqqqqqqqTfdvjqND35zfDUaH
cnKYXgp5VKM2PLb3+RXV6FAA6JbRoao1NjzW2/qqGqWj0aEAAAAAAAAA0AqjQ1VV
VVVVVVVTNjyW+3rsX1VVVVVVVbXpvnocHfrW/G4wOpSTw/RSyKMateGxvc+vqEaH
AkC3jA5VrbHhsd7WV9UoHY0OBQAAAAAAAIBWGB2qqqqqqqqqmrLhsdzXY/+qqqqq
qqqqTfe14+jQt+d3g9GhnByml0Ie1agNj+19fkU1OhQAumV0qGqNDY/1tr6qRulo
dCgAAAAAAAAAtMLoUFVVVVVVVdWUDY/lvh77V1VVVVVVVW26j+5Hh77x6vxuMDqU
k8P0UsijGrXhsb3Pr6hGhwJAt4wOVa2x4bHe1lfVKB2NDgUAAAAAAACAVhgdqqqq
qqqqqpqy4bHc12P/qqqqqqqqqk338XF06Gvzu8HoUE4O00shj2rUhsf2Pr+iGh0K
AN0yOlS1xobHeltfVaN0NDoUAAAAAAAAAFphdKiqqqqqqqpqyobHcl+P/auqqqqq
qqo23dePo0Mfze8Go0M5OUwvhTyqURse2/v8imp0KAB0y+hQ1RobHuttfVWN0tHo
UAAAAAAAAABohdGhqqqqqqqqqikbHst9Pfavqqqqqqqq2nTfOI4OfTy/G4wO5eQw
vRTyqEZteGzv8yuq0aEA0C2jQ1VrbHist/VVNUpHo0MBAAAAAAAAoBVGh6qqqqqq
qqqmbHgs9/XYv6qqqqqqqmrTfXIcHfr6/G4wOpSTw/RSyKMateGxvc+vqEaHAkC3
jA5VrbHhsd7WV9UoHY0OBQAAAAAAAIBWGB2qqqqqqqqqmrLhsdzXY/+qqqqqqqqq
TffN4+jQN+Z3g9GhnByml0Ie1agNj+19fkU1OhQAumV0qGqNDY/1tr6qRulodCgA
AAAAAAAAtMLoUFVVVVVVVdWUDY/lvh77V1VVVVVVVW26bx1Hhz6Z3w1Gh3JymF4K
eVSjNjy29/kV1ehQAOiW0aGqNTY81tv6qhqlo9GhAAAAAAAAANAKo0NVVVVVVVVV
UzY8lvt67F9VVVVVVVW16b59HB365vxuMDqUk8P0UsijGrXhsb3Pr6hGhwJAt4wO
Va2x4bHe1lfVKB2NDgUAAAAAAACAVhgdqqqqqqqqqpqy4bHc12P/qqqqqqqqqk33
b4+jQ9+a3w1Gh3JymF4KeVSjNjy29/kV1ehQAOiW0aGqNTY81tv6qhqlo9GhAAAA
AAAAANAKo0NVVVVVVVVVUzY8lvt67F9VVVVVVVW16f7dcXTo2/O7wehQTg7TSyGP
atSGx/Y+v6IaHQoA3TI6VLXGhsd6W19Vo3Q0OhQAAAAAAAAAWmF0qKqqqqqqqmrK
hsdyX4/9q6qqqqqqqjbdv78fHfrk1fndYHQoJ4fppZBHNWrDY3ufX1GNDgWAbhkd
qlpjw2O9ra+qUToaHQoAAAAAAAAArTA6VFVVVVVVVTVlw2O5r8f+VVVVVVVVVZvu
PxxHh742vxuMDuXkML0U8qhGbXhs7/MrqtGhANAto0NVa2x4rLf1VTVKR6NDAQAA
AAAAAKAVRoeqqqqqqqqqpmx4LPf12L+qqqqqqqpq0/3H4+jQR/O7wehQTg7TSyGP
atSGx/Y+v6IaHQoA3TI6VLXGhsd6W19Vo3Q0OhQAAAAAAAAAWmF0qKqqqqqqqmrK
hsdyX4/9q6qqqqqqqjbdfzqODn08vxuMDuXkML0U8qhGbXhs7/MrqtGhANAto0NV
a2x4rLf1VTVKR6NDAQAAAAAAAKAVRoeqqqqqqqqqpmx4LPf12L+qqqqqqqpqu/1/
XbDPdBUPFQAAFQ8V

`template`
null

`settings`
patch-size 8
num-shapes 64
screen-half-width 25
screen-half-height 25
interface-window-xcor 196
interface-window-ycor 22
interface-window-size 667 456
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 0
control-center-ycor 85
control-center-width 297
control-center-height 503
shape-chooser-xcor 100
shape-chooser-ycor 100
shape-chooser-width 298
shape-chooser-height 148
turtle-command-center-height 150
observer-command-center-height 150
background-image ""

`string table`
H4sIAAAAAAAAAGNgYGAAABzfRCEEAAAAAAAABA==

`symbol table`
H4sIAAAAAAAAAGNgYGAAABzfRCEEAAAAAAAABA==

`double table`
H4sIAAAAAAAAAGNgYGBx8G5gAAGHKAcIrccAod0g4gCwca7AJAAAAAAAACQ=

`list table`
H4sIAAAAAAAAAC2MQQ6AMAgEF6ox0asv8TmePfhUn9UdoelAmHaRtEk60iV8zWrS
LMxZbsdl+VvV8cT494Tidf8sht3o9wuYez+cnf/DnAldQNwDhAAAAAAAAIQ=

`bytecodes`
H4sIAAAAAAAAAIVSQW7DIBBcjEnsNApWZStpT1F79gd6qvqSpJTIOdS2Ylypf2z/
VHAWCERR98KyLDPDLHC3e/9WUnQfcti9wo+JXwDIgA1Sjb1Oa3DxRAESk6QABGul
znUZnm2N4KobNwxzimt6UWOINcf9DKAqMNe1aom49jyL+vOL/kXYzw24Rjy2BymU
ztb+DVZ3ghrmqMtGwEmiPnbdN3ERYP1eicb4cYNq6SBJYZ66cTad9wtvVUnP8DxH
+ATSz+5L6tLqGr2KkR8i5EdEocAHuT+Jpj50p1o0xz5whpQelBRrlJ15J0rqJ2vk
cnSBJ+gO9eIyQNIUsrF1c7j/hy0N2W6hT8gMVm+jUl37st3av2rnFAQzf4u7Xicm
j4ZL/JWJeGYv/wE+/etJJQMAAAAAAyU=

`observer world`
H4sIAAAAAAAAAGMQSMhPKk4tKkstUiguSSxJTXBggAMrBq6CnPyS8syU9NQSIJ+F
gS0nNS+9JAPI5mBgB8kVpOaBlXKDNSPJQgAjCAMA+OWZc2QAAAAAAABk

`patch world`
H4sIAAAAAAAAAIXVScsr6WGGYSWYRCQEtNBCAS0KIYQQQmieh5q6BrLP2qbT2AFj
N86BJLv6yfkJadupOll8b10CoeHSXaUJnsE//frn33z78XfRf3z7zbeffh0Pusu/
Dn71Xz/+8U9/uf8PP//+j9/+89//7bc/ffvl0XTwtz//+MvtaPB3v//pD7/99rtf
7keDv//za37+6Q+/PJgMfvXff02Hg3/8y4H/3+sGg3/+v+vg8z9/PVV7G/9L0579
b/58bd9N0IfwEXwMn8Cn8Ag+g8/hC/gSvoKv4Rv4Fr6D7+EH+BF+gp/hF/gVfoPf
4Q/4E/6Cv+EfeCxv+j1Bn6BP0afoM/QZ+hx9jv4H9D+gL9AX6Ev0JfoKfYW+Rl/3
993zg0A/gA/hI/gYPoFP4RF8Bp/DF/AlfAVfwzfwLXwH38MP8CP8BD/DL/Ar/Aa/
wx/wJ/wFf8M/8Fje9HuCPkGfok/RZ+gz9Dn6HP0P6H9AX6Av0JfoS/QV+gp9jb7u
77t9GX7tXRfyIXwEH8Mn8Ck8gs/gc/gCvoSv4Gv4Br6F7+B7+AF+hJ/gZ/gFfoXf
4Hf4A/6Ev+Bv+Acey5t+T9An6FP0KfoMfYY+R5+jb/cl6OgL9AX6En2JvkJfoa/R
1/19ty+jQD+AD+Ej+Bg+gU/hEXwGn8MX8CV8BV/DN/AtfAffww/wI/wEP8Mv8Cv8
Br/DH/An/AV/wz/wWN70e4I+QZ+iT9Fn6DP0OfocfbsvQUdfoC/Ql+hL9BX6Cn2N
vu7vu30ZB/oBfAgfwcfwCXwKj+Az+By+gC/hK/gavoFv4Tv4Hn6AH+En+Bl+gV/h
N/gd/oA/4S/4G/6Bx/Km3xP0CfoUfYo+Q5+hz9Hn6Nt9CTr6An2BvkRfoq/QV+hr
9HV/3+3LJNAP4EP4CD6GT+BTeASfwefwBXwJX8HX8A18C9/B9/AD/Ag/wc/wC/wK
v8Hv8Af8CX/B3/APPJY3/Z6gT9Cn6FP0GfoMfY4+R9/uS9DRF+gL9CX6En2FvkJf
o6/7+25fpoF+AB/CR/AxfAKfwiP4DD6HL+BL+Aq+hm/gW/gOvocf4Ef4CX6GX+BX
+A1+hz/gT/gL/oZ/4LG86fcEfYI+RZ+iz9Bn6HP0Ofp2X4KOvkBfoC/Rl+gr9BX6
Gn3d33f7EgX6AXwIH8HH8Al8Co/gM/gcvoAv4Sv4Gr6Bb+E7+B5+gB/hJ/gZfoFf
4Tf4Hf6AP+Ev+Bv+gcfypt/bfQk6+nZfgo6+3Zego2/3Jejo230JOvp2X4KOvt2X
oKNv9yXo6Nt9CXp/3+3L7GuPB/AhfAQfwyfwKTyCz+Bz+AK+hK/ga/gGvoXv4Hv4
AX6En+Bn+AV+hd/gd/gD/oS/4G/4Bx7Lm35P0CfoU/Qp+gx9hj5Hn6Nv9yXo6Av0
BfoSfYm+Ql+hr9HX/X23L/NAP4AP4SP4GD6BT+ERfAafwxfwJXwFX8M38C18B9/D
D/Aj/AQ/wy/wK/wGv8Mf8Cf8BX/DP/BY3vR7gj5Bn6JP0WfoM/Q5+hx9uy9BR1+g
L9CX6Ev0FfoKfY2+7u+7fVkE+gF8CB/Bx/AJfAqP4DP4HL6AL+Er+Bq+gW/hO/ge
foAf4Sf4GX6BX+E3+B3+gD/hL/gb/oHH8qbfE/QJ+hR9ij5Dn6HP0efo230JOvoC
fYG+RF+ir9BX6Gv0dX/f7csy0A/gQ/gIPoZP4FN4BJ/B5/AFfAlfwdfwDXwL38H3
8AP8CD/Bz/AL/Aq/we/wB/wJf8Hf8A88ljf9nqBP0KfoU/QZ+gx9jj5H3+5L0NEX
6Av0JfoSfYW+Ql+jr/v7bl9WgX4AH8JH8DF8Ap/CI/gMPocv4Ev4Cr6Gb+Bb+A6+
hx/gR/gJfoZf4Ff4DX6HP+BP+Av+hn/gsbzp9wR9gj5Fn6LP0Gfoc/Q5+nZfgo6+
QF+gL9GX6Cv0Ffoafd3fd/uyDvQD+BA+go/hE/gUHsFn8Dl8AV/CV/A1fAPfwnfw
PfwAP8JP8DP8Ar/Cb/A7/AF/wl/wN/wDj+VNvyfoE/Qp+hR9hj5Dn6PP0bf7EnT0
BfoCfYm+RF+hr9DX6Ov+vtuXTaAfwIfwEXwMn8Cn8Ag+g8/hC/gSvoKv4Rv4Fr6D
7+EH+BF+gp/hF/gVfoPf4Q/4E/6Cv+EfeCxv+j1Bn6BP0afoM/QZ+hx9jr7dl6Cj
L9AX6Ev0JfoKfYW+Rl/3992+bAP9AD6Ej+Bj+AQ+hUfwGXwOX8CX8BV8Dd/At/Ad
fA8/wI/wE/wMv8Cv8Bv8Dn/An/AX/A3/wGN50+8J+gR9ij5Fn6HP0Ofoc/TtvgQd
fYG+QF+iL9FX6Cv0Nfq6v+/2ZRfoB/AhfAQfwyfwKTyCz+Bz+AK+hK/ga/gGvoXv
4Hv4AX6En+Bn+AV+hd/gd/gD/oS/4G/4Bx7Lm35P0CfoU/Qp+gx9hj5Hn6Nv9yXo
6Av0BfoSfYm+Ql+hr9HX/X23L/tAP4AP4SP4GD6BT+ERfAafwxfwJXwFX8M38C18
B9/DD/Aj/AQ/wy/wK/wGv8Mf8Cf8BX/DP/BY3vR7gj5Bn6JP0WfoM/Q5+hx9uy9B
R1+gL9CX6Ev0FfoKfY2+7u+7fTkE+gF8CB/Bx/AJfAqP4DP4HL6AL+Er+Bq+gW/h
O/gefoAf4Sf4GX6BX+E3+B3+gD/hL/gb/oHH8qbfE/QJ+hR9ij5Dn6HP0efo230J
OvoCfYG+RF+ir9BX6Gv0dX/f7csx0A/gQ/gIPoZP4FN4BJ/B5/AFfAlfwdfwDXwL
38H38AP8CD/Bz/AL/Aq/we/wB/wJf8Hf8A88ljf9nqBP0KfoU/QZ+gx9jj5H3+5L
0NEX6Av0JfoSfYW+Ql+jr/v7bl9OgX4AH8JH8DF8Ap/CI/gMPocv4Ev4Cr6Gb+Bb
+A6+hx/gR/gJfoZf4Ff4DX6HP+BP+Av+hn/gsbzp9wR9gj5Fn6LP0Gfoc/Q5+nZf
go6+QF+gL9GX6Cv0Ffoafd3fd/tyDvQD+BA+go/hE/gUHsFn8Dl8AV/CV/A1fAPf
wnfwPfwAP8JP8DP8Ar/Cb/A7/AF/wl/wN/wDj+VNvyfoE/Qp+hR9hj5Dn6PP0bf7
EnT0BfoCfYm+RF+hr9DX6Ov+vtuXS6AfwIfwEXwMn8Cn8Ag+g8/hC/gSvoKv4Rv4
Fr6D7+EH+BF+gp/hF/gVfoPf4Q/4E/6Cv+EfeCxv+j1Bn6BP0afoM/QZ+hx9jr7d
l6CjL9AX6Ev0JfoKfYW+Rl/3992+XAP9AD6Ej+Bj+AQ+hUfwGXwOX8CX8BV8Dd/A
t/AdfA8/wI/wE/wMv8Cv8Bv8Dn/An/AX/A3/wGN50+8J+gR9ij5Fn6HP0Ofoc/Tt
vgQdfYG+QF+iL9FX6Cv0Nfq6v+/25RboB/AhfAQfwyfwKTyCz+Bz+AK+hK/ga/gG
voXv4Hv4AX6En+Bn+AV+hd/gd/gD/oS/4G/4Bx7Lm35P0CfoU/Qp+gx9hj5Hn6Nv
9yXo6Av0BfoSfYm+Ql+hr9HX/X23L/dAP4AP4SP4GD6BT+ERfAafwxfwJXwFX8M3
8C18B9/DD/Aj/AQ/wy/wK/wGv8Mf8Cf8BX/DP/BY3vR7gj5Bn6JP0WfoM/Q5+hx9
uy9BR1+gL9CX6Ev0FfoKfY2+7u+7fXkE+gF8CB/Bx/AJfAqP4DP4HL6AL+Er+Bq+
gW/hO/gefoAf4Sf4GX6BX+E3+B3+gD/hL/gb/oHH8qbfE/QJ+hR9ij5Dn6HP0efo
230JOvoCfYG+RF+ir9BX6Gv0dX/f7csz0A/gQ/gIPoZP4FN4BJ/B5/AFfAlfwdfw
DXwL38H38AP8CD/Bz/AL/Aq/we/wB/wJf8Hf8A88ljf9nqBP0KfoU/QZ+gx9jj5H
3+5L0NEX6Av0JfoSfYW+Ql+jr/v7bl9egX4AH8JH8DF8Ap/CI/gMPocv4Ev4Cr6G
b+Bb+A6+hx/gR/gJfoZf4Ff4DX6HP+BP+Av+hn/gsbzp9wR9gj5Fn6LP0Gfoc/Q5
+nZfgo6+QF+gL9GX6Cv0Ffoafd3fd/vyDvQD+BA+go/hE/gUHsFn8Dl8AV/CV/A1
fAPfwnfwPfwAP8JP8DP8Ar/Cb/A7/AF/wl/wN/wDj+VNvyfoE/Qp+hR9hj5Dn6PP
0bf7EnT0BfoCfYm+RF+hr9DX6Ov+vtuXT6AfwIfwEXwMn8Cn8Ag+g8/hC/gSvoKv
4Rv4Fr6D7+EH+BF+gp/hF/gVfoPf4Q/4E/6Cv+EfeCxv+j1Bn6BP0afoM/QZ+hx9
jr7dl6CjL9AX6Ev0JfoKfYW+Rl/3992+xIF+AB/CR/AxfAKfwiP4DD6HL+BL+Aq+
hm/gW/gOvocf4Ef4CX6GX+BX+A1+hz/gT/gL/oZ/4LG86fd2X4KOvt2XoKNv9yXo
6Nt9CTr6dl+Cjr7dl6Cjb/cl6OjbfQk6+nZfgt7ff9+X5ut+AB/CR/AxfAKfwiP4
DD6HL+BL+Aq+hm/gW/gOvocf4Ef4CX6GX+BX+A1+hz/gT/gL/oZ/4LG86fcEfYI+
RZ+iz9Bn6HP0OfpuX0KOvkBfoC/Rl+gr9BX6Gn3d33f70v6PQvsS8iF8BB/DJ/Ap
PILP4HP4Ar6Er+Br+Aa+he/ge/gBfoSf4Gf4BX6F3+B3+AP+hL/gb/gHHsubfk/Q
J+hT9Cn6DH2GPkefo2/3JejoC/QF+hJ9ib5CX6Gv0df9/fd9ab7uB/AhfAQfwyfw
KTyCz+Bz+AK+hK/ga/gGvoXv4Hv4AX6En+Bn+AV+hd/gd/gD/oS/4G/4Bx7Lm35P
0CfoU/Qp+gx9hj5Hn6Pv9iXk6Av0BfoSfYm+Ql+hr9HX/X23L+3/ILQvIR/CR/Ax
fAKfwiP4DD6HL+BL+Aq+hm/gW/gOvocf4Ef4CX6GX+BX+A1+hz/gT/gL/oZ/4LG8
6fcEfYI+RZ+iz9Bn6HP0Ofp2X4KOvkBfoC/Rl+gr9BX6Gn3d33/fl+brfgAfwkfw
MXwCn8Ij+Aw+hy/gS/gKvoZv4Fv4Dr6HH+BH+Al+hl/gV/gNfoc/4E/4C/6Gf+Cx
vOn3BH2CPkWfos/QZ+hz9Dn6bl9Cjr5AX6Av0ZfoK/QV+hp93d93+9L+jqF9CfkQ
PoKP4RP4FB7BZ/A5fAFfwlfwNXwD38J38D38AD/CT/Az/AK/wm/wO/wBf8Jf8Df8
A4/lTb8n6BP0KfoUfYY+Q5+jz9G3+xJ09AX6An2JvkRfoa/Q1+jr/v77vjRf9wP4
ED6Cj+ET+BQewWfwOXwBX8JX8DV8A9/Cd/A9/AA/wk/wM/wCv8Jv8Dv8AX/CX/A3
/AOP5U2/J+gT9Cn6FH2GPkOfo8/Rd/sScvQF+gJ9ib5EX6Gv0Nfo6/6+25f2dwjt
S8iH8BF8DJ/Ap/AIPoPP4Qv4Er6Cr+Eb+Ba+g+/hB/gRfoKf4Rf4FX6D3+EP+BP+
gr/hH3gsb/o9QZ+gT9Gn6DP0GfocfY6+3Zegoy/QF+hL9CX6Cn2FvkZf9/ff96X5
uh/Ah/ARfAyfwKfwCD6Dz+EL+BK+gq/hG/gWvoPv4Qf4EX6Cn+EX+BV+g9/hD/gT
/oK/4R94LG/6vduXkKPv9iXk6Lt9CTn6bl9Cjr7bl5Cj7/Yl5Oi7fQk5+m5fQo6+
25eQ9/fdvrTfY2hfQj6Ej+Bj+AQ+hUfwGXwOX8CX8BV8Dd/At/AdfA8/wI/wE/wM
v8Cv8Bv8Dn/An/AX/A3/wGN50+8J+gR9ij5Fn6HP0Ofoc/Tt80FHX6Av0JfoS/QV
+gp9jb7u77/vS/N1P4AP4SP4GD6BT+ERfAafwxfwJXwFX8M38C18B9/DD/Aj/AQ/
wy/wK/wGv8Mf8Cf8BX/DP/BY3vR7gj5Bn6JP0WfoM/Q5+hx9ty8hR1+gL9CX6Ev0
FfoKfY2+7u+7fWm/h9C+hHwIH8HH8Al8Co/gM/gcvoAv4Sv4Gr6Bb+E7+B5+gB/h
J/gZfoFf4Tf4Hf6AP+Ev+Bv+gcfypt8T9An6FH2KPkOfoc/R5+jbfQk6+gJ9gb5E
X6Kv0Ffoa/R1f/99X5qv+wF8CB/Bx/AJfAqP4DP4HL6AL+Er+Bq+gW/hO/gefoAf
4Sf4GX6BX+E3+B3+gD/hL/gb/oHH8qbfE/QJ+hR9ij5Dn6HP0efou30JOfoCfYG+
RF+ir9BX6Gv0dX/f7Uv7OUL7EvIhfAQfwyfwKTyCz+Bz+AK+hK/ga/gGvoXv4Hv4
AX6En+Bn+AV+hd/gd/gD/oS/4G/4Bx7Lm35P0CfoU/Qp+gx9hj5Hn6Nv9yXo6Av0
BfoSfYm+Ql+hr9HX/f33fWm+7gfwIXwEH8Mn8Ck8gs/gc/gCvoSv4Gv4Br6F7+B7
+AF+hJ/gZ/gFfoXf4Hf4A/6Ev+Bv+Acey5t+T9An6FP0KfoMfYY+R5+j7/Yl5OgL
9AX6En2JvkJfoa/R1/19ty/t+wjtS8iH8BF8DJ/Ap/AIPoPP4Qv4Er6Cr+Eb+Ba+
g+/hB/gRfoKf4Rf4FX6D3+EP+BP+gr/hH3gsb/o9QZ+gT9Gn6DP0GfocfY6+3Zeg
oy/QF+hL9CX6Cn2FvkZf9/ff96X5uh/Ah/ARfAyfwKfwCD6Dz+EL+BK+gq/hG/gW
voPv4Qf4EX6Cn+EX+BV+g9/hD/gT/oK/4R94LG/6PUGfoE/Rp+gz9Bn6HH2OvtuX
kKMv0BfoS/Ql+gp9hb5GX/f33b60xwntS8iH8BF8DJ/Ap/AIPoPP4Qv4Er6Cr+Eb
+Ba+g+/hB/gRfoKf4Rf4FX6D3+EP+BP+gr/hH3gsb/o9QZ+gT9Gn6DP0GfocfY6+
3Zegoy/QF+hL9CX6Cn2FvkZf9/ff96X5uh/Ah/ARfAyfwKfwCD6Dz+EL+BK+gq/h
G/gWvoPv4Qf4EX6Cn+EX+BV+g9/hD/gT/oK/4R94LG/6PUGfoE/Rp+gz9Bn6HH2O
vtuXkKMv0BfoS/Ql+gp9hb5GX/f3/wvCEPUinUUBAAABRZ0=

`turtle world`
H4sIAAAAAAAAAGPgSygpLSrJSVUoLkksSU1wYICD+QxsOal56SUZQLYFA2tSUWpq
CpCpwsBVkJNfUp6Zkp5aAuSbMLCD+AWpeUCOHgNrcn5OfhGQKcPAUpkMZvEwcIMN
RzKNA6g8Jb88rwDIM2JgLc5ILEgFMrUYWCogelgYmMsz8sHuYCvOgKo0ZmDPSE1M
ycxLB3JEoM5kYmAtyywqLQYyGRk4E/NKMkFckGlM/4EASHMCMYeDBgMKcCh4AKH1
oHxkSUYgZABjdrh6qH6HtAZi9LEdQLcvjCh9rDAhDP349bEcUGbNOMO1VcGBY8dq
lt+PJzgUQdVHQXTYf8Cqj/mAeNPro5M2/DigoKd10O7HC4dsovQxOaDrSyJKH6MD
ujuDiNKHCAcVtHDBow8A21Z6x90CAAAAAALd