+� Crunchers and Munchers. C. D. Kennedy
� � :�error:�
&ș "OS_Byte",129,0,&FF � ,version%
(� version% < &A5 �
2$� 31 :� RiscOs version up to 3.1
<�
F%mode%=�:modelen%=24:ptr%=mode%+20
Pȕ !ptr%<>-1
Zptr%+=4:modelen%+=4
d�
n� modestore% modelen%
x� i%=0 � modelen%-4 � 4
�modestore%!i%=mode%!i%
�� i%
�� "X800,Y600,C16,EX1,EY1"
��
��5
��tut_com_colours
��0,white%:�
�ȗ �
�NumberOfCycles%=48
�
divs%=100
�;� A(divs%-1,divs%-1),temp(divs%-1,divs%-1),totals(50,2)
�ȗ �
��

�

� pgrey%+128:�

N�head3("CRUNCHERS AND MUNCHERS",450,1180,16,16,2,2,white%,dbrown%,lbrown%)

"ȗ � 100,600

,� 23,17,7,6,8;16;0;0;

6�0,dbrown%

@o� 50,1100:�"Imagine an area of land in which there are prey(blue) which live on vegetation, predators(red)"

Jn� 50,1060:�"which live on the prey, and empty grassy spaces. Prey and predators are bisexual and breeding"

Tk� 50,1020:�"does not occur for animals on there own. For simplicity all animals may be male or female."

^n� 50,960:�"Predators, prey and empty spaces are represented by red, blue and grey squares respectively in"

hl� 50,920:�"in a 100 x 100 matrix. Each little square(animal etc) is surrounded by 8 other squares. What"

re� 50,880:�"happens to this square depends on the numbers of squares of each colour among this 8."

|i� 50,820:�"The 100 x 100 matrix is imagined to be surrounded  by 8 identical matrices, above, below,"

�i� 50,780:�"either side, and at the 4 corners. So the rules for the edges and corners are the same as"

�� 50,740:�"the middle."

�o� 50,680:�"The parameters that determine behaviour are explained as you go along. Try the default settings"

�o� 50,640:�"first to get the feel of the thing. When things have settled down, you should see the predators"

�l� 50,600:�"surviving quite well at the edges of herds of prey. If you move to the second page, you will"

�g� 50,560:�"see a graph showing population against 'time'. Some settings may show quite complex and"

�/� 50,520:�"interacting population changes."

�h� 50,460:�"You might like to play around with the program to introduce other factors, or change the"

�n� 50,420:�"overall conditions, e.g., have have 2 sets of vegetarians competing for a limited food supply."

�� 50,360:�"Have fun!"

��0,red%

�^� 50,250:� "Now click Select with mouse on 'Default' or else select your own parameters:-"

�� +6
� option%=0 � 1
:�_button(320+576*option%,120,50,mgrey%,dgrey%,vdgrey%)
� colr%,op$
&
� 0,colr%
0	� op$
:
� option%
D� red%,"      Default"
N!� red%,"      Own parameters"
Xopt%=-1
boptn%=-1
l�
voptn%+=1
�,�_mouse(320+576*optn%,120,50,optn%,opt%)
�� optn%=1 � optn%=-1
�� opt%<>-1
�
Ȏ opt% �
�� 0:choice%=1
��_default_parameters
�� 1:choice%=2
��_own_parameters
��
�� choice%=1 � choice%=2
��
�ȗ � 100,600
��0,dbrown%
� 23,17,7,6,16;16;0;0;
@� 56,130:� "Click SELECT on a 'Run' with mouse, else 'Quit'"
� +6
 � option%=0 � 1
*9�_button(320+576*option%,16,50,mgrey%,dgrey%,vdgrey%)
4� colr%,op$
>
� 0,colr%
H	� op$
R
� option%
\� blue%,"     1: Run"
f� red%,"     2: Quit"
popt%=-1
zoptn%=-1
��
�optn%+=1
�+�_mouse(320+576*optn%,16,50,optn%,opt%)
�� optn%=1 � optn%=-1
�� opt%<>-1
�
Ȏ opt% �
�� 0
�+�populations(1,NumberOfCycles%):quit%=�
�� 1::quit%=�
��
�� opt%=0 � opt%=1
�� quit%
�� version% > &A4 �
 ș "Wimp_SetMode",modestore%
�
�
$5� ***********************************************
.� �error
8&ș "OS_Byte",129,0,&FF � ,version%
B� version% < &A5 �
L� 7
V�
` ș "Wimp_SetMode",modestore%
j�
t0�:�" at line ";�:�("Set DeskEdit$ERL "+�(�))
~�
�� �_default_parameters
�'n1%=1:n2%=1:n3%=1:n4%=1:n5%=1:n6%=1
�pr%=10:pb%=20
�!�0,pgrey%:ȓ Ȑ 0,0,1599,1142
��
�ȗ � 100,600
�� 23,17,7,6,16;16;0;0;
�K�0,vdgrey%:� 30,1120:� "1,   Default parameters for space/dead areas:-"
�� 23,17,7,6,8;16;0;0;
��0,dbrown%
�r� 30,1060:� "Each grey square is surrounded by 8 squares, each of which could be predator(red), prey(blue) or"
�r� 30,1020:�"empty(grey). To breed, the minimum number of red cells in this group of 8 must be 2, but may have"
Z� 30,980:�"to be greater if extra prey are needed to provide a viable breeding group."


�0,black%
`� 30,930:�"Minimum number of reds around grey space to allow breeding of more reds = ";n1%+1
�0,dbrown%:� 30,850
(e�"Successful breeding is unlikely if there are no prey to sustain the young predators. So one or"
25� 30,810:�"more of the spaces must contain prey."
<
�0,black%
FW� 30,750:�"Minimum number of blues around grey space to feed the young red= ";n2%+1
P�0,dbrown%:� 30,670
Zb�"To breed, the minimum number of blue cells in this group of 8 must be 2, but may have to be"
dT� 30,630:�"greater if extra prey are needed to provide a viable breeding group."
n
�0,black%
xa� 30,570:�"Minimum number of blues around grey space to allow breeding of more blues= ";n3%+1
��0,dbrown%:� 30,500
�h�"Successful breeding of prey(blues) is unlikely if there are predators(reds) around the grey space"
�o� 30,460:�"so one can specify the maximum number of reds in the 8 surrounding spaces that can be toterated"
�?� 30,420:�"that will still allow the prey(blues) to breed."
�
�
�0,black%
�e� 30,360:�"Maximum number of reds around grey space that still permit the blues to breed= ";n4%-1
��
��0,black%:� 90,220
�A�"Click 'Select' on the box to view default parameters for ";
�0�0,red%:�"red squares, ";:�0,black%:�"and ";
�,�0,blue%:�"blue squares";:�0,black%:�"."
�� +4
-�_button(752,64,70,mgrey%,dgrey%,vdgrey%)
� colr%,op$

� 0,colr%
"	� op$
,
� red%,""
6opt%=-1
@optn%=-1
J�
Toptn%+=1
^!�_mouse(752,64,70,optn%,opt%)
h� optn%=0 � optn%=-1
r� opt%<>-1
|� opt%=0
�!�0,pgrey%:ȓ Ȑ 0,0,1599,1140
�� 23,17,7,6,16;16;0;0;
�@�0,red%:� 30,1120:� "2,  Default parameters for red areas:-"
�� 23,17,7,6,8;16;0;0;
��0,dbrown%
�q� 30,1060:� "Each red square is surrounded by 8 squares, each of which could be predator(red), prey(blue) or"
�p� 30,1020:�"empty(grey). For the predators(reds) to survive they must have prey(blues) to eat. Here one can"
�p� 30,980:�"specify the mimimum number of surrounding prey in order to ensure that one can be caught to eat."
�
�0,black%
�]� 30,920:�"Minimum number of blues around red square to prevent red from starving = ";n5%
��0,dbrown%
�l� 30,840:� "Predators(reds) can die of other causes, - illness, disease, accidents, old age - so we can"
�i� 30,800:�"specify the average percentage of the red population that is likely to die in each cycle."

�0,black%
N� 30,740:�"Average percentage of 'accidental' red deaths per cycle = ";pr%
� 23,17,7,6,16;16;0;0;
&A�0,blue%:� 30,670:� "3,  Default parameters for blue areas:-"
0� 23,17,7,6,8;16;0;0;
:�0,dbrown%
Dn� 30,620:� "Prey(the blues) are likely to be killed if more than a specifiable number of predators(reds) "
N1� 30,580:�"are in the surrounding 8 squares."
X
�0,black%
bY� 30,530:�"Maximum number of reds around blue square without blue being eaten = ";n6%
l�0,dbrown%
vp� 30,440:� "Prey(blues) can die of other causes, - illness, disease, accidents, old age - so we can specify"
�k� 30,400:�"the average percentage of the blue population that may die in each cycle from these causes."
�
�0,black%
�O� 30,340:�"Average percentage of 'accidental' blue deaths per cycle = ";pb%
��
�� �_own_parameters
�!�0,pgrey%:ȓ Ȑ 0,0,1599,1142
��
�ȗ � 100,600
�� 23,17,7,6,16;16;0;0;
�>�0,vdgrey%:� 30,1120:� "1,  Processing space/dead areas:-"
�� 23,17,7,6,8;16;0;0;
��0,dbrown%
�r� 30,1060:� "Each grey square is surrounded by 8 squares, each of which could be predator(red), prey(blue) or"
r� 30,1020:�"empty(grey). To breed, the minimum number of red cells in this group of 8 must be 2, but may have"
_� 30,980:�"to be greater if extra predators are needed to provide a viable breeding group."
S� 30,940:�"Select this minimum number below by clicking Select on a box below."
 � +6
*� option%=0 � 3
49�_button(64+384*option%,832,50,mgrey%,dgrey%,vdgrey%)
>� colr%,op$
H
� 0,colr%
R	� op$
\
� option%
f"� red%,"     Minimum reds = 2"
p"� red%,"     Minimum reds = 3"
z"� red%,"     Minimum reds = 4"
�"� red%,"     Minimum reds = 5"
�opt%=-1
�optn%=-1
��
�optn%+=1
�+�_mouse(64+384*optn%,832,50,optn%,opt%)
�� optn%=3 � optn%=-1
�� opt%<>-1
�
Ȏ opt% �
�
� 0:n1%=1
�
� 1:n1%=2
�
� 2:n1%=3
�
� 3:n1%=4
	�
	� n1%>0 � n1%<5
	,�0,pgrey%:ȓ Ȑ 0,824,1599,120:�0,black%
	$`� 30,920:�"Minimum number of reds around grey space to allow breeding of more reds = ";n1%+1
	.�
	8�0,dbrown%:� 30,850
	Be�"Successful breeding is unlikely if there are no prey to sustain the young predators. So one or"
	L_� 30,810:�"more of the spaces must contain prey. You can select this minimum number below."
	V� +6
	`� option%=0 � 2
	j:�_button(144+464*option%,704,50,mgrey%,dgrey%,vdgrey%)
	t� colr%,op$
	~
� 0,colr%
	�	� op$
	�
� option%
	�$� blue%,"     Minimum blues = 1"
	�$� blue%,"     Minimum blues = 2"
	�$� blue%,"     Minimum blues = 3"
	�opt%=-1
	�optn%=-1
	��
	�optn%+=1
	�,�_mouse(144+464*optn%,704,50,optn%,opt%)
	�� optn%=2 � optn%=-1
	�� opt%<>-1

Ȏ opt% �


� 0:n2%=0

� 1:n2%=1

� 2:n2%=2
(�
2� n2%>-1 � n2%<3
<+�0,pgrey%:ȓ Ȑ 0,690,1599,80:�0,black%
FW� 30,750:�"Minimum number of blues around grey space to feed the young red= ";n2%+1
P�
Z�0,dbrown%:� 30,670
db�"To breed, the minimum number of blue cells in this group of 8 must be 2, but may have to be"
nT� 30,630:�"greater if extra prey are needed to provide a viable breeding group."
xS� 30,590:�"Select this minimum number below by clicking Select on a box below."
�� +6
�� option%=0 � 3
�9�_button(64+384*option%,480,50,mgrey%,dgrey%,vdgrey%)
�� colr%,op$
�
� 0,colr%
�	� op$
�
� option%
�$� blue%,"     Minimum blues = 2"
�$� blue%,"     Minimum blues = 3"
�$� blue%,"     Minimum blues = 4"
�$� blue%,"     Minimum blues = 5"
�opt%=-1
�optn%=-1
�
optn%+=1
+�_mouse(64+384*optn%,480,50,optn%,opt%)
"� optn%=3 � optn%=-1
,� opt%<>-1
6
Ȏ opt% �
@
� 0:n3%=1
J
� 1:n3%=2
T
� 2:n3%=3
^
� 3:n3%=4
h�
r� n3%>0 � n3%<5
|,�0,pgrey%:ȓ Ȑ 0,470,1599,122:�0,black%
�a� 30,560:�"Minimum number of blues around grey space to allow breeding of more blues= ";n3%+1
��
��0,dbrown%:� 30,500
�h�"Successful breeding of prey(blues) is unlikely if there are predators(reds) around the grey space"
�o� 30,460:�"so one can specify the maximum number of reds in the 8 surrounding spaces that can be toterated"
�?� 30,420:�"that will still allow the prey(blues) to breed."
�� +6
�� option%=0 � 2
�:�_button(144+464*option%,320,50,mgrey%,dgrey%,vdgrey%)
�� colr%,op$
�
� 0,colr%
�	� op$
�
� option%
"� red%,"     Maximum reds = 0"
"� red%,"     Maximum reds = 1"
"� red%,"     Maximum reds = 2"
&opt%=-1
0optn%=-1
:�
Doptn%+=1
N,�_mouse(144+464*optn%,320,50,optn%,opt%)
X� optn%=2 � optn%=-1
b� opt%<>-1
l
Ȏ opt% �
v
� 0:n4%=1
�
� 1:n4%=2
�
� 2:n4%=3
��
�� n4%>0 � n4%<4
�+�0,pgrey%:ȓ Ȑ 0,305,1599,80:�0,black%
�e� 30,360:�"Maximum number of reds around grey space that still permit the blues to breed= ";n4%-1
��
��0,black%:� 90,220
�B�"Click 'Select' on the box below to specify parameters for ";
�0�0,red%:�"red squares, ";:�0,black%:�"and ";
�,�0,blue%:�"blue squares";:�0,black%:�"."
�� +4
�-�_button(752,64,70,mgrey%,dgrey%,vdgrey%)

� colr%,op$


� 0,colr%

	� op$

 
� red%,""

*opt%=-1

4optn%=-1

>�

Hoptn%+=1

R!�_mouse(752,64,70,optn%,opt%)

\� optn%=0 � optn%=-1

f� opt%<>-1

p� opt%=0

z!�0,pgrey%:ȓ Ȑ 0,0,1599,1140

��

�ȗ � 100,600

�� 23,17,7,6,16;16;0;0;

�4�0,red%:� 30,1120:� "2,  Processing red areas:-"

�� 23,17,7,6,8;16;0;0;

��0,dbrown%

�q� 30,1060:� "Each red square is surrounded by 8 squares, each of which could be predator(red), prey(blue) or"

�p� 30,1020:�"empty(grey). For the predators(reds) to survive they must have prey(blues) to eat. Here one can"

�p� 30,980:�"specify the mimimum number of surrounding prey in order to ensure that one can be caught to eat."

�S� 30,940:�"Select this minimum number below by clicking Select on a box below."

�� +6

�� option%=0 � 3

�9�_button(64+384*option%,832,50,mgrey%,dgrey%,vdgrey%)
� colr%,op$

� 0,colr%
	� op$
$
� option%
.$� blue%,"     Minimum blues = 1"
8$� blue%,"     Minimum blues = 2"
B$� blue%,"     Minimum blues = 3"
L$� blue%,"     Minimum blues = 4"
Vopt%=-1
`optn%=-1
j�
toptn%+=1
~+�_mouse(64+384*optn%,832,50,optn%,opt%)
�� optn%=3 � optn%=-1
�� opt%<>-1
�
Ȏ opt% �
�
� 0:n5%=1
�
� 1:n5%=2
�
� 2:n5%=3
�
� 3:n5%=4
��
�� n5%>0 � n5%<5
�,�0,pgrey%:ȓ Ȑ 0,824,1599,120:�0,black%
�]� 30,920:�"Minimum number of blues around red square to prevent red from starving = ";n5%
��
ȗ � 100,600

�0,dbrown%
l� 30,840:� "Predators(reds) can die of other causes, - illness, disease, accidents, old age - so we can"
i� 30,800:�"specify the average percentage of the red population that is likely to die in each cycle."
(_� 30,760:�"Choose this percentage by clicking with the mouse Select button on a box below."
2� +6
<� option%=0 � 5
F9�_button(80+256*option%,640,50,mgrey%,dgrey%,vdgrey%)
P� colr%,op$
Z
� 0,colr%
d	� op$
n
� option%
x� red%,"      10%"
�� red%,"      20%"
�� red%,"      30%"
�� red%,"      40%"
�� red%,"      50%"
�� red%,"      60%"
�opt%=-1
�optn%=-1
��
�optn%+=1
�+�_mouse(80+256*optn%,640,50,optn%,opt%)
�� optn%=5 � optn%=-1
�� opt%<>-1
�
Ȏ opt% �
� 0:pr%=10
� 1:pr%=20
� 2:pr%=30
"� 3:pr%=40
,� 4:pr%=50
6� 5:pr%=60
@�
J� pr%>0 � pr%<70
T,�0,pgrey%:ȓ Ȑ 0,630,1599,135:�0,black%
^N� 30,740:�"Average percentage of 'accidental' red deaths per cycle = ";pr%
h�
rȗ � 100,600
|� 23,17,7,6,16;16;0;0;
�5�0,blue%:� 30,670:� "3,  Processing blue areas:-"
�� 23,17,7,6,8;16;0;0;
��0,dbrown%
�n� 30,620:� "Prey(the blues) are likely to be killed if more than a specifiable number of predators(reds) "
�1� 30,580:�"are in the surrounding 8 squares."
�F� 30,540:�"Choose this minimum number by clicking on a box below."
�� +6
�� option%=0 � 3
�9�_button(64+384*option%,432,50,mgrey%,dgrey%,vdgrey%)
�� colr%,op$
�
� 0,colr%
�	� op$
�
� option%
"� red%,"     Maximum reds = 0"
"� red%,"     Maximum reds = 1"
"� red%,"     Maximum reds = 2"
&"� red%,"     Maximum reds = 3"
0opt%=-1
:optn%=-1
D�
Noptn%+=1
X+�_mouse(64+384*optn%,432,50,optn%,opt%)
b� optn%=3 � optn%=-1
l� opt%<>-1
v
Ȏ opt% �
�
� 0:n6%=0
�
� 1:n6%=1
�
� 2:n6%=2
�
� 3:n6%=3
��
�� n6%>-1 � n6%<4
�,�0,pgrey%:ȓ Ȑ 0,425,1599,120:�0,black%
�Y� 30,530:�"Maximum number of reds around blue square without blue being eaten = ";n6%
��
��0,dbrown%
�p� 30,440:� "Prey(blues) can die of other causes, - illness, disease, accidents, old age - so we can specify"
�k� 30,400:�"the average percentage of the blue population that may die in each cycle from these causes."
�_� 30,360:�"Choose this percentage by clicking with the mouse Select button on a box below."
� +6
� option%=0 � 5
9�_button(80+256*option%,240,50,mgrey%,dgrey%,vdgrey%)
 � colr%,op$
*
� 0,colr%
4	� op$
>
� option%
H� blue%,"      10%"
R� blue%,"      20%"
\� blue%,"      30%"
f� blue%,"      40%"
p� blue%,"      50%"
z� blue%,"      60%"
�opt%=-1
�optn%=-1
��
�optn%+=1
�+�_mouse(80+256*optn%,240,50,optn%,opt%)
�� optn%=5 � optn%=-1
�� opt%<>-1
�
Ȏ opt% �
�� 0:pb%=10
�� 1:pb%=20
�� 2:pb%=30
�� 3:pb%=40
�� 4:pb%=50
� 5:pb%=60
�
� pb%>0 � pb%<70
$,�0,pgrey%:ȓ Ȑ 0,230,1599,135:�0,black%
.O� 30,340:�"Average percentage of 'accidental' blue deaths per cycle = ";pb%
8�
B� �tut_com_colours
Lpgrey%     =  0
Vdbrown%    =  1
`blue%      =  4
jred%       =  5
twhite%     =  7
~black%     =  8
�mgrey%     =  9
�dgrey%     = 10
�vdgrey%    = 11
�lbrown%    = 12
�mgreen%    = 14
�� blue%,        0,  0,255
�� red%,       255,  0,  0
�� black%,       0,  0,  0
�� white%,     255,255,255
�� pgrey%,     200,200,200
�� mgrey%,     170,170,170
�� dgrey%,     140,140,140
� vdgrey%,     70, 70, 70

� lbrown%,    220,100, 30
� mgreen%,      0,120,  0
� dbrown%,    120, 60, 60
(� 15,         112,255,112
2�
<G� �head3(hd$,xs%,ys%,vdx%,vdy%,xshift%,yshift%,ulcol%,drcol%,tcol%)
F� 23,17,7,6,vdx%;vdy%;0;0;
P-�0,ulcol%:� xs%-xshift%,ys%+yshift%:� hd$
Z-�0,drcol%:� xs%+xshift%,ys%-yshift%:� hd$
d�0,tcol%:� xs%,ys%:� hd$
n�
x� �tutborder(x%,y%,w%,h%)
�gcol%=8:dx%=0
�� 0,pgrey%
�+ȓ Ȑ x% + dx%,y%+dx%,w%-2*dx%,h%-2*dx%
�dx% +=4
��
�
gcol% +=1
�
� 0,gcol%
�+ȓ Ȑ x% + dx%,y%+dx%,w%-2*dx%,h%-2*dx%
�dx% +=4
�� gcol%=11
��
�gcol% -=1:dx% +=4
�
� 0,gcol%
+ȓ Ȑ x% + dx%,y%+dx%,w%-2*dx%,h%-2*dx%

� gcol%=9
dx% +=4:� 0,pgrey%
"+ȓ Ȑ x% + dx%,y%+dx%,w%-2*dx%,h%-2*dx%
,� 23,17,7,6,16;16;0;0;
6�
@ � �paging(pages%,� nowpage%)
J� +6
T� option%=0 � 2
^8�_button(80+544*option%,32,52,mgrey%,dgrey%,vdgrey%)
h� colr%,op$
r
� 0,colr%
|	� op$
�
� option%
�� col_menu%, "   Menu"
� � col_back%, "   <<<<< Back"
�� col_on%,   "   On >>>>>"
�opt%=-1
�optn%=-1
��
�optn%+=1
�*�_mouse(80+544*optn%,32,52,optn%,opt%)
�� optn%=2 � optn%=-1
�� opt%<>-1
�
Ȏ opt% �
�� 0
 � leave loop, return to menu
� 1
� nowpage%>1 � nowpage%-=1
&� 2
0#� nowpage%<pages% � nowpage%+=1
:�
Dȗ ȓ 0,0,1599,1199
N�
X$� �populations(nowpage%,cycles%)
b� pages%
l!� col_menu%,col_back%,col_on%
v�tut_com_colours
��
�pages%=2:col_menu%=lbrown%
��
�#col_back%=black%:col_on%=black%
�&� nowpage%=1      col_back%=mgrey%
�&� nowpage%=pages% col_on%  =mgrey%
�Ȏ nowpage% �
�,� 1:�pops_page1(pages%,nowpage%,cycles%)
�$� 2:�pops_page2(pages%,nowpage%)
��
��paging(pages%,nowpage%)
�)� opt%=0:� leave loop, return to menu
��
*� �pops_page1(pages%,nowpage%,cycles%)
*� ox%,oy%,lenx%,leny%,divs%,dummy,key$
� j%,k%
 �tutborder(0,120,1599,1079)
*�tutborder(0,0,1599,124)
4�23,17,7,6,8;16;0;0;
>�0,blue%:� 74,78
Hc�"Hold down key ""S"" to stop cycles(max.=48),  then click 'On' for graph or 'Menu' to restart"
Rȗ � 1100,200
\�23,17,7,6,8;8;0;0;
f9�0,black%:� 50,1160:�"Cycle   Reds    Blues   Spaces"
p�23,17,7,6,8;8;0;0;
z5ox%=557:oy%=1160:lenx%=1000:leny%=lenx%:divs%=100
�
�0,mgrey%
�� i%=0 � divs%
�*� ox%+i%*lenx%/divs%,oy%:� BY 0,-leny%
�� i%
�� i%=0 � divs%
�)� ox%,oy%-i%*leny%/divs%:� BY lenx%,0
�� i%
�/A()=0:redpop%=0:bluepop%=0:dead%=0:cycle%=0
�temp()=0:totals()=0
�dummy=�(-�)
�� j%=0 � divs%-1
�� k%=0 � divs%-1
�cell%=�(300)
(� cell%>=250 A(j%,k%)=10:� red cells
3� cell%>=50 � cell%<250 A(j%,k%)=1:� blue cells
.� cell%<50 A(j%,k%)=0:� dead or grey cells
$� A(j%,k%)=10 redpop%+=1
.� A(j%,k%)=1 bluepop%+=1
8� A(j%,k%)=0 dead%+=1
B� k%
L� j%
V>totals(0,0)=redpop%:totals(0,1)=bluepop%:totals(0,2)=dead%
`
�0,black%
jF@%=&00000505:ypos%=1130:xcycle%=20:xred%=163:xblue%=295:xdead%=430
t1� xcycle%,ypos%:�cycle%:�xred%,ypos%:�redpop%
~0�xblue%,ypos%:�bluepop%:�xdead%,ypos%:�dead%
�� j%=0 � divs%-1
�� k%=0 � divs%-1
�� A(j%,k%) = 10 �
��0,red%
�5ȏ Ȑ ox%+k%*lenx%/divs%+5,oy%-j%*leny%/divs%-5,4
��
�� A(j%,k%) = 1 �
��0,blue%
�5ȏ Ȑ ox%+k%*lenx%/divs%+5,oy%-j%*leny%/divs%-5,4
��
�� A(j%,k%) = 0 �
�
�0,dgrey%
5ȏ Ȑ ox%+k%*lenx%/divs%+5,oy%-j%*leny%/divs%-5,4

�
� k%
� j%
(cycle%=1:key$="G"
2"ȕ cycle%<=cycles% � key$<>"S"
< redpop%=0:bluepop%=0:dead%=0
F
key$=�(5)
P*FX15,1
Z� j%=0 � divs%-1
d� k%=0 � divs%-1
n
Ȏ � �
xB� j%<>0 � k%<>0 � j%<>divs%-1 � k%<>divs%-1:� all except edges
�hsum%=A(j%-1,k%-1)+A(j%-1,k%)+A(j%-1,k%+1)+A(j%,k%-1)+A(j%,k%+1)+A(j%+1,k%-1)+A(j%+1,k%)+A(j%+1,k%+1)
� � j%=0 � k%<>0 � k%<>divs%-1
�fsum%=A(divs%-1,k%-1)+A(divs%-1,k%)+A(divs%-1,k%+1)+A(0,k%-1)+A(0,k%+1)+A(1,k%-1)+A(1,k%)+A(1,k%+1)
�&� j%=divs%-1 � k%<>0 � k%<>divs%-1
�rsum%=A(divs%-2,k%-1)+A(divs%-2,k%)+A(divs%-2,k%+1)+A(divs%-1,k%-1)+A(divs%-1,k%+1)+A(0,k%-1)+A(0,k%)+A(0,k%+1)
� � k%=0 � j%<>0 � j%<>divs%-1
�fsum%=A(j%-1,divs%-1)+A(j%-1,0)+A(j%-1,1)+A(j%,divs%-1)+A(j%,1)+A(j%+1,divs%-1)+A(j%+1,0)+A(j%+1,1)
�&� k%=divs%-1 � j%<>0 � j%<>divs%-1
�rsum%=A(j%-1,divs%-2)+A(j%-1,divs%-1)+A(j%-1,0)+A(j%,divs%-2)+A(j%,0)+A(j%+1,divs%-2)+A(j%+1,divs%-1)+A(j%+1,0)
�� j%=0 � k%=0
�dsum%=A(divs%-1,divs%-1)+A(divs%-1,0)+A(divs%-1,1)+A(0,divs%-1)+A(0,1)+A(1,divs%-1)+A(1,0)+A(1,1)
�� j%=0 � k%=divs%-1
�psum%=A(divs%-1,divs%-2)+A(divs%-1,divs%-1)+A(divs%-1,0)+A(0,divs%-2)+A(0,0)+A(1,divs%-2)+A(1,divs%-1)+A(1,0)
� j%=divs%-1 � k%=0
psum%=A(divs%-2,divs%-1)+A(divs%-2,0)+A(divs%-2,1)+A(divs%-1,divs%-1)+A(divs%-1,1)+A(0,divs%-1)+A(0,0)+A(0,1)
� j%=divs%-1 � k%=divs%-1
"|sum%=A(divs%-2,divs%-2)+A(divs%-2,divs%-1)+A(divs%-2,0)+A(divs%-1,divs%-2)+A(divs%-1,0)+A(0,divs%-2)+A(0,divs%-1)+A(0,0)
,�
6/redsum%=�(sum%/10):bluesum%=sum%-10*redsum%
@deadsum%=8-redsum%-bluesum%
J� dead cell processing-
T� A(j%,k%)=0 �
^temp(j%,k%)=0
h/� redsum%>n1% � bluesum%>n2% temp(j%,k%)=10
r.� bluesum%>n3% � redsum%<n4% temp(j%,k%)=1
|�
�� red cell processing-
�� A(j%,k%)=10 �
�temp(j%,k%)=10
� � bluesum%<n5% temp(j%,k%)=0
�0dummy=�(-�):� �(100)>(100-pr%) temp(j%,k%)=0
��
�� blue cell processing-
�� A(j%,k%)=1 �
�temp(j%,k%)=1
�� redsum%>n6% temp(j%,k%)=0
�0dummy=�(-�):� �(100)>(100-pb%) temp(j%,k%)=0
��
�� k%
� j%
A()=temp():temp()=0
� j%=0 � divs%-1
&� k%=0 � divs%-1
0� A(j%,k%) = 10 �
:�0,red%:redpop%+=1
D5ȏ Ȑ ox%+k%*lenx%/divs%+5,oy%-j%*leny%/divs%-5,4
N�
X� A(j%,k%) = 1 �
b�0,blue%:bluepop%+=1
l5ȏ Ȑ ox%+k%*lenx%/divs%+5,oy%-j%*leny%/divs%-5,4
v�
�� A(j%,k%) = 0 �
��0,dgrey%:dead%+=1
�5ȏ Ȑ ox%+k%*lenx%/divs%+5,oy%-j%*leny%/divs%-5,4
��
�� k%
�� j%
�/�0,black%:� xcycle%,ypos%-20*cycle%:�cycle%
�#�xred%,ypos%-20*cycle%:�redpop%
�%�xblue%,ypos%-20*cycle%:�bluepop%
�"�xdead%,ypos%-20*cycle%:�dead%
�totals(cycle%,0)=redpop%
�totals(cycle%,1)=bluepop%
�totals(cycle%,2)=dead%

cycle%+=1
!key$=�(5):� key$="s" key$="S"
*FX15,1
 �
**FX15,1
4cyclesrun%=cycle%-1
>@%=&0000090A
H�tutborder(0,0,1599,124)
R�
\"� �pops_page2(pages%,nowpage%)
f� xo%,yo%,xl%,yl%
p�tutborder(0,120,1599,1079)
z�tutborder(0,0,1599,124)
�N�head3("CRUNCHERS AND MUNCHERS",450,1160,16,16,2,2,white%,dbrown%,lbrown%)
�ȗ � 1100,200
�� 0,black%
�/� 1180,190:� "Page ";nowpage%;" of ";pages%
�$xo%=320:yo%=280:xl%=1200:yl%=700
�#�0,mgrey%:ȓ Ȑ xo%,yo%,xl%,yl%
�
�0,white%
�� i%=0 � 50
�"� xo%+i%*xl%/50,yo%:� BY 0,yl%
�� i%
�� i%=0 � 50
�"� xo%,yo%+i%*yl%/50:� BY xl%,0
�� i%
-�0,black%:� xo%,yo%:� BY xl%,0:� BY 0,yl%
� BY -xl%,0:� BY 0,-yl%
�23,17,7,6,8;8;0;0;
$@%=&00000902
.� i%=0 � 50 � 10
8"� xo%+i%*xl%/50,yo%:� BY 0,yl%
B"� xo%+i%*xl%/50-15,yo%-12:� i%
L� i%
V@%=&00000905
`� i%=0 � 50 � 10
j"� xo%,yo%+i%*yl%/50:� BY xl%,0
t%� xo%-90,yo%+i%*yl%/50+5:� 200*i%
~� i%
�@%=&0000090A
��23,17,7,6,8;16;0;0;
�� 880,250:�"Cycle"
��50,640:�"Populations"
�8�0,dgrey%:� xo%+60,yo%+yl%+80:�"No creatures_______"
�4�0,red%:� xo%+510,yo%+yl%+80:�"Predators_______"
�0�0,blue%:� xo%+960,yo%+yl%+80:�"Prey_______"
�� i%=0 � cyclesrun%-1
�6�0,red%:� xo%+i%*xl%/50,yo%+totals(i%,0)*yl%/10000
�4� xo%+(i%+1)*xl%/50,yo%+totals(i%+1,0)*yl%/10000
�7�0,blue%:� xo%+i%*xl%/50,yo%+totals(i%,1)*yl%/10000
�4� xo%+(i%+1)*xl%/50,yo%+totals(i%+1,1)*yl%/10000
9�0,vdgrey%:� xo%+i%*xl%/50,yo%+totals(i%,2)*yl%/10000

4� xo%+(i%+1)*xl%/50,yo%+totals(i%+1,2)*yl%/10000
� i%

�0,black%
(�tutborder(0,0,1599,124)
2�
<@� �_button(xpos,ypos,height,colcentre%,colborder%,col_line%)
F� corner,border,len,xp,yp
P� ht,ln,count%
Zlen=4*height/3
d
ht=height
n
ln=len
xxp=xpos
�yp=ypos
�corner=height/5
�border=height/10
�� count% = 1 � 4
�Ȏ count% �
�� 1
�� 0,colborder%
�� 2
�� 0,colcentre%
�� 3
�� 0,col_line%
�xpos=xp
�ypos=yp

height=ht

len=ln
�
"� xpos+corner,ypos
,� 1,len-corner,0
6� BY corner,corner
@� 1,0,height-corner
J� BY -corner,corner
T� 1,-len+corner,0
^� BY -corner,-corner
h� 1,0,-height+corner
r� BY corner,0
|� BY -corner,0
�� 161,corner,-corner
�� BY len-corner,corner
�� BY 0,-corner
�� 161,corner,corner
�� BY -corner,height-corner
�� BY corner,0
�� 161,-corner,corner
�� BY -len+corner,-corner
�� BY 0,corner
�� 161,-corner,-corner
�Ȏ count% �
�� 1
�"� &8D,xpos+len/2,ypos+height/2
 � 2
 "� &8D,xpos+len/2,ypos+height/2
 �
 &xpos=xpos+border
 0ypos=ypos+border
 :height=height-2*border
 Dlen=len-2*border
 N� count%
 X�
 b.� �_mouse(xpos,ypos,height,option%,� opt%)
 l� len,x,y,buttons%
 vlen=4*height/3
 �ȗ x,y,buttons%
 �� buttons%=4 �
 �� x>xpos � x<xpos+len �
 �� y>ypos � y<ypos+height �
 �opt%=option%
 �
� opt%=-1
 ��
 ��
 ��
 ��
 �
�

00000000  0d 00 0a 2b f4 20 43 72  75 6e 63 68 65 72 73 20  |...+. Crunchers |
00000010  61 6e 64 20 4d 75 6e 63  68 65 72 73 2e 20 43 2e  |and Munchers. C.|
00000020  20 44 2e 20 4b 65 6e 6e  65 64 79 0d 00 14 11 ee  | D. Kennedy.....|
00000030  20 85 20 3a f2 65 72 72  6f 72 3a e0 0d 00 1e 26  | . :.error:....&|
00000040  c8 99 20 22 4f 53 5f 42  79 74 65 22 2c 31 32 39  |.. "OS_Byte",129|
00000050  2c 30 2c 26 46 46 20 b8  20 2c 76 65 72 73 69 6f  |,0,&FF . ,versio|
00000060  6e 25 0d 00 28 16 e7 20  76 65 72 73 69 6f 6e 25  |n%..(.. version%|
00000070  20 3c 20 26 41 35 20 8c  0d 00 32 24 eb 20 33 31  | < &A5 ...2$. 31|
00000080  20 3a f4 20 52 69 73 63  4f 73 20 76 65 72 73 69  | :. RiscOs versi|
00000090  6f 6e 20 75 70 20 74 6f  20 33 2e 31 0d 00 3c 05  |on up to 3.1..<.|
000000a0  cc 0d 00 46 25 6d 6f 64  65 25 3d eb 3a 6d 6f 64  |...F%mode%=.:mod|
000000b0  65 6c 65 6e 25 3d 32 34  3a 70 74 72 25 3d 6d 6f  |elen%=24:ptr%=mo|
000000c0  64 65 25 2b 32 30 0d 00  50 10 c8 95 20 21 70 74  |de%+20..P... !pt|
000000d0  72 25 3c 3e 2d 31 0d 00  5a 17 70 74 72 25 2b 3d  |r%<>-1..Z.ptr%+=|
000000e0  34 3a 6d 6f 64 65 6c 65  6e 25 2b 3d 34 0d 00 64  |4:modelen%+=4..d|
000000f0  05 ce 0d 00 6e 19 de 20  6d 6f 64 65 73 74 6f 72  |....n.. modestor|
00000100  65 25 20 6d 6f 64 65 6c  65 6e 25 0d 00 78 1b e3  |e% modelen%..x..|
00000110  20 69 25 3d 30 20 b8 20  6d 6f 64 65 6c 65 6e 25  | i%=0 . modelen%|
00000120  2d 34 20 88 20 34 0d 00  82 1a 6d 6f 64 65 73 74  |-4 . 4....modest|
00000130  6f 72 65 25 21 69 25 3d  6d 6f 64 65 25 21 69 25  |ore%!i%=mode%!i%|
00000140  0d 00 8c 08 ed 20 69 25  0d 00 96 1d eb 20 22 58  |..... i%..... "X|
00000150  38 30 30 2c 59 36 30 30  2c 43 31 36 2c 45 58 31  |800,Y600,C16,EX1|
00000160  2c 45 59 31 22 0d 00 a0  05 cd 0d 00 aa 06 ef 35  |,EY1"..........5|
00000170  0d 00 b4 14 f2 74 75 74  5f 63 6f 6d 5f 63 6f 6c  |.....tut_com_col|
00000180  6f 75 72 73 0d 00 be 0f  e6 30 2c 77 68 69 74 65  |ours.....0,white|
00000190  25 3a da 0d 00 c8 08 c8  97 20 ee 0d 00 d2 16 4e  |%:....... .....N|
000001a0  75 6d 62 65 72 4f 66 43  79 63 6c 65 73 25 3d 34  |umberOfCycles%=4|
000001b0  38 0d 00 dc 0d 64 69 76  73 25 3d 31 30 30 0d 00  |8....divs%=100..|
000001c0  e6 3b de 20 41 28 64 69  76 73 25 2d 31 2c 64 69  |.;. A(divs%-1,di|
000001d0  76 73 25 2d 31 29 2c 74  65 6d 70 28 64 69 76 73  |vs%-1),temp(divs|
000001e0  25 2d 31 2c 64 69 76 73  25 2d 31 29 2c 74 6f 74  |%-1,divs%-1),tot|
000001f0  61 6c 73 28 35 30 2c 32  29 0d 00 f0 08 c8 97 20  |als(50,2)...... |
00000200  ee 0d 00 fa 05 f5 0d 01  04 05 f5 0d 01 0e 12 e6  |................|
00000210  20 70 67 72 65 79 25 2b  31 32 38 3a da 0d 01 18  | pgrey%+128:....|
00000220  4e f2 68 65 61 64 33 28  22 43 52 55 4e 43 48 45  |N.head3("CRUNCHE|
00000230  52 53 20 41 4e 44 20 4d  55 4e 43 48 45 52 53 22  |RS AND MUNCHERS"|
00000240  2c 34 35 30 2c 31 31 38  30 2c 31 36 2c 31 36 2c  |,450,1180,16,16,|
00000250  32 2c 32 2c 77 68 69 74  65 25 2c 64 62 72 6f 77  |2,2,white%,dbrow|
00000260  6e 25 2c 6c 62 72 6f 77  6e 25 29 0d 01 22 10 c8  |n%,lbrown%).."..|
00000270  97 20 b8 20 31 30 30 2c  36 30 30 0d 01 2c 19 ef  |. . 100,600..,..|
00000280  20 32 33 2c 31 37 2c 37  2c 36 2c 38 3b 31 36 3b  | 23,17,7,6,8;16;|
00000290  30 3b 30 3b 0d 01 36 0e  e6 30 2c 64 62 72 6f 77  |0;0;..6..0,dbrow|
000002a0  6e 25 0d 01 40 6f ec 20  35 30 2c 31 31 30 30 3a  |n%..@o. 50,1100:|
000002b0  f1 22 49 6d 61 67 69 6e  65 20 61 6e 20 61 72 65  |."Imagine an are|
000002c0  61 20 6f 66 20 6c 61 6e  64 20 69 6e 20 77 68 69  |a of land in whi|
000002d0  63 68 20 74 68 65 72 65  20 61 72 65 20 70 72 65  |ch there are pre|
000002e0  79 28 62 6c 75 65 29 20  77 68 69 63 68 20 6c 69  |y(blue) which li|
000002f0  76 65 20 6f 6e 20 76 65  67 65 74 61 74 69 6f 6e  |ve on vegetation|
00000300  2c 20 70 72 65 64 61 74  6f 72 73 28 72 65 64 29  |, predators(red)|
00000310  22 0d 01 4a 6e ec 20 35  30 2c 31 30 36 30 3a f1  |"..Jn. 50,1060:.|
00000320  22 77 68 69 63 68 20 6c  69 76 65 20 6f 6e 20 74  |"which live on t|
00000330  68 65 20 70 72 65 79 2c  20 61 6e 64 20 65 6d 70  |he prey, and emp|
00000340  74 79 20 67 72 61 73 73  79 20 73 70 61 63 65 73  |ty grassy spaces|
00000350  2e 20 50 72 65 79 20 61  6e 64 20 70 72 65 64 61  |. Prey and preda|
00000360  74 6f 72 73 20 61 72 65  20 62 69 73 65 78 75 61  |tors are bisexua|
00000370  6c 20 61 6e 64 20 62 72  65 65 64 69 6e 67 22 0d  |l and breeding".|
00000380  01 54 6b ec 20 35 30 2c  31 30 32 30 3a f1 22 64  |.Tk. 50,1020:."d|
00000390  6f 65 73 20 6e 6f 74 20  6f 63 63 75 72 20 66 6f  |oes not occur fo|
000003a0  72 20 61 6e 69 6d 61 6c  73 20 6f 6e 20 74 68 65  |r animals on the|
000003b0  72 65 20 6f 77 6e 2e 20  46 6f 72 20 73 69 6d 70  |re own. For simp|
000003c0  6c 69 63 69 74 79 20 61  6c 6c 20 61 6e 69 6d 61  |licity all anima|
000003d0  6c 73 20 6d 61 79 20 62  65 20 6d 61 6c 65 20 6f  |ls may be male o|
000003e0  72 20 66 65 6d 61 6c 65  2e 22 0d 01 5e 6e ec 20  |r female."..^n. |
000003f0  35 30 2c 39 36 30 3a f1  22 50 72 65 64 61 74 6f  |50,960:."Predato|
00000400  72 73 2c 20 70 72 65 79  20 61 6e 64 20 65 6d 70  |rs, prey and emp|
00000410  74 79 20 73 70 61 63 65  73 20 61 72 65 20 72 65  |ty spaces are re|
00000420  70 72 65 73 65 6e 74 65  64 20 62 79 20 72 65 64  |presented by red|
00000430  2c 20 62 6c 75 65 20 61  6e 64 20 67 72 65 79 20  |, blue and grey |
00000440  73 71 75 61 72 65 73 20  72 65 73 70 65 63 74 69  |squares respecti|
00000450  76 65 6c 79 20 69 6e 22  0d 01 68 6c ec 20 35 30  |vely in"..hl. 50|
00000460  2c 39 32 30 3a f1 22 69  6e 20 61 20 31 30 30 20  |,920:."in a 100 |
00000470  78 20 31 30 30 20 6d 61  74 72 69 78 2e 20 45 61  |x 100 matrix. Ea|
00000480  63 68 20 6c 69 74 74 6c  65 20 73 71 75 61 72 65  |ch little square|
00000490  28 61 6e 69 6d 61 6c 20  65 74 63 29 20 69 73 20  |(animal etc) is |
000004a0  73 75 72 72 6f 75 6e 64  65 64 20 62 79 20 38 20  |surrounded by 8 |
000004b0  6f 74 68 65 72 20 73 71  75 61 72 65 73 2e 20 57  |other squares. W|
000004c0  68 61 74 22 0d 01 72 65  ec 20 35 30 2c 38 38 30  |hat"..re. 50,880|
000004d0  3a f1 22 68 61 70 70 65  6e 73 20 74 6f 20 74 68  |:."happens to th|
000004e0  69 73 20 73 71 75 61 72  65 20 64 65 70 65 6e 64  |is square depend|
000004f0  73 20 6f 6e 20 74 68 65  20 6e 75 6d 62 65 72 73  |s on the numbers|
00000500  20 6f 66 20 73 71 75 61  72 65 73 20 6f 66 20 65  | of squares of e|
00000510  61 63 68 20 63 6f 6c 6f  75 72 20 61 6d 6f 6e 67  |ach colour among|
00000520  20 74 68 69 73 20 38 2e  22 0d 01 7c 69 ec 20 35  | this 8."..|i. 5|
00000530  30 2c 38 32 30 3a f1 22  54 68 65 20 31 30 30 20  |0,820:."The 100 |
00000540  78 20 31 30 30 20 6d 61  74 72 69 78 20 69 73 20  |x 100 matrix is |
00000550  69 6d 61 67 69 6e 65 64  20 74 6f 20 62 65 20 73  |imagined to be s|
00000560  75 72 72 6f 75 6e 64 65  64 20 20 62 79 20 38 20  |urrounded  by 8 |
00000570  69 64 65 6e 74 69 63 61  6c 20 6d 61 74 72 69 63  |identical matric|
00000580  65 73 2c 20 61 62 6f 76  65 2c 20 62 65 6c 6f 77  |es, above, below|
00000590  2c 22 0d 01 86 69 ec 20  35 30 2c 37 38 30 3a f1  |,"...i. 50,780:.|
000005a0  22 65 69 74 68 65 72 20  73 69 64 65 2c 20 61 6e  |"either side, an|
000005b0  64 20 61 74 20 74 68 65  20 34 20 63 6f 72 6e 65  |d at the 4 corne|
000005c0  72 73 2e 20 53 6f 20 74  68 65 20 72 75 6c 65 73  |rs. So the rules|
000005d0  20 66 6f 72 20 74 68 65  20 65 64 67 65 73 20 61  | for the edges a|
000005e0  6e 64 20 63 6f 72 6e 65  72 73 20 61 72 65 20 74  |nd corners are t|
000005f0  68 65 20 73 61 6d 65 20  61 73 22 0d 01 90 1b ec  |he same as".....|
00000600  20 35 30 2c 37 34 30 3a  f1 22 74 68 65 20 6d 69  | 50,740:."the mi|
00000610  64 64 6c 65 2e 22 0d 01  9a 6f ec 20 35 30 2c 36  |ddle."...o. 50,6|
00000620  38 30 3a f1 22 54 68 65  20 70 61 72 61 6d 65 74  |80:."The paramet|
00000630  65 72 73 20 74 68 61 74  20 64 65 74 65 72 6d 69  |ers that determi|
00000640  6e 65 20 62 65 68 61 76  69 6f 75 72 20 61 72 65  |ne behaviour are|
00000650  20 65 78 70 6c 61 69 6e  65 64 20 61 73 20 79 6f  | explained as yo|
00000660  75 20 67 6f 20 61 6c 6f  6e 67 2e 20 54 72 79 20  |u go along. Try |
00000670  74 68 65 20 64 65 66 61  75 6c 74 20 73 65 74 74  |the default sett|
00000680  69 6e 67 73 22 0d 01 a4  6f ec 20 35 30 2c 36 34  |ings"...o. 50,64|
00000690  30 3a f1 22 66 69 72 73  74 20 74 6f 20 67 65 74  |0:."first to get|
000006a0  20 74 68 65 20 66 65 65  6c 20 6f 66 20 74 68 65  | the feel of the|
000006b0  20 74 68 69 6e 67 2e 20  57 68 65 6e 20 74 68 69  | thing. When thi|
000006c0  6e 67 73 20 68 61 76 65  20 73 65 74 74 6c 65 64  |ngs have settled|
000006d0  20 64 6f 77 6e 2c 20 79  6f 75 20 73 68 6f 75 6c  | down, you shoul|
000006e0  64 20 73 65 65 20 74 68  65 20 70 72 65 64 61 74  |d see the predat|
000006f0  6f 72 73 22 0d 01 ae 6c  ec 20 35 30 2c 36 30 30  |ors"...l. 50,600|
00000700  3a f1 22 73 75 72 76 69  76 69 6e 67 20 71 75 69  |:."surviving qui|
00000710  74 65 20 77 65 6c 6c 20  61 74 20 74 68 65 20 65  |te well at the e|
00000720  64 67 65 73 20 6f 66 20  68 65 72 64 73 20 6f 66  |dges of herds of|
00000730  20 70 72 65 79 2e 20 49  66 20 79 6f 75 20 6d 6f  | prey. If you mo|
00000740  76 65 20 74 6f 20 74 68  65 20 73 65 63 6f 6e 64  |ve to the second|
00000750  20 70 61 67 65 2c 20 79  6f 75 20 77 69 6c 6c 22  | page, you will"|
00000760  0d 01 b8 67 ec 20 35 30  2c 35 36 30 3a f1 22 73  |...g. 50,560:."s|
00000770  65 65 20 61 20 67 72 61  70 68 20 73 68 6f 77 69  |ee a graph showi|
00000780  6e 67 20 70 6f 70 75 6c  61 74 69 6f 6e 20 61 67  |ng population ag|
00000790  61 69 6e 73 74 20 27 74  69 6d 65 27 2e 20 53 6f  |ainst 'time'. So|
000007a0  6d 65 20 73 65 74 74 69  6e 67 73 20 6d 61 79 20  |me settings may |
000007b0  73 68 6f 77 20 71 75 69  74 65 20 63 6f 6d 70 6c  |show quite compl|
000007c0  65 78 20 61 6e 64 22 0d  01 c2 2f ec 20 35 30 2c  |ex and".../. 50,|
000007d0  35 32 30 3a f1 22 69 6e  74 65 72 61 63 74 69 6e  |520:."interactin|
000007e0  67 20 70 6f 70 75 6c 61  74 69 6f 6e 20 63 68 61  |g population cha|
000007f0  6e 67 65 73 2e 22 0d 01  cc 68 ec 20 35 30 2c 34  |nges."...h. 50,4|
00000800  36 30 3a f1 22 59 6f 75  20 6d 69 67 68 74 20 6c  |60:."You might l|
00000810  69 6b 65 20 74 6f 20 70  6c 61 79 20 61 72 6f 75  |ike to play arou|
00000820  6e 64 20 77 69 74 68 20  74 68 65 20 70 72 6f 67  |nd with the prog|
00000830  72 61 6d 20 74 6f 20 69  6e 74 72 6f 64 75 63 65  |ram to introduce|
00000840  20 6f 74 68 65 72 20 66  61 63 74 6f 72 73 2c 20  | other factors, |
00000850  6f 72 20 63 68 61 6e 67  65 20 74 68 65 22 0d 01  |or change the"..|
00000860  d6 6e ec 20 35 30 2c 34  32 30 3a f1 22 6f 76 65  |.n. 50,420:."ove|
00000870  72 61 6c 6c 20 63 6f 6e  64 69 74 69 6f 6e 73 2c  |rall conditions,|
00000880  20 65 2e 67 2e 2c 20 68  61 76 65 20 68 61 76 65  | e.g., have have|
00000890  20 32 20 73 65 74 73 20  6f 66 20 76 65 67 65 74  | 2 sets of veget|
000008a0  61 72 69 61 6e 73 20 63  6f 6d 70 65 74 69 6e 67  |arians competing|
000008b0  20 66 6f 72 20 61 20 6c  69 6d 69 74 65 64 20 66  | for a limited f|
000008c0  6f 6f 64 20 73 75 70 70  6c 79 2e 22 0d 01 e0 19  |ood supply."....|
000008d0  ec 20 35 30 2c 33 36 30  3a f1 22 48 61 76 65 20  |. 50,360:."Have |
000008e0  66 75 6e 21 22 0d 01 ea  0b e6 30 2c 72 65 64 25  |fun!".....0,red%|
000008f0  0d 01 f4 5e ec 20 35 30  2c 32 35 30 3a f1 20 22  |...^. 50,250:. "|
00000900  4e 6f 77 20 63 6c 69 63  6b 20 53 65 6c 65 63 74  |Now click Select|
00000910  20 77 69 74 68 20 6d 6f  75 73 65 20 6f 6e 20 27  | with mouse on '|
00000920  44 65 66 61 75 6c 74 27  20 6f 72 20 65 6c 73 65  |Default' or else|
00000930  20 73 65 6c 65 63 74 20  79 6f 75 72 20 6f 77 6e  | select your own|
00000940  20 70 61 72 61 6d 65 74  65 72 73 3a 2d 22 0d 01  | parameters:-"..|
00000950  fe 08 f7 20 2b 36 0d 02  08 13 e3 20 6f 70 74 69  |... +6..... opti|
00000960  6f 6e 25 3d 30 20 b8 20  31 0d 02 12 3a f2 5f 62  |on%=0 . 1...:._b|
00000970  75 74 74 6f 6e 28 33 32  30 2b 35 37 36 2a 6f 70  |utton(320+576*op|
00000980  74 69 6f 6e 25 2c 31 32  30 2c 35 30 2c 6d 67 72  |tion%,120,50,mgr|
00000990  65 79 25 2c 64 67 72 65  79 25 2c 76 64 67 72 65  |ey%,dgrey%,vdgre|
000009a0  79 25 29 0d 02 1c 0f f3  20 63 6f 6c 72 25 2c 6f  |y%)..... colr%,o|
000009b0  70 24 0d 02 26 0d e6 20  30 2c 63 6f 6c 72 25 0d  |p$..&.. 0,colr%.|
000009c0  02 30 09 f1 20 6f 70 24  0d 02 3a 0d ed 20 6f 70  |.0.. op$..:.. op|
000009d0  74 69 6f 6e 25 0d 02 44  1a dc 20 72 65 64 25 2c  |tion%..D.. red%,|
000009e0  22 20 20 20 20 20 20 44  65 66 61 75 6c 74 22 0d  |"      Default".|
000009f0  02 4e 21 dc 20 72 65 64  25 2c 22 20 20 20 20 20  |.N!. red%,"     |
00000a00  20 4f 77 6e 20 70 61 72  61 6d 65 74 65 72 73 22  | Own parameters"|
00000a10  0d 02 58 0b 6f 70 74 25  3d 2d 31 0d 02 62 0c 6f  |..X.opt%=-1..b.o|
00000a20  70 74 6e 25 3d 2d 31 0d  02 6c 05 f5 0d 02 76 0c  |ptn%=-1..l....v.|
00000a30  6f 70 74 6e 25 2b 3d 31  0d 02 80 2c f2 5f 6d 6f  |optn%+=1...,._mo|
00000a40  75 73 65 28 33 32 30 2b  35 37 36 2a 6f 70 74 6e  |use(320+576*optn|
00000a50  25 2c 31 32 30 2c 35 30  2c 6f 70 74 6e 25 2c 6f  |%,120,50,optn%,o|
00000a60  70 74 25 29 0d 02 8a 18  e7 20 6f 70 74 6e 25 3d  |pt%)..... optn%=|
00000a70  31 20 8c 20 6f 70 74 6e  25 3d 2d 31 0d 02 94 0e  |1 . optn%=-1....|
00000a80  fd 20 6f 70 74 25 3c 3e  2d 31 0d 02 9e 0d c8 8e  |. opt%<>-1......|
00000a90  20 6f 70 74 25 20 ca 0d  02 a8 11 c9 20 30 3a 63  | opt% ...... 0:c|
00000aa0  68 6f 69 63 65 25 3d 31  0d 02 b2 18 f2 5f 64 65  |hoice%=1....._de|
00000ab0  66 61 75 6c 74 5f 70 61  72 61 6d 65 74 65 72 73  |fault_parameters|
00000ac0  0d 02 bc 11 c9 20 31 3a  63 68 6f 69 63 65 25 3d  |..... 1:choice%=|
00000ad0  32 0d 02 c6 14 f2 5f 6f  77 6e 5f 70 61 72 61 6d  |2....._own_param|
00000ae0  65 74 65 72 73 0d 02 d0  05 cb 0d 02 da 1b fd 20  |eters.......... |
00000af0  63 68 6f 69 63 65 25 3d  31 20 84 20 63 68 6f 69  |choice%=1 . choi|
00000b00  63 65 25 3d 32 0d 02 e4  05 f5 0d 02 ee 10 c8 97  |ce%=2...........|
00000b10  20 b8 20 31 30 30 2c 36  30 30 0d 02 f8 0e e6 30  | . 100,600.....0|
00000b20  2c 64 62 72 6f 77 6e 25  0d 03 02 1a ef 20 32 33  |,dbrown%..... 23|
00000b30  2c 31 37 2c 37 2c 36 2c  31 36 3b 31 36 3b 30 3b  |,17,7,6,16;16;0;|
00000b40  30 3b 0d 03 0c 40 ec 20  35 36 2c 31 33 30 3a f1  |0;...@. 56,130:.|
00000b50  20 22 43 6c 69 63 6b 20  53 45 4c 45 43 54 20 6f  | "Click SELECT o|
00000b60  6e 20 61 20 27 52 75 6e  27 20 77 69 74 68 20 6d  |n a 'Run' with m|
00000b70  6f 75 73 65 2c 20 65 6c  73 65 20 27 51 75 69 74  |ouse, else 'Quit|
00000b80  27 22 0d 03 16 08 f7 20  2b 36 0d 03 20 13 e3 20  |'"..... +6.. .. |
00000b90  6f 70 74 69 6f 6e 25 3d  30 20 b8 20 31 0d 03 2a  |option%=0 . 1..*|
00000ba0  39 f2 5f 62 75 74 74 6f  6e 28 33 32 30 2b 35 37  |9._button(320+57|
00000bb0  36 2a 6f 70 74 69 6f 6e  25 2c 31 36 2c 35 30 2c  |6*option%,16,50,|
00000bc0  6d 67 72 65 79 25 2c 64  67 72 65 79 25 2c 76 64  |mgrey%,dgrey%,vd|
00000bd0  67 72 65 79 25 29 0d 03  34 0f f3 20 63 6f 6c 72  |grey%)..4.. colr|
00000be0  25 2c 6f 70 24 0d 03 3e  0d e6 20 30 2c 63 6f 6c  |%,op$..>.. 0,col|
00000bf0  72 25 0d 03 48 09 f1 20  6f 70 24 0d 03 52 0d ed  |r%..H.. op$..R..|
00000c00  20 6f 70 74 69 6f 6e 25  0d 03 5c 19 dc 20 62 6c  | option%..\.. bl|
00000c10  75 65 25 2c 22 20 20 20  20 20 31 3a 20 52 75 6e  |ue%,"     1: Run|
00000c20  22 0d 03 66 19 dc 20 72  65 64 25 2c 22 20 20 20  |"..f.. red%,"   |
00000c30  20 20 32 3a 20 51 75 69  74 22 0d 03 70 0b 6f 70  |  2: Quit"..p.op|
00000c40  74 25 3d 2d 31 0d 03 7a  0c 6f 70 74 6e 25 3d 2d  |t%=-1..z.optn%=-|
00000c50  31 0d 03 84 05 f5 0d 03  8e 0c 6f 70 74 6e 25 2b  |1.........optn%+|
00000c60  3d 31 0d 03 98 2b f2 5f  6d 6f 75 73 65 28 33 32  |=1...+._mouse(32|
00000c70  30 2b 35 37 36 2a 6f 70  74 6e 25 2c 31 36 2c 35  |0+576*optn%,16,5|
00000c80  30 2c 6f 70 74 6e 25 2c  6f 70 74 25 29 0d 03 a2  |0,optn%,opt%)...|
00000c90  18 e7 20 6f 70 74 6e 25  3d 31 20 8c 20 6f 70 74  |.. optn%=1 . opt|
00000ca0  6e 25 3d 2d 31 0d 03 ac  0e fd 20 6f 70 74 25 3c  |n%=-1..... opt%<|
00000cb0  3e 2d 31 0d 03 b6 0d c8  8e 20 6f 70 74 25 20 ca  |>-1...... opt% .|
00000cc0  0d 03 c0 07 c9 20 30 0d  03 ca 2b f2 70 6f 70 75  |..... 0...+.popu|
00000cd0  6c 61 74 69 6f 6e 73 28  31 2c 4e 75 6d 62 65 72  |lations(1,Number|
00000ce0  4f 66 43 79 63 6c 65 73  25 29 3a 71 75 69 74 25  |OfCycles%):quit%|
00000cf0  3d a3 0d 03 d4 10 c9 20  31 3a 3a 71 75 69 74 25  |=...... 1::quit%|
00000d00  3d b9 0d 03 de 05 cb 0d  03 e8 15 fd 20 6f 70 74  |=........... opt|
00000d10  25 3d 30 20 84 20 6f 70  74 25 3d 31 0d 03 f2 0b  |%=0 . opt%=1....|
00000d20  fd 20 71 75 69 74 25 0d  03 fc 16 e7 20 76 65 72  |. quit%..... ver|
00000d30  73 69 6f 6e 25 20 3e 20  26 41 34 20 8c 0d 04 06  |sion% > &A4 ....|
00000d40  20 c8 99 20 22 57 69 6d  70 5f 53 65 74 4d 6f 64  | .. "Wimp_SetMod|
00000d50  65 22 2c 6d 6f 64 65 73  74 6f 72 65 25 0d 04 10  |e",modestore%...|
00000d60  05 cd 0d 04 1a 05 e0 0d  04 24 35 f4 20 2a 2a 2a  |.........$5. ***|
00000d70  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00000d90  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 0d 04 2e 0c  |************....|
00000da0  dd 20 f2 65 72 72 6f 72  0d 04 38 26 c8 99 20 22  |. .error..8&.. "|
00000db0  4f 53 5f 42 79 74 65 22  2c 31 32 39 2c 30 2c 26  |OS_Byte",129,0,&|
00000dc0  46 46 20 b8 20 2c 76 65  72 73 69 6f 6e 25 0d 04  |FF . ,version%..|
00000dd0  42 16 e7 20 76 65 72 73  69 6f 6e 25 20 3c 20 26  |B.. version% < &|
00000de0  41 35 20 8c 0d 04 4c 07  eb 20 37 0d 04 56 05 cc  |A5 ...L.. 7..V..|
00000df0  0d 04 60 20 c8 99 20 22  57 69 6d 70 5f 53 65 74  |..` .. "Wimp_Set|
00000e00  4d 6f 64 65 22 2c 6d 6f  64 65 73 74 6f 72 65 25  |Mode",modestore%|
00000e10  0d 04 6a 05 cd 0d 04 74  30 f6 3a f1 22 20 61 74  |..j....t0.:." at|
00000e20  20 6c 69 6e 65 20 22 3b  9e 3a ff 28 22 53 65 74  | line ";.:.("Set|
00000e30  20 44 65 73 6b 45 64 69  74 24 45 52 4c 20 22 2b  | DeskEdit$ERL "+|
00000e40  c3 28 9e 29 29 0d 04 7e  05 e1 0d 04 88 1a dd 20  |.(.))..~....... |
00000e50  f2 5f 64 65 66 61 75 6c  74 5f 70 61 72 61 6d 65  |._default_parame|
00000e60  74 65 72 73 0d 04 92 27  6e 31 25 3d 31 3a 6e 32  |ters...'n1%=1:n2|
00000e70  25 3d 31 3a 6e 33 25 3d  31 3a 6e 34 25 3d 31 3a  |%=1:n3%=1:n4%=1:|
00000e80  6e 35 25 3d 31 3a 6e 36  25 3d 31 0d 04 9c 11 70  |n5%=1:n6%=1....p|
00000e90  72 25 3d 31 30 3a 70 62  25 3d 32 30 0d 04 a6 21  |r%=10:pb%=20...!|
00000ea0  e6 30 2c 70 67 72 65 79  25 3a c8 93 20 c8 90 20  |.0,pgrey%:.. .. |
00000eb0  30 2c 30 2c 31 35 39 39  2c 31 31 34 32 0d 04 b0  |0,0,1599,1142...|
00000ec0  05 f5 0d 04 ba 10 c8 97  20 b8 20 31 30 30 2c 36  |........ . 100,6|
00000ed0  30 30 0d 04 c4 1a ef 20  32 33 2c 31 37 2c 37 2c  |00..... 23,17,7,|
00000ee0  36 2c 31 36 3b 31 36 3b  30 3b 30 3b 0d 04 ce 4b  |6,16;16;0;0;...K|
00000ef0  e6 30 2c 76 64 67 72 65  79 25 3a ec 20 33 30 2c  |.0,vdgrey%:. 30,|
00000f00  31 31 32 30 3a f1 20 22  31 2c 20 20 20 44 65 66  |1120:. "1,   Def|
00000f10  61 75 6c 74 20 70 61 72  61 6d 65 74 65 72 73 20  |ault parameters |
00000f20  66 6f 72 20 73 70 61 63  65 2f 64 65 61 64 20 61  |for space/dead a|
00000f30  72 65 61 73 3a 2d 22 0d  04 d8 19 ef 20 32 33 2c  |reas:-"..... 23,|
00000f40  31 37 2c 37 2c 36 2c 38  3b 31 36 3b 30 3b 30 3b  |17,7,6,8;16;0;0;|
00000f50  0d 04 e2 0e e6 30 2c 64  62 72 6f 77 6e 25 0d 04  |.....0,dbrown%..|
00000f60  ec 72 ec 20 33 30 2c 31  30 36 30 3a f1 20 22 45  |.r. 30,1060:. "E|
00000f70  61 63 68 20 67 72 65 79  20 73 71 75 61 72 65 20  |ach grey square |
00000f80  69 73 20 73 75 72 72 6f  75 6e 64 65 64 20 62 79  |is surrounded by|
00000f90  20 38 20 73 71 75 61 72  65 73 2c 20 65 61 63 68  | 8 squares, each|
00000fa0  20 6f 66 20 77 68 69 63  68 20 63 6f 75 6c 64 20  | of which could |
00000fb0  62 65 20 70 72 65 64 61  74 6f 72 28 72 65 64 29  |be predator(red)|
00000fc0  2c 20 70 72 65 79 28 62  6c 75 65 29 20 6f 72 22  |, prey(blue) or"|
00000fd0  0d 04 f6 72 ec 20 33 30  2c 31 30 32 30 3a f1 22  |...r. 30,1020:."|
00000fe0  65 6d 70 74 79 28 67 72  65 79 29 2e 20 54 6f 20  |empty(grey). To |
00000ff0  62 72 65 65 64 2c 20 74  68 65 20 6d 69 6e 69 6d  |breed, the minim|
00001000  75 6d 20 6e 75 6d 62 65  72 20 6f 66 20 72 65 64  |um number of red|
00001010  20 63 65 6c 6c 73 20 69  6e 20 74 68 69 73 20 67  | cells in this g|
00001020  72 6f 75 70 20 6f 66 20  38 20 6d 75 73 74 20 62  |roup of 8 must b|
00001030  65 20 32 2c 20 62 75 74  20 6d 61 79 20 68 61 76  |e 2, but may hav|
00001040  65 22 0d 05 00 5a ec 20  33 30 2c 39 38 30 3a f1  |e"...Z. 30,980:.|
00001050  22 74 6f 20 62 65 20 67  72 65 61 74 65 72 20 69  |"to be greater i|
00001060  66 20 65 78 74 72 61 20  70 72 65 79 20 61 72 65  |f extra prey are|
00001070  20 6e 65 65 64 65 64 20  74 6f 20 70 72 6f 76 69  | needed to provi|
00001080  64 65 20 61 20 76 69 61  62 6c 65 20 62 72 65 65  |de a viable bree|
00001090  64 69 6e 67 20 67 72 6f  75 70 2e 22 0d 05 0a 0d  |ding group."....|
000010a0  e6 30 2c 62 6c 61 63 6b  25 0d 05 14 60 ec 20 33  |.0,black%...`. 3|
000010b0  30 2c 39 33 30 3a f1 22  4d 69 6e 69 6d 75 6d 20  |0,930:."Minimum |
000010c0  6e 75 6d 62 65 72 20 6f  66 20 72 65 64 73 20 61  |number of reds a|
000010d0  72 6f 75 6e 64 20 67 72  65 79 20 73 70 61 63 65  |round grey space|
000010e0  20 74 6f 20 61 6c 6c 6f  77 20 62 72 65 65 64 69  | to allow breedi|
000010f0  6e 67 20 6f 66 20 6d 6f  72 65 20 72 65 64 73 20  |ng of more reds |
00001100  3d 20 22 3b 6e 31 25 2b  31 0d 05 1e 17 e6 30 2c  |= ";n1%+1.....0,|
00001110  64 62 72 6f 77 6e 25 3a  ec 20 33 30 2c 38 35 30  |dbrown%:. 30,850|
00001120  0d 05 28 65 f1 22 53 75  63 63 65 73 73 66 75 6c  |..(e."Successful|
00001130  20 62 72 65 65 64 69 6e  67 20 69 73 20 75 6e 6c  | breeding is unl|
00001140  69 6b 65 6c 79 20 69 66  20 74 68 65 72 65 20 61  |ikely if there a|
00001150  72 65 20 6e 6f 20 70 72  65 79 20 74 6f 20 73 75  |re no prey to su|
00001160  73 74 61 69 6e 20 74 68  65 20 79 6f 75 6e 67 20  |stain the young |
00001170  70 72 65 64 61 74 6f 72  73 2e 20 53 6f 20 6f 6e  |predators. So on|
00001180  65 20 6f 72 22 0d 05 32  35 ec 20 33 30 2c 38 31  |e or"..25. 30,81|
00001190  30 3a f1 22 6d 6f 72 65  20 6f 66 20 74 68 65 20  |0:."more of the |
000011a0  73 70 61 63 65 73 20 6d  75 73 74 20 63 6f 6e 74  |spaces must cont|
000011b0  61 69 6e 20 70 72 65 79  2e 22 0d 05 3c 0d e6 30  |ain prey."..<..0|
000011c0  2c 62 6c 61 63 6b 25 0d  05 46 57 ec 20 33 30 2c  |,black%..FW. 30,|
000011d0  37 35 30 3a f1 22 4d 69  6e 69 6d 75 6d 20 6e 75  |750:."Minimum nu|
000011e0  6d 62 65 72 20 6f 66 20  62 6c 75 65 73 20 61 72  |mber of blues ar|
000011f0  6f 75 6e 64 20 67 72 65  79 20 73 70 61 63 65 20  |ound grey space |
00001200  74 6f 20 66 65 65 64 20  74 68 65 20 79 6f 75 6e  |to feed the youn|
00001210  67 20 72 65 64 3d 20 22  3b 6e 32 25 2b 31 0d 05  |g red= ";n2%+1..|
00001220  50 17 e6 30 2c 64 62 72  6f 77 6e 25 3a ec 20 33  |P..0,dbrown%:. 3|
00001230  30 2c 36 37 30 0d 05 5a  62 f1 22 54 6f 20 62 72  |0,670..Zb."To br|
00001240  65 65 64 2c 20 74 68 65  20 6d 69 6e 69 6d 75 6d  |eed, the minimum|
00001250  20 6e 75 6d 62 65 72 20  6f 66 20 62 6c 75 65 20  | number of blue |
00001260  63 65 6c 6c 73 20 69 6e  20 74 68 69 73 20 67 72  |cells in this gr|
00001270  6f 75 70 20 6f 66 20 38  20 6d 75 73 74 20 62 65  |oup of 8 must be|
00001280  20 32 2c 20 62 75 74 20  6d 61 79 20 68 61 76 65  | 2, but may have|
00001290  20 74 6f 20 62 65 22 0d  05 64 54 ec 20 33 30 2c  | to be"..dT. 30,|
000012a0  36 33 30 3a f1 22 67 72  65 61 74 65 72 20 69 66  |630:."greater if|
000012b0  20 65 78 74 72 61 20 70  72 65 79 20 61 72 65 20  | extra prey are |
000012c0  6e 65 65 64 65 64 20 74  6f 20 70 72 6f 76 69 64  |needed to provid|
000012d0  65 20 61 20 76 69 61 62  6c 65 20 62 72 65 65 64  |e a viable breed|
000012e0  69 6e 67 20 67 72 6f 75  70 2e 22 0d 05 6e 0d e6  |ing group."..n..|
000012f0  30 2c 62 6c 61 63 6b 25  0d 05 78 61 ec 20 33 30  |0,black%..xa. 30|
00001300  2c 35 37 30 3a f1 22 4d  69 6e 69 6d 75 6d 20 6e  |,570:."Minimum n|
00001310  75 6d 62 65 72 20 6f 66  20 62 6c 75 65 73 20 61  |umber of blues a|
00001320  72 6f 75 6e 64 20 67 72  65 79 20 73 70 61 63 65  |round grey space|
00001330  20 74 6f 20 61 6c 6c 6f  77 20 62 72 65 65 64 69  | to allow breedi|
00001340  6e 67 20 6f 66 20 6d 6f  72 65 20 62 6c 75 65 73  |ng of more blues|
00001350  3d 20 22 3b 6e 33 25 2b  31 0d 05 82 17 e6 30 2c  |= ";n3%+1.....0,|
00001360  64 62 72 6f 77 6e 25 3a  ec 20 33 30 2c 35 30 30  |dbrown%:. 30,500|
00001370  0d 05 8c 68 f1 22 53 75  63 63 65 73 73 66 75 6c  |...h."Successful|
00001380  20 62 72 65 65 64 69 6e  67 20 6f 66 20 70 72 65  | breeding of pre|
00001390  79 28 62 6c 75 65 73 29  20 69 73 20 75 6e 6c 69  |y(blues) is unli|
000013a0  6b 65 6c 79 20 69 66 20  74 68 65 72 65 20 61 72  |kely if there ar|
000013b0  65 20 70 72 65 64 61 74  6f 72 73 28 72 65 64 73  |e predators(reds|
000013c0  29 20 61 72 6f 75 6e 64  20 74 68 65 20 67 72 65  |) around the gre|
000013d0  79 20 73 70 61 63 65 22  0d 05 96 6f ec 20 33 30  |y space"...o. 30|
000013e0  2c 34 36 30 3a f1 22 73  6f 20 6f 6e 65 20 63 61  |,460:."so one ca|
000013f0  6e 20 73 70 65 63 69 66  79 20 74 68 65 20 6d 61  |n specify the ma|
00001400  78 69 6d 75 6d 20 6e 75  6d 62 65 72 20 6f 66 20  |ximum number of |
00001410  72 65 64 73 20 69 6e 20  74 68 65 20 38 20 73 75  |reds in the 8 su|
00001420  72 72 6f 75 6e 64 69 6e  67 20 73 70 61 63 65 73  |rrounding spaces|
00001430  20 74 68 61 74 20 63 61  6e 20 62 65 20 74 6f 74  | that can be tot|
00001440  65 72 61 74 65 64 22 0d  05 a0 3f ec 20 33 30 2c  |erated"...?. 30,|
00001450  34 32 30 3a f1 22 74 68  61 74 20 77 69 6c 6c 20  |420:."that will |
00001460  73 74 69 6c 6c 20 61 6c  6c 6f 77 20 74 68 65 20  |still allow the |
00001470  70 72 65 79 28 62 6c 75  65 73 29 20 74 6f 20 62  |prey(blues) to b|
00001480  72 65 65 64 2e 22 0d 05  aa 04 0d 05 b4 0d e6 30  |reed.".........0|
00001490  2c 62 6c 61 63 6b 25 0d  05 be 65 ec 20 33 30 2c  |,black%...e. 30,|
000014a0  33 36 30 3a f1 22 4d 61  78 69 6d 75 6d 20 6e 75  |360:."Maximum nu|
000014b0  6d 62 65 72 20 6f 66 20  72 65 64 73 20 61 72 6f  |mber of reds aro|
000014c0  75 6e 64 20 67 72 65 79  20 73 70 61 63 65 20 74  |und grey space t|
000014d0  68 61 74 20 73 74 69 6c  6c 20 70 65 72 6d 69 74  |hat still permit|
000014e0  20 74 68 65 20 62 6c 75  65 73 20 74 6f 20 62 72  | the blues to br|
000014f0  65 65 64 3d 20 22 3b 6e  34 25 2d 31 0d 05 c8 05  |eed= ";n4%-1....|
00001500  f5 0d 05 d2 16 e6 30 2c  62 6c 61 63 6b 25 3a ec  |......0,black%:.|
00001510  20 39 30 2c 32 32 30 0d  05 dc 41 f1 22 43 6c 69  | 90,220...A."Cli|
00001520  63 6b 20 27 53 65 6c 65  63 74 27 20 6f 6e 20 74  |ck 'Select' on t|
00001530  68 65 20 62 6f 78 20 74  6f 20 76 69 65 77 20 64  |he box to view d|
00001540  65 66 61 75 6c 74 20 70  61 72 61 6d 65 74 65 72  |efault parameter|
00001550  73 20 66 6f 72 20 22 3b  0d 05 e6 30 e6 30 2c 72  |s for ";...0.0,r|
00001560  65 64 25 3a f1 22 72 65  64 20 73 71 75 61 72 65  |ed%:."red square|
00001570  73 2c 20 22 3b 3a e6 30  2c 62 6c 61 63 6b 25 3a  |s, ";:.0,black%:|
00001580  f1 22 61 6e 64 20 22 3b  0d 05 f0 2c e6 30 2c 62  |."and ";...,.0,b|
00001590  6c 75 65 25 3a f1 22 62  6c 75 65 20 73 71 75 61  |lue%:."blue squa|
000015a0  72 65 73 22 3b 3a e6 30  2c 62 6c 61 63 6b 25 3a  |res";:.0,black%:|
000015b0  f1 22 2e 22 0d 05 fa 08  f7 20 2b 34 0d 06 04 2d  |."."..... +4...-|
000015c0  f2 5f 62 75 74 74 6f 6e  28 37 35 32 2c 36 34 2c  |._button(752,64,|
000015d0  37 30 2c 6d 67 72 65 79  25 2c 64 67 72 65 79 25  |70,mgrey%,dgrey%|
000015e0  2c 76 64 67 72 65 79 25  29 0d 06 0e 0f f3 20 63  |,vdgrey%)..... c|
000015f0  6f 6c 72 25 2c 6f 70 24  0d 06 18 0d e6 20 30 2c  |olr%,op$..... 0,|
00001600  63 6f 6c 72 25 0d 06 22  09 f1 20 6f 70 24 0d 06  |colr%..".. op$..|
00001610  2c 0d dc 20 72 65 64 25  2c 22 22 0d 06 36 0b 6f  |,.. red%,""..6.o|
00001620  70 74 25 3d 2d 31 0d 06  40 0c 6f 70 74 6e 25 3d  |pt%=-1..@.optn%=|
00001630  2d 31 0d 06 4a 05 f5 0d  06 54 0c 6f 70 74 6e 25  |-1..J....T.optn%|
00001640  2b 3d 31 0d 06 5e 21 f2  5f 6d 6f 75 73 65 28 37  |+=1..^!._mouse(7|
00001650  35 32 2c 36 34 2c 37 30  2c 6f 70 74 6e 25 2c 6f  |52,64,70,optn%,o|
00001660  70 74 25 29 0d 06 68 18  e7 20 6f 70 74 6e 25 3d  |pt%)..h.. optn%=|
00001670  30 20 8c 20 6f 70 74 6e  25 3d 2d 31 0d 06 72 0e  |0 . optn%=-1..r.|
00001680  fd 20 6f 70 74 25 3c 3e  2d 31 0d 06 7c 0c fd 20  |. opt%<>-1..|.. |
00001690  6f 70 74 25 3d 30 0d 06  86 21 e6 30 2c 70 67 72  |opt%=0...!.0,pgr|
000016a0  65 79 25 3a c8 93 20 c8  90 20 30 2c 30 2c 31 35  |ey%:.. .. 0,0,15|
000016b0  39 39 2c 31 31 34 30 0d  06 90 1a ef 20 32 33 2c  |99,1140..... 23,|
000016c0  31 37 2c 37 2c 36 2c 31  36 3b 31 36 3b 30 3b 30  |17,7,6,16;16;0;0|
000016d0  3b 0d 06 9a 40 e6 30 2c  72 65 64 25 3a ec 20 33  |;...@.0,red%:. 3|
000016e0  30 2c 31 31 32 30 3a f1  20 22 32 2c 20 20 44 65  |0,1120:. "2,  De|
000016f0  66 61 75 6c 74 20 70 61  72 61 6d 65 74 65 72 73  |fault parameters|
00001700  20 66 6f 72 20 72 65 64  20 61 72 65 61 73 3a 2d  | for red areas:-|
00001710  22 0d 06 a4 19 ef 20 32  33 2c 31 37 2c 37 2c 36  |"..... 23,17,7,6|
00001720  2c 38 3b 31 36 3b 30 3b  30 3b 0d 06 ae 0e e6 30  |,8;16;0;0;.....0|
00001730  2c 64 62 72 6f 77 6e 25  0d 06 b8 71 ec 20 33 30  |,dbrown%...q. 30|
00001740  2c 31 30 36 30 3a f1 20  22 45 61 63 68 20 72 65  |,1060:. "Each re|
00001750  64 20 73 71 75 61 72 65  20 69 73 20 73 75 72 72  |d square is surr|
00001760  6f 75 6e 64 65 64 20 62  79 20 38 20 73 71 75 61  |ounded by 8 squa|
00001770  72 65 73 2c 20 65 61 63  68 20 6f 66 20 77 68 69  |res, each of whi|
00001780  63 68 20 63 6f 75 6c 64  20 62 65 20 70 72 65 64  |ch could be pred|
00001790  61 74 6f 72 28 72 65 64  29 2c 20 70 72 65 79 28  |ator(red), prey(|
000017a0  62 6c 75 65 29 20 6f 72  22 0d 06 c2 70 ec 20 33  |blue) or"...p. 3|
000017b0  30 2c 31 30 32 30 3a f1  22 65 6d 70 74 79 28 67  |0,1020:."empty(g|
000017c0  72 65 79 29 2e 20 46 6f  72 20 74 68 65 20 70 72  |rey). For the pr|
000017d0  65 64 61 74 6f 72 73 28  72 65 64 73 29 20 74 6f  |edators(reds) to|
000017e0  20 73 75 72 76 69 76 65  20 74 68 65 79 20 6d 75  | survive they mu|
000017f0  73 74 20 68 61 76 65 20  70 72 65 79 28 62 6c 75  |st have prey(blu|
00001800  65 73 29 20 74 6f 20 65  61 74 2e 20 48 65 72 65  |es) to eat. Here|
00001810  20 6f 6e 65 20 63 61 6e  22 0d 06 cc 70 ec 20 33  | one can"...p. 3|
00001820  30 2c 39 38 30 3a f1 22  73 70 65 63 69 66 79 20  |0,980:."specify |
00001830  74 68 65 20 6d 69 6d 69  6d 75 6d 20 6e 75 6d 62  |the mimimum numb|
00001840  65 72 20 6f 66 20 73 75  72 72 6f 75 6e 64 69 6e  |er of surroundin|
00001850  67 20 70 72 65 79 20 69  6e 20 6f 72 64 65 72 20  |g prey in order |
00001860  74 6f 20 65 6e 73 75 72  65 20 74 68 61 74 20 6f  |to ensure that o|
00001870  6e 65 20 63 61 6e 20 62  65 20 63 61 75 67 68 74  |ne can be caught|
00001880  20 74 6f 20 65 61 74 2e  22 0d 06 d6 0d e6 30 2c  | to eat.".....0,|
00001890  62 6c 61 63 6b 25 0d 06  e0 5d ec 20 33 30 2c 39  |black%...]. 30,9|
000018a0  32 30 3a f1 22 4d 69 6e  69 6d 75 6d 20 6e 75 6d  |20:."Minimum num|
000018b0  62 65 72 20 6f 66 20 62  6c 75 65 73 20 61 72 6f  |ber of blues aro|
000018c0  75 6e 64 20 72 65 64 20  73 71 75 61 72 65 20 74  |und red square t|
000018d0  6f 20 70 72 65 76 65 6e  74 20 72 65 64 20 66 72  |o prevent red fr|
000018e0  6f 6d 20 73 74 61 72 76  69 6e 67 20 3d 20 22 3b  |om starving = ";|
000018f0  6e 35 25 0d 06 ea 0e e6  30 2c 64 62 72 6f 77 6e  |n5%.....0,dbrown|
00001900  25 0d 06 f4 6c ec 20 33  30 2c 38 34 30 3a f1 20  |%...l. 30,840:. |
00001910  22 50 72 65 64 61 74 6f  72 73 28 72 65 64 73 29  |"Predators(reds)|
00001920  20 63 61 6e 20 64 69 65  20 6f 66 20 6f 74 68 65  | can die of othe|
00001930  72 20 63 61 75 73 65 73  2c 20 2d 20 69 6c 6c 6e  |r causes, - illn|
00001940  65 73 73 2c 20 64 69 73  65 61 73 65 2c 20 61 63  |ess, disease, ac|
00001950  63 69 64 65 6e 74 73 2c  20 6f 6c 64 20 61 67 65  |cidents, old age|
00001960  20 2d 20 73 6f 20 77 65  20 63 61 6e 22 0d 06 fe  | - so we can"...|
00001970  69 ec 20 33 30 2c 38 30  30 3a f1 22 73 70 65 63  |i. 30,800:."spec|
00001980  69 66 79 20 74 68 65 20  61 76 65 72 61 67 65 20  |ify the average |
00001990  70 65 72 63 65 6e 74 61  67 65 20 6f 66 20 74 68  |percentage of th|
000019a0  65 20 72 65 64 20 70 6f  70 75 6c 61 74 69 6f 6e  |e red population|
000019b0  20 74 68 61 74 20 69 73  20 6c 69 6b 65 6c 79 20  | that is likely |
000019c0  74 6f 20 64 69 65 20 69  6e 20 65 61 63 68 20 63  |to die in each c|
000019d0  79 63 6c 65 2e 22 0d 07  08 0d e6 30 2c 62 6c 61  |ycle.".....0,bla|
000019e0  63 6b 25 0d 07 12 4e ec  20 33 30 2c 37 34 30 3a  |ck%...N. 30,740:|
000019f0  f1 22 41 76 65 72 61 67  65 20 70 65 72 63 65 6e  |."Average percen|
00001a00  74 61 67 65 20 6f 66 20  27 61 63 63 69 64 65 6e  |tage of 'acciden|
00001a10  74 61 6c 27 20 72 65 64  20 64 65 61 74 68 73 20  |tal' red deaths |
00001a20  70 65 72 20 63 79 63 6c  65 20 3d 20 22 3b 70 72  |per cycle = ";pr|
00001a30  25 0d 07 1c 1a ef 20 32  33 2c 31 37 2c 37 2c 36  |%..... 23,17,7,6|
00001a40  2c 31 36 3b 31 36 3b 30  3b 30 3b 0d 07 26 41 e6  |,16;16;0;0;..&A.|
00001a50  30 2c 62 6c 75 65 25 3a  ec 20 33 30 2c 36 37 30  |0,blue%:. 30,670|
00001a60  3a f1 20 22 33 2c 20 20  44 65 66 61 75 6c 74 20  |:. "3,  Default |
00001a70  70 61 72 61 6d 65 74 65  72 73 20 66 6f 72 20 62  |parameters for b|
00001a80  6c 75 65 20 61 72 65 61  73 3a 2d 22 0d 07 30 19  |lue areas:-"..0.|
00001a90  ef 20 32 33 2c 31 37 2c  37 2c 36 2c 38 3b 31 36  |. 23,17,7,6,8;16|
00001aa0  3b 30 3b 30 3b 0d 07 3a  0e e6 30 2c 64 62 72 6f  |;0;0;..:..0,dbro|
00001ab0  77 6e 25 0d 07 44 6e ec  20 33 30 2c 36 32 30 3a  |wn%..Dn. 30,620:|
00001ac0  f1 20 22 50 72 65 79 28  74 68 65 20 62 6c 75 65  |. "Prey(the blue|
00001ad0  73 29 20 61 72 65 20 6c  69 6b 65 6c 79 20 74 6f  |s) are likely to|
00001ae0  20 62 65 20 6b 69 6c 6c  65 64 20 69 66 20 6d 6f  | be killed if mo|
00001af0  72 65 20 74 68 61 6e 20  61 20 73 70 65 63 69 66  |re than a specif|
00001b00  69 61 62 6c 65 20 6e 75  6d 62 65 72 20 6f 66 20  |iable number of |
00001b10  70 72 65 64 61 74 6f 72  73 28 72 65 64 73 29 20  |predators(reds) |
00001b20  22 0d 07 4e 31 ec 20 33  30 2c 35 38 30 3a f1 22  |"..N1. 30,580:."|
00001b30  61 72 65 20 69 6e 20 74  68 65 20 73 75 72 72 6f  |are in the surro|
00001b40  75 6e 64 69 6e 67 20 38  20 73 71 75 61 72 65 73  |unding 8 squares|
00001b50  2e 22 0d 07 58 0d e6 30  2c 62 6c 61 63 6b 25 0d  |."..X..0,black%.|
00001b60  07 62 59 ec 20 33 30 2c  35 33 30 3a f1 22 4d 61  |.bY. 30,530:."Ma|
00001b70  78 69 6d 75 6d 20 6e 75  6d 62 65 72 20 6f 66 20  |ximum number of |
00001b80  72 65 64 73 20 61 72 6f  75 6e 64 20 62 6c 75 65  |reds around blue|
00001b90  20 73 71 75 61 72 65 20  77 69 74 68 6f 75 74 20  | square without |
00001ba0  62 6c 75 65 20 62 65 69  6e 67 20 65 61 74 65 6e  |blue being eaten|
00001bb0  20 3d 20 22 3b 6e 36 25  0d 07 6c 0e e6 30 2c 64  | = ";n6%..l..0,d|
00001bc0  62 72 6f 77 6e 25 0d 07  76 70 ec 20 33 30 2c 34  |brown%..vp. 30,4|
00001bd0  34 30 3a f1 20 22 50 72  65 79 28 62 6c 75 65 73  |40:. "Prey(blues|
00001be0  29 20 63 61 6e 20 64 69  65 20 6f 66 20 6f 74 68  |) can die of oth|
00001bf0  65 72 20 63 61 75 73 65  73 2c 20 2d 20 69 6c 6c  |er causes, - ill|
00001c00  6e 65 73 73 2c 20 64 69  73 65 61 73 65 2c 20 61  |ness, disease, a|
00001c10  63 63 69 64 65 6e 74 73  2c 20 6f 6c 64 20 61 67  |ccidents, old ag|
00001c20  65 20 2d 20 73 6f 20 77  65 20 63 61 6e 20 73 70  |e - so we can sp|
00001c30  65 63 69 66 79 22 0d 07  80 6b ec 20 33 30 2c 34  |ecify"...k. 30,4|
00001c40  30 30 3a f1 22 74 68 65  20 61 76 65 72 61 67 65  |00:."the average|
00001c50  20 70 65 72 63 65 6e 74  61 67 65 20 6f 66 20 74  | percentage of t|
00001c60  68 65 20 62 6c 75 65 20  70 6f 70 75 6c 61 74 69  |he blue populati|
00001c70  6f 6e 20 74 68 61 74 20  6d 61 79 20 64 69 65 20  |on that may die |
00001c80  69 6e 20 65 61 63 68 20  63 79 63 6c 65 20 66 72  |in each cycle fr|
00001c90  6f 6d 20 74 68 65 73 65  20 63 61 75 73 65 73 2e  |om these causes.|
00001ca0  22 0d 07 8a 0d e6 30 2c  62 6c 61 63 6b 25 0d 07  |".....0,black%..|
00001cb0  94 4f ec 20 33 30 2c 33  34 30 3a f1 22 41 76 65  |.O. 30,340:."Ave|
00001cc0  72 61 67 65 20 70 65 72  63 65 6e 74 61 67 65 20  |rage percentage |
00001cd0  6f 66 20 27 61 63 63 69  64 65 6e 74 61 6c 27 20  |of 'accidental' |
00001ce0  62 6c 75 65 20 64 65 61  74 68 73 20 70 65 72 20  |blue deaths per |
00001cf0  63 79 63 6c 65 20 3d 20  22 3b 70 62 25 0d 07 9e  |cycle = ";pb%...|
00001d00  05 e1 0d 07 a8 16 dd 20  f2 5f 6f 77 6e 5f 70 61  |....... ._own_pa|
00001d10  72 61 6d 65 74 65 72 73  0d 07 b2 21 e6 30 2c 70  |rameters...!.0,p|
00001d20  67 72 65 79 25 3a c8 93  20 c8 90 20 30 2c 30 2c  |grey%:.. .. 0,0,|
00001d30  31 35 39 39 2c 31 31 34  32 0d 07 bc 05 f5 0d 07  |1599,1142.......|
00001d40  c6 10 c8 97 20 b8 20 31  30 30 2c 36 30 30 0d 07  |.... . 100,600..|
00001d50  d0 1a ef 20 32 33 2c 31  37 2c 37 2c 36 2c 31 36  |... 23,17,7,6,16|
00001d60  3b 31 36 3b 30 3b 30 3b  0d 07 da 3e e6 30 2c 76  |;16;0;0;...>.0,v|
00001d70  64 67 72 65 79 25 3a ec  20 33 30 2c 31 31 32 30  |dgrey%:. 30,1120|
00001d80  3a f1 20 22 31 2c 20 20  50 72 6f 63 65 73 73 69  |:. "1,  Processi|
00001d90  6e 67 20 73 70 61 63 65  2f 64 65 61 64 20 61 72  |ng space/dead ar|
00001da0  65 61 73 3a 2d 22 0d 07  e4 19 ef 20 32 33 2c 31  |eas:-"..... 23,1|
00001db0  37 2c 37 2c 36 2c 38 3b  31 36 3b 30 3b 30 3b 0d  |7,7,6,8;16;0;0;.|
00001dc0  07 ee 0e e6 30 2c 64 62  72 6f 77 6e 25 0d 07 f8  |....0,dbrown%...|
00001dd0  72 ec 20 33 30 2c 31 30  36 30 3a f1 20 22 45 61  |r. 30,1060:. "Ea|
00001de0  63 68 20 67 72 65 79 20  73 71 75 61 72 65 20 69  |ch grey square i|
00001df0  73 20 73 75 72 72 6f 75  6e 64 65 64 20 62 79 20  |s surrounded by |
00001e00  38 20 73 71 75 61 72 65  73 2c 20 65 61 63 68 20  |8 squares, each |
00001e10  6f 66 20 77 68 69 63 68  20 63 6f 75 6c 64 20 62  |of which could b|
00001e20  65 20 70 72 65 64 61 74  6f 72 28 72 65 64 29 2c  |e predator(red),|
00001e30  20 70 72 65 79 28 62 6c  75 65 29 20 6f 72 22 0d  | prey(blue) or".|
00001e40  08 02 72 ec 20 33 30 2c  31 30 32 30 3a f1 22 65  |..r. 30,1020:."e|
00001e50  6d 70 74 79 28 67 72 65  79 29 2e 20 54 6f 20 62  |mpty(grey). To b|
00001e60  72 65 65 64 2c 20 74 68  65 20 6d 69 6e 69 6d 75  |reed, the minimu|
00001e70  6d 20 6e 75 6d 62 65 72  20 6f 66 20 72 65 64 20  |m number of red |
00001e80  63 65 6c 6c 73 20 69 6e  20 74 68 69 73 20 67 72  |cells in this gr|
00001e90  6f 75 70 20 6f 66 20 38  20 6d 75 73 74 20 62 65  |oup of 8 must be|
00001ea0  20 32 2c 20 62 75 74 20  6d 61 79 20 68 61 76 65  | 2, but may have|
00001eb0  22 0d 08 0c 5f ec 20 33  30 2c 39 38 30 3a f1 22  |"..._. 30,980:."|
00001ec0  74 6f 20 62 65 20 67 72  65 61 74 65 72 20 69 66  |to be greater if|
00001ed0  20 65 78 74 72 61 20 70  72 65 64 61 74 6f 72 73  | extra predators|
00001ee0  20 61 72 65 20 6e 65 65  64 65 64 20 74 6f 20 70  | are needed to p|
00001ef0  72 6f 76 69 64 65 20 61  20 76 69 61 62 6c 65 20  |rovide a viable |
00001f00  62 72 65 65 64 69 6e 67  20 67 72 6f 75 70 2e 22  |breeding group."|
00001f10  0d 08 16 53 ec 20 33 30  2c 39 34 30 3a f1 22 53  |...S. 30,940:."S|
00001f20  65 6c 65 63 74 20 74 68  69 73 20 6d 69 6e 69 6d  |elect this minim|
00001f30  75 6d 20 6e 75 6d 62 65  72 20 62 65 6c 6f 77 20  |um number below |
00001f40  62 79 20 63 6c 69 63 6b  69 6e 67 20 53 65 6c 65  |by clicking Sele|
00001f50  63 74 20 6f 6e 20 61 20  62 6f 78 20 62 65 6c 6f  |ct on a box belo|
00001f60  77 2e 22 0d 08 20 08 f7  20 2b 36 0d 08 2a 13 e3  |w.".. .. +6..*..|
00001f70  20 6f 70 74 69 6f 6e 25  3d 30 20 b8 20 33 0d 08  | option%=0 . 3..|
00001f80  34 39 f2 5f 62 75 74 74  6f 6e 28 36 34 2b 33 38  |49._button(64+38|
00001f90  34 2a 6f 70 74 69 6f 6e  25 2c 38 33 32 2c 35 30  |4*option%,832,50|
00001fa0  2c 6d 67 72 65 79 25 2c  64 67 72 65 79 25 2c 76  |,mgrey%,dgrey%,v|
00001fb0  64 67 72 65 79 25 29 0d  08 3e 0f f3 20 63 6f 6c  |dgrey%)..>.. col|
00001fc0  72 25 2c 6f 70 24 0d 08  48 0d e6 20 30 2c 63 6f  |r%,op$..H.. 0,co|
00001fd0  6c 72 25 0d 08 52 09 f1  20 6f 70 24 0d 08 5c 0d  |lr%..R.. op$..\.|
00001fe0  ed 20 6f 70 74 69 6f 6e  25 0d 08 66 22 dc 20 72  |. option%..f". r|
00001ff0  65 64 25 2c 22 20 20 20  20 20 4d 69 6e 69 6d 75  |ed%,"     Minimu|
00002000  6d 20 72 65 64 73 20 3d  20 32 22 0d 08 70 22 dc  |m reds = 2"..p".|
00002010  20 72 65 64 25 2c 22 20  20 20 20 20 4d 69 6e 69  | red%,"     Mini|
00002020  6d 75 6d 20 72 65 64 73  20 3d 20 33 22 0d 08 7a  |mum reds = 3"..z|
00002030  22 dc 20 72 65 64 25 2c  22 20 20 20 20 20 4d 69  |". red%,"     Mi|
00002040  6e 69 6d 75 6d 20 72 65  64 73 20 3d 20 34 22 0d  |nimum reds = 4".|
00002050  08 84 22 dc 20 72 65 64  25 2c 22 20 20 20 20 20  |..". red%,"     |
00002060  4d 69 6e 69 6d 75 6d 20  72 65 64 73 20 3d 20 35  |Minimum reds = 5|
00002070  22 0d 08 8e 0b 6f 70 74  25 3d 2d 31 0d 08 98 0c  |"....opt%=-1....|
00002080  6f 70 74 6e 25 3d 2d 31  0d 08 a2 05 f5 0d 08 ac  |optn%=-1........|
00002090  0c 6f 70 74 6e 25 2b 3d  31 0d 08 b6 2b f2 5f 6d  |.optn%+=1...+._m|
000020a0  6f 75 73 65 28 36 34 2b  33 38 34 2a 6f 70 74 6e  |ouse(64+384*optn|
000020b0  25 2c 38 33 32 2c 35 30  2c 6f 70 74 6e 25 2c 6f  |%,832,50,optn%,o|
000020c0  70 74 25 29 0d 08 c0 18  e7 20 6f 70 74 6e 25 3d  |pt%)..... optn%=|
000020d0  33 20 8c 20 6f 70 74 6e  25 3d 2d 31 0d 08 ca 0e  |3 . optn%=-1....|
000020e0  fd 20 6f 70 74 25 3c 3e  2d 31 0d 08 d4 0d c8 8e  |. opt%<>-1......|
000020f0  20 6f 70 74 25 20 ca 0d  08 de 0d c9 20 30 3a 6e  | opt% ...... 0:n|
00002100  31 25 3d 31 0d 08 e8 0d  c9 20 31 3a 6e 31 25 3d  |1%=1..... 1:n1%=|
00002110  32 0d 08 f2 0d c9 20 32  3a 6e 31 25 3d 33 0d 08  |2..... 2:n1%=3..|
00002120  fc 0d c9 20 33 3a 6e 31  25 3d 34 0d 09 06 05 cb  |... 3:n1%=4.....|
00002130  0d 09 10 13 fd 20 6e 31  25 3e 30 20 80 20 6e 31  |..... n1%>0 . n1|
00002140  25 3c 35 0d 09 1a 2c e6  30 2c 70 67 72 65 79 25  |%<5...,.0,pgrey%|
00002150  3a c8 93 20 c8 90 20 30  2c 38 32 34 2c 31 35 39  |:.. .. 0,824,159|
00002160  39 2c 31 32 30 3a e6 30  2c 62 6c 61 63 6b 25 0d  |9,120:.0,black%.|
00002170  09 24 60 ec 20 33 30 2c  39 32 30 3a f1 22 4d 69  |.$`. 30,920:."Mi|
00002180  6e 69 6d 75 6d 20 6e 75  6d 62 65 72 20 6f 66 20  |nimum number of |
00002190  72 65 64 73 20 61 72 6f  75 6e 64 20 67 72 65 79  |reds around grey|
000021a0  20 73 70 61 63 65 20 74  6f 20 61 6c 6c 6f 77 20  | space to allow |
000021b0  62 72 65 65 64 69 6e 67  20 6f 66 20 6d 6f 72 65  |breeding of more|
000021c0  20 72 65 64 73 20 3d 20  22 3b 6e 31 25 2b 31 0d  | reds = ";n1%+1.|
000021d0  09 2e 05 f5 0d 09 38 17  e6 30 2c 64 62 72 6f 77  |......8..0,dbrow|
000021e0  6e 25 3a ec 20 33 30 2c  38 35 30 0d 09 42 65 f1  |n%:. 30,850..Be.|
000021f0  22 53 75 63 63 65 73 73  66 75 6c 20 62 72 65 65  |"Successful bree|
00002200  64 69 6e 67 20 69 73 20  75 6e 6c 69 6b 65 6c 79  |ding is unlikely|
00002210  20 69 66 20 74 68 65 72  65 20 61 72 65 20 6e 6f  | if there are no|
00002220  20 70 72 65 79 20 74 6f  20 73 75 73 74 61 69 6e  | prey to sustain|
00002230  20 74 68 65 20 79 6f 75  6e 67 20 70 72 65 64 61  | the young preda|
00002240  74 6f 72 73 2e 20 53 6f  20 6f 6e 65 20 6f 72 22  |tors. So one or"|
00002250  0d 09 4c 5f ec 20 33 30  2c 38 31 30 3a f1 22 6d  |..L_. 30,810:."m|
00002260  6f 72 65 20 6f 66 20 74  68 65 20 73 70 61 63 65  |ore of the space|
00002270  73 20 6d 75 73 74 20 63  6f 6e 74 61 69 6e 20 70  |s must contain p|
00002280  72 65 79 2e 20 59 6f 75  20 63 61 6e 20 73 65 6c  |rey. You can sel|
00002290  65 63 74 20 74 68 69 73  20 6d 69 6e 69 6d 75 6d  |ect this minimum|
000022a0  20 6e 75 6d 62 65 72 20  62 65 6c 6f 77 2e 22 0d  | number below.".|
000022b0  09 56 08 f7 20 2b 36 0d  09 60 13 e3 20 6f 70 74  |.V.. +6..`.. opt|
000022c0  69 6f 6e 25 3d 30 20 b8  20 32 0d 09 6a 3a f2 5f  |ion%=0 . 2..j:._|
000022d0  62 75 74 74 6f 6e 28 31  34 34 2b 34 36 34 2a 6f  |button(144+464*o|
000022e0  70 74 69 6f 6e 25 2c 37  30 34 2c 35 30 2c 6d 67  |ption%,704,50,mg|
000022f0  72 65 79 25 2c 64 67 72  65 79 25 2c 76 64 67 72  |rey%,dgrey%,vdgr|
00002300  65 79 25 29 0d 09 74 0f  f3 20 63 6f 6c 72 25 2c  |ey%)..t.. colr%,|
00002310  6f 70 24 0d 09 7e 0d e6  20 30 2c 63 6f 6c 72 25  |op$..~.. 0,colr%|
00002320  0d 09 88 09 f1 20 6f 70  24 0d 09 92 0d ed 20 6f  |..... op$..... o|
00002330  70 74 69 6f 6e 25 0d 09  9c 24 dc 20 62 6c 75 65  |ption%...$. blue|
00002340  25 2c 22 20 20 20 20 20  4d 69 6e 69 6d 75 6d 20  |%,"     Minimum |
00002350  62 6c 75 65 73 20 3d 20  31 22 0d 09 a6 24 dc 20  |blues = 1"...$. |
00002360  62 6c 75 65 25 2c 22 20  20 20 20 20 4d 69 6e 69  |blue%,"     Mini|
00002370  6d 75 6d 20 62 6c 75 65  73 20 3d 20 32 22 0d 09  |mum blues = 2"..|
00002380  b0 24 dc 20 62 6c 75 65  25 2c 22 20 20 20 20 20  |.$. blue%,"     |
00002390  4d 69 6e 69 6d 75 6d 20  62 6c 75 65 73 20 3d 20  |Minimum blues = |
000023a0  33 22 0d 09 ba 0b 6f 70  74 25 3d 2d 31 0d 09 c4  |3"....opt%=-1...|
000023b0  0c 6f 70 74 6e 25 3d 2d  31 0d 09 ce 05 f5 0d 09  |.optn%=-1.......|
000023c0  d8 0c 6f 70 74 6e 25 2b  3d 31 0d 09 e2 2c f2 5f  |..optn%+=1...,._|
000023d0  6d 6f 75 73 65 28 31 34  34 2b 34 36 34 2a 6f 70  |mouse(144+464*op|
000023e0  74 6e 25 2c 37 30 34 2c  35 30 2c 6f 70 74 6e 25  |tn%,704,50,optn%|
000023f0  2c 6f 70 74 25 29 0d 09  ec 18 e7 20 6f 70 74 6e  |,opt%)..... optn|
00002400  25 3d 32 20 8c 20 6f 70  74 6e 25 3d 2d 31 0d 09  |%=2 . optn%=-1..|
00002410  f6 0e fd 20 6f 70 74 25  3c 3e 2d 31 0d 0a 00 0d  |... opt%<>-1....|
00002420  c8 8e 20 6f 70 74 25 20  ca 0d 0a 0a 0d c9 20 30  |.. opt% ...... 0|
00002430  3a 6e 32 25 3d 30 0d 0a  14 0d c9 20 31 3a 6e 32  |:n2%=0..... 1:n2|
00002440  25 3d 31 0d 0a 1e 0d c9  20 32 3a 6e 32 25 3d 32  |%=1..... 2:n2%=2|
00002450  0d 0a 28 05 cb 0d 0a 32  14 fd 20 6e 32 25 3e 2d  |..(....2.. n2%>-|
00002460  31 20 80 20 6e 32 25 3c  33 0d 0a 3c 2b e6 30 2c  |1 . n2%<3..<+.0,|
00002470  70 67 72 65 79 25 3a c8  93 20 c8 90 20 30 2c 36  |pgrey%:.. .. 0,6|
00002480  39 30 2c 31 35 39 39 2c  38 30 3a e6 30 2c 62 6c  |90,1599,80:.0,bl|
00002490  61 63 6b 25 0d 0a 46 57  ec 20 33 30 2c 37 35 30  |ack%..FW. 30,750|
000024a0  3a f1 22 4d 69 6e 69 6d  75 6d 20 6e 75 6d 62 65  |:."Minimum numbe|
000024b0  72 20 6f 66 20 62 6c 75  65 73 20 61 72 6f 75 6e  |r of blues aroun|
000024c0  64 20 67 72 65 79 20 73  70 61 63 65 20 74 6f 20  |d grey space to |
000024d0  66 65 65 64 20 74 68 65  20 79 6f 75 6e 67 20 72  |feed the young r|
000024e0  65 64 3d 20 22 3b 6e 32  25 2b 31 0d 0a 50 05 f5  |ed= ";n2%+1..P..|
000024f0  0d 0a 5a 17 e6 30 2c 64  62 72 6f 77 6e 25 3a ec  |..Z..0,dbrown%:.|
00002500  20 33 30 2c 36 37 30 0d  0a 64 62 f1 22 54 6f 20  | 30,670..db."To |
00002510  62 72 65 65 64 2c 20 74  68 65 20 6d 69 6e 69 6d  |breed, the minim|
00002520  75 6d 20 6e 75 6d 62 65  72 20 6f 66 20 62 6c 75  |um number of blu|
00002530  65 20 63 65 6c 6c 73 20  69 6e 20 74 68 69 73 20  |e cells in this |
00002540  67 72 6f 75 70 20 6f 66  20 38 20 6d 75 73 74 20  |group of 8 must |
00002550  62 65 20 32 2c 20 62 75  74 20 6d 61 79 20 68 61  |be 2, but may ha|
00002560  76 65 20 74 6f 20 62 65  22 0d 0a 6e 54 ec 20 33  |ve to be"..nT. 3|
00002570  30 2c 36 33 30 3a f1 22  67 72 65 61 74 65 72 20  |0,630:."greater |
00002580  69 66 20 65 78 74 72 61  20 70 72 65 79 20 61 72  |if extra prey ar|
00002590  65 20 6e 65 65 64 65 64  20 74 6f 20 70 72 6f 76  |e needed to prov|
000025a0  69 64 65 20 61 20 76 69  61 62 6c 65 20 62 72 65  |ide a viable bre|
000025b0  65 64 69 6e 67 20 67 72  6f 75 70 2e 22 0d 0a 78  |eding group."..x|
000025c0  53 ec 20 33 30 2c 35 39  30 3a f1 22 53 65 6c 65  |S. 30,590:."Sele|
000025d0  63 74 20 74 68 69 73 20  6d 69 6e 69 6d 75 6d 20  |ct this minimum |
000025e0  6e 75 6d 62 65 72 20 62  65 6c 6f 77 20 62 79 20  |number below by |
000025f0  63 6c 69 63 6b 69 6e 67  20 53 65 6c 65 63 74 20  |clicking Select |
00002600  6f 6e 20 61 20 62 6f 78  20 62 65 6c 6f 77 2e 22  |on a box below."|
00002610  0d 0a 82 08 f7 20 2b 36  0d 0a 8c 13 e3 20 6f 70  |..... +6..... op|
00002620  74 69 6f 6e 25 3d 30 20  b8 20 33 0d 0a 96 39 f2  |tion%=0 . 3...9.|
00002630  5f 62 75 74 74 6f 6e 28  36 34 2b 33 38 34 2a 6f  |_button(64+384*o|
00002640  70 74 69 6f 6e 25 2c 34  38 30 2c 35 30 2c 6d 67  |ption%,480,50,mg|
00002650  72 65 79 25 2c 64 67 72  65 79 25 2c 76 64 67 72  |rey%,dgrey%,vdgr|
00002660  65 79 25 29 0d 0a a0 0f  f3 20 63 6f 6c 72 25 2c  |ey%)..... colr%,|
00002670  6f 70 24 0d 0a aa 0d e6  20 30 2c 63 6f 6c 72 25  |op$..... 0,colr%|
00002680  0d 0a b4 09 f1 20 6f 70  24 0d 0a be 0d ed 20 6f  |..... op$..... o|
00002690  70 74 69 6f 6e 25 0d 0a  c8 24 dc 20 62 6c 75 65  |ption%...$. blue|
000026a0  25 2c 22 20 20 20 20 20  4d 69 6e 69 6d 75 6d 20  |%,"     Minimum |
000026b0  62 6c 75 65 73 20 3d 20  32 22 0d 0a d2 24 dc 20  |blues = 2"...$. |
000026c0  62 6c 75 65 25 2c 22 20  20 20 20 20 4d 69 6e 69  |blue%,"     Mini|
000026d0  6d 75 6d 20 62 6c 75 65  73 20 3d 20 33 22 0d 0a  |mum blues = 3"..|
000026e0  dc 24 dc 20 62 6c 75 65  25 2c 22 20 20 20 20 20  |.$. blue%,"     |
000026f0  4d 69 6e 69 6d 75 6d 20  62 6c 75 65 73 20 3d 20  |Minimum blues = |
00002700  34 22 0d 0a e6 24 dc 20  62 6c 75 65 25 2c 22 20  |4"...$. blue%," |
00002710  20 20 20 20 4d 69 6e 69  6d 75 6d 20 62 6c 75 65  |    Minimum blue|
00002720  73 20 3d 20 35 22 0d 0a  f0 0b 6f 70 74 25 3d 2d  |s = 5"....opt%=-|
00002730  31 0d 0a fa 0c 6f 70 74  6e 25 3d 2d 31 0d 0b 04  |1....optn%=-1...|
00002740  05 f5 0d 0b 0e 0c 6f 70  74 6e 25 2b 3d 31 0d 0b  |......optn%+=1..|
00002750  18 2b f2 5f 6d 6f 75 73  65 28 36 34 2b 33 38 34  |.+._mouse(64+384|
00002760  2a 6f 70 74 6e 25 2c 34  38 30 2c 35 30 2c 6f 70  |*optn%,480,50,op|
00002770  74 6e 25 2c 6f 70 74 25  29 0d 0b 22 18 e7 20 6f  |tn%,opt%)..".. o|
00002780  70 74 6e 25 3d 33 20 8c  20 6f 70 74 6e 25 3d 2d  |ptn%=3 . optn%=-|
00002790  31 0d 0b 2c 0e fd 20 6f  70 74 25 3c 3e 2d 31 0d  |1..,.. opt%<>-1.|
000027a0  0b 36 0d c8 8e 20 6f 70  74 25 20 ca 0d 0b 40 0d  |.6... opt% ...@.|
000027b0  c9 20 30 3a 6e 33 25 3d  31 0d 0b 4a 0d c9 20 31  |. 0:n3%=1..J.. 1|
000027c0  3a 6e 33 25 3d 32 0d 0b  54 0d c9 20 32 3a 6e 33  |:n3%=2..T.. 2:n3|
000027d0  25 3d 33 0d 0b 5e 0d c9  20 33 3a 6e 33 25 3d 34  |%=3..^.. 3:n3%=4|
000027e0  0d 0b 68 05 cb 0d 0b 72  13 fd 20 6e 33 25 3e 30  |..h....r.. n3%>0|
000027f0  20 80 20 6e 33 25 3c 35  0d 0b 7c 2c e6 30 2c 70  | . n3%<5..|,.0,p|
00002800  67 72 65 79 25 3a c8 93  20 c8 90 20 30 2c 34 37  |grey%:.. .. 0,47|
00002810  30 2c 31 35 39 39 2c 31  32 32 3a e6 30 2c 62 6c  |0,1599,122:.0,bl|
00002820  61 63 6b 25 0d 0b 86 61  ec 20 33 30 2c 35 36 30  |ack%...a. 30,560|
00002830  3a f1 22 4d 69 6e 69 6d  75 6d 20 6e 75 6d 62 65  |:."Minimum numbe|
00002840  72 20 6f 66 20 62 6c 75  65 73 20 61 72 6f 75 6e  |r of blues aroun|
00002850  64 20 67 72 65 79 20 73  70 61 63 65 20 74 6f 20  |d grey space to |
00002860  61 6c 6c 6f 77 20 62 72  65 65 64 69 6e 67 20 6f  |allow breeding o|
00002870  66 20 6d 6f 72 65 20 62  6c 75 65 73 3d 20 22 3b  |f more blues= ";|
00002880  6e 33 25 2b 31 0d 0b 90  05 f5 0d 0b 9a 17 e6 30  |n3%+1..........0|
00002890  2c 64 62 72 6f 77 6e 25  3a ec 20 33 30 2c 35 30  |,dbrown%:. 30,50|
000028a0  30 0d 0b a4 68 f1 22 53  75 63 63 65 73 73 66 75  |0...h."Successfu|
000028b0  6c 20 62 72 65 65 64 69  6e 67 20 6f 66 20 70 72  |l breeding of pr|
000028c0  65 79 28 62 6c 75 65 73  29 20 69 73 20 75 6e 6c  |ey(blues) is unl|
000028d0  69 6b 65 6c 79 20 69 66  20 74 68 65 72 65 20 61  |ikely if there a|
000028e0  72 65 20 70 72 65 64 61  74 6f 72 73 28 72 65 64  |re predators(red|
000028f0  73 29 20 61 72 6f 75 6e  64 20 74 68 65 20 67 72  |s) around the gr|
00002900  65 79 20 73 70 61 63 65  22 0d 0b ae 6f ec 20 33  |ey space"...o. 3|
00002910  30 2c 34 36 30 3a f1 22  73 6f 20 6f 6e 65 20 63  |0,460:."so one c|
00002920  61 6e 20 73 70 65 63 69  66 79 20 74 68 65 20 6d  |an specify the m|
00002930  61 78 69 6d 75 6d 20 6e  75 6d 62 65 72 20 6f 66  |aximum number of|
00002940  20 72 65 64 73 20 69 6e  20 74 68 65 20 38 20 73  | reds in the 8 s|
00002950  75 72 72 6f 75 6e 64 69  6e 67 20 73 70 61 63 65  |urrounding space|
00002960  73 20 74 68 61 74 20 63  61 6e 20 62 65 20 74 6f  |s that can be to|
00002970  74 65 72 61 74 65 64 22  0d 0b b8 3f ec 20 33 30  |terated"...?. 30|
00002980  2c 34 32 30 3a f1 22 74  68 61 74 20 77 69 6c 6c  |,420:."that will|
00002990  20 73 74 69 6c 6c 20 61  6c 6c 6f 77 20 74 68 65  | still allow the|
000029a0  20 70 72 65 79 28 62 6c  75 65 73 29 20 74 6f 20  | prey(blues) to |
000029b0  62 72 65 65 64 2e 22 0d  0b c2 08 f7 20 2b 36 0d  |breed."..... +6.|
000029c0  0b cc 13 e3 20 6f 70 74  69 6f 6e 25 3d 30 20 b8  |.... option%=0 .|
000029d0  20 32 0d 0b d6 3a f2 5f  62 75 74 74 6f 6e 28 31  | 2...:._button(1|
000029e0  34 34 2b 34 36 34 2a 6f  70 74 69 6f 6e 25 2c 33  |44+464*option%,3|
000029f0  32 30 2c 35 30 2c 6d 67  72 65 79 25 2c 64 67 72  |20,50,mgrey%,dgr|
00002a00  65 79 25 2c 76 64 67 72  65 79 25 29 0d 0b e0 0f  |ey%,vdgrey%)....|
00002a10  f3 20 63 6f 6c 72 25 2c  6f 70 24 0d 0b ea 0d e6  |. colr%,op$.....|
00002a20  20 30 2c 63 6f 6c 72 25  0d 0b f4 09 f1 20 6f 70  | 0,colr%..... op|
00002a30  24 0d 0b fe 0d ed 20 6f  70 74 69 6f 6e 25 0d 0c  |$..... option%..|
00002a40  08 22 dc 20 72 65 64 25  2c 22 20 20 20 20 20 4d  |.". red%,"     M|
00002a50  61 78 69 6d 75 6d 20 72  65 64 73 20 3d 20 30 22  |aximum reds = 0"|
00002a60  0d 0c 12 22 dc 20 72 65  64 25 2c 22 20 20 20 20  |...". red%,"    |
00002a70  20 4d 61 78 69 6d 75 6d  20 72 65 64 73 20 3d 20  | Maximum reds = |
00002a80  31 22 0d 0c 1c 22 dc 20  72 65 64 25 2c 22 20 20  |1"...". red%,"  |
00002a90  20 20 20 4d 61 78 69 6d  75 6d 20 72 65 64 73 20  |   Maximum reds |
00002aa0  3d 20 32 22 0d 0c 26 0b  6f 70 74 25 3d 2d 31 0d  |= 2"..&.opt%=-1.|
00002ab0  0c 30 0c 6f 70 74 6e 25  3d 2d 31 0d 0c 3a 05 f5  |.0.optn%=-1..:..|
00002ac0  0d 0c 44 0c 6f 70 74 6e  25 2b 3d 31 0d 0c 4e 2c  |..D.optn%+=1..N,|
00002ad0  f2 5f 6d 6f 75 73 65 28  31 34 34 2b 34 36 34 2a  |._mouse(144+464*|
00002ae0  6f 70 74 6e 25 2c 33 32  30 2c 35 30 2c 6f 70 74  |optn%,320,50,opt|
00002af0  6e 25 2c 6f 70 74 25 29  0d 0c 58 18 e7 20 6f 70  |n%,opt%)..X.. op|
00002b00  74 6e 25 3d 32 20 8c 20  6f 70 74 6e 25 3d 2d 31  |tn%=2 . optn%=-1|
00002b10  0d 0c 62 0e fd 20 6f 70  74 25 3c 3e 2d 31 0d 0c  |..b.. opt%<>-1..|
00002b20  6c 0d c8 8e 20 6f 70 74  25 20 ca 0d 0c 76 0d c9  |l... opt% ...v..|
00002b30  20 30 3a 6e 34 25 3d 31  0d 0c 80 0d c9 20 31 3a  | 0:n4%=1..... 1:|
00002b40  6e 34 25 3d 32 0d 0c 8a  0d c9 20 32 3a 6e 34 25  |n4%=2..... 2:n4%|
00002b50  3d 33 0d 0c 94 05 cb 0d  0c 9e 13 fd 20 6e 34 25  |=3.......... n4%|
00002b60  3e 30 20 80 20 6e 34 25  3c 34 0d 0c a8 2b e6 30  |>0 . n4%<4...+.0|
00002b70  2c 70 67 72 65 79 25 3a  c8 93 20 c8 90 20 30 2c  |,pgrey%:.. .. 0,|
00002b80  33 30 35 2c 31 35 39 39  2c 38 30 3a e6 30 2c 62  |305,1599,80:.0,b|
00002b90  6c 61 63 6b 25 0d 0c b2  65 ec 20 33 30 2c 33 36  |lack%...e. 30,36|
00002ba0  30 3a f1 22 4d 61 78 69  6d 75 6d 20 6e 75 6d 62  |0:."Maximum numb|
00002bb0  65 72 20 6f 66 20 72 65  64 73 20 61 72 6f 75 6e  |er of reds aroun|
00002bc0  64 20 67 72 65 79 20 73  70 61 63 65 20 74 68 61  |d grey space tha|
00002bd0  74 20 73 74 69 6c 6c 20  70 65 72 6d 69 74 20 74  |t still permit t|
00002be0  68 65 20 62 6c 75 65 73  20 74 6f 20 62 72 65 65  |he blues to bree|
00002bf0  64 3d 20 22 3b 6e 34 25  2d 31 0d 0c bc 05 f5 0d  |d= ";n4%-1......|
00002c00  0c c6 16 e6 30 2c 62 6c  61 63 6b 25 3a ec 20 39  |....0,black%:. 9|
00002c10  30 2c 32 32 30 0d 0c d0  42 f1 22 43 6c 69 63 6b  |0,220...B."Click|
00002c20  20 27 53 65 6c 65 63 74  27 20 6f 6e 20 74 68 65  | 'Select' on the|
00002c30  20 62 6f 78 20 62 65 6c  6f 77 20 74 6f 20 73 70  | box below to sp|
00002c40  65 63 69 66 79 20 70 61  72 61 6d 65 74 65 72 73  |ecify parameters|
00002c50  20 66 6f 72 20 22 3b 0d  0c da 30 e6 30 2c 72 65  | for ";...0.0,re|
00002c60  64 25 3a f1 22 72 65 64  20 73 71 75 61 72 65 73  |d%:."red squares|
00002c70  2c 20 22 3b 3a e6 30 2c  62 6c 61 63 6b 25 3a f1  |, ";:.0,black%:.|
00002c80  22 61 6e 64 20 22 3b 0d  0c e4 2c e6 30 2c 62 6c  |"and ";...,.0,bl|
00002c90  75 65 25 3a f1 22 62 6c  75 65 20 73 71 75 61 72  |ue%:."blue squar|
00002ca0  65 73 22 3b 3a e6 30 2c  62 6c 61 63 6b 25 3a f1  |es";:.0,black%:.|
00002cb0  22 2e 22 0d 0c ee 08 f7  20 2b 34 0d 0c f8 2d f2  |"."..... +4...-.|
00002cc0  5f 62 75 74 74 6f 6e 28  37 35 32 2c 36 34 2c 37  |_button(752,64,7|
00002cd0  30 2c 6d 67 72 65 79 25  2c 64 67 72 65 79 25 2c  |0,mgrey%,dgrey%,|
00002ce0  76 64 67 72 65 79 25 29  0d 0d 02 0f f3 20 63 6f  |vdgrey%)..... co|
00002cf0  6c 72 25 2c 6f 70 24 0d  0d 0c 0d e6 20 30 2c 63  |lr%,op$..... 0,c|
00002d00  6f 6c 72 25 0d 0d 16 09  f1 20 6f 70 24 0d 0d 20  |olr%..... op$.. |
00002d10  0d dc 20 72 65 64 25 2c  22 22 0d 0d 2a 0b 6f 70  |.. red%,""..*.op|
00002d20  74 25 3d 2d 31 0d 0d 34  0c 6f 70 74 6e 25 3d 2d  |t%=-1..4.optn%=-|
00002d30  31 0d 0d 3e 05 f5 0d 0d  48 0c 6f 70 74 6e 25 2b  |1..>....H.optn%+|
00002d40  3d 31 0d 0d 52 21 f2 5f  6d 6f 75 73 65 28 37 35  |=1..R!._mouse(75|
00002d50  32 2c 36 34 2c 37 30 2c  6f 70 74 6e 25 2c 6f 70  |2,64,70,optn%,op|
00002d60  74 25 29 0d 0d 5c 18 e7  20 6f 70 74 6e 25 3d 30  |t%)..\.. optn%=0|
00002d70  20 8c 20 6f 70 74 6e 25  3d 2d 31 0d 0d 66 0e fd  | . optn%=-1..f..|
00002d80  20 6f 70 74 25 3c 3e 2d  31 0d 0d 70 0c fd 20 6f  | opt%<>-1..p.. o|
00002d90  70 74 25 3d 30 0d 0d 7a  21 e6 30 2c 70 67 72 65  |pt%=0..z!.0,pgre|
00002da0  79 25 3a c8 93 20 c8 90  20 30 2c 30 2c 31 35 39  |y%:.. .. 0,0,159|
00002db0  39 2c 31 31 34 30 0d 0d  84 05 f5 0d 0d 8e 10 c8  |9,1140..........|
00002dc0  97 20 b8 20 31 30 30 2c  36 30 30 0d 0d 98 1a ef  |. . 100,600.....|
00002dd0  20 32 33 2c 31 37 2c 37  2c 36 2c 31 36 3b 31 36  | 23,17,7,6,16;16|
00002de0  3b 30 3b 30 3b 0d 0d a2  34 e6 30 2c 72 65 64 25  |;0;0;...4.0,red%|
00002df0  3a ec 20 33 30 2c 31 31  32 30 3a f1 20 22 32 2c  |:. 30,1120:. "2,|
00002e00  20 20 50 72 6f 63 65 73  73 69 6e 67 20 72 65 64  |  Processing red|
00002e10  20 61 72 65 61 73 3a 2d  22 0d 0d ac 19 ef 20 32  | areas:-"..... 2|
00002e20  33 2c 31 37 2c 37 2c 36  2c 38 3b 31 36 3b 30 3b  |3,17,7,6,8;16;0;|
00002e30  30 3b 0d 0d b6 0e e6 30  2c 64 62 72 6f 77 6e 25  |0;.....0,dbrown%|
00002e40  0d 0d c0 71 ec 20 33 30  2c 31 30 36 30 3a f1 20  |...q. 30,1060:. |
00002e50  22 45 61 63 68 20 72 65  64 20 73 71 75 61 72 65  |"Each red square|
00002e60  20 69 73 20 73 75 72 72  6f 75 6e 64 65 64 20 62  | is surrounded b|
00002e70  79 20 38 20 73 71 75 61  72 65 73 2c 20 65 61 63  |y 8 squares, eac|
00002e80  68 20 6f 66 20 77 68 69  63 68 20 63 6f 75 6c 64  |h of which could|
00002e90  20 62 65 20 70 72 65 64  61 74 6f 72 28 72 65 64  | be predator(red|
00002ea0  29 2c 20 70 72 65 79 28  62 6c 75 65 29 20 6f 72  |), prey(blue) or|
00002eb0  22 0d 0d ca 70 ec 20 33  30 2c 31 30 32 30 3a f1  |"...p. 30,1020:.|
00002ec0  22 65 6d 70 74 79 28 67  72 65 79 29 2e 20 46 6f  |"empty(grey). Fo|
00002ed0  72 20 74 68 65 20 70 72  65 64 61 74 6f 72 73 28  |r the predators(|
00002ee0  72 65 64 73 29 20 74 6f  20 73 75 72 76 69 76 65  |reds) to survive|
00002ef0  20 74 68 65 79 20 6d 75  73 74 20 68 61 76 65 20  | they must have |
00002f00  70 72 65 79 28 62 6c 75  65 73 29 20 74 6f 20 65  |prey(blues) to e|
00002f10  61 74 2e 20 48 65 72 65  20 6f 6e 65 20 63 61 6e  |at. Here one can|
00002f20  22 0d 0d d4 70 ec 20 33  30 2c 39 38 30 3a f1 22  |"...p. 30,980:."|
00002f30  73 70 65 63 69 66 79 20  74 68 65 20 6d 69 6d 69  |specify the mimi|
00002f40  6d 75 6d 20 6e 75 6d 62  65 72 20 6f 66 20 73 75  |mum number of su|
00002f50  72 72 6f 75 6e 64 69 6e  67 20 70 72 65 79 20 69  |rrounding prey i|
00002f60  6e 20 6f 72 64 65 72 20  74 6f 20 65 6e 73 75 72  |n order to ensur|
00002f70  65 20 74 68 61 74 20 6f  6e 65 20 63 61 6e 20 62  |e that one can b|
00002f80  65 20 63 61 75 67 68 74  20 74 6f 20 65 61 74 2e  |e caught to eat.|
00002f90  22 0d 0d de 53 ec 20 33  30 2c 39 34 30 3a f1 22  |"...S. 30,940:."|
00002fa0  53 65 6c 65 63 74 20 74  68 69 73 20 6d 69 6e 69  |Select this mini|
00002fb0  6d 75 6d 20 6e 75 6d 62  65 72 20 62 65 6c 6f 77  |mum number below|
00002fc0  20 62 79 20 63 6c 69 63  6b 69 6e 67 20 53 65 6c  | by clicking Sel|
00002fd0  65 63 74 20 6f 6e 20 61  20 62 6f 78 20 62 65 6c  |ect on a box bel|
00002fe0  6f 77 2e 22 0d 0d e8 08  f7 20 2b 36 0d 0d f2 13  |ow."..... +6....|
00002ff0  e3 20 6f 70 74 69 6f 6e  25 3d 30 20 b8 20 33 0d  |. option%=0 . 3.|
00003000  0d fc 39 f2 5f 62 75 74  74 6f 6e 28 36 34 2b 33  |..9._button(64+3|
00003010  38 34 2a 6f 70 74 69 6f  6e 25 2c 38 33 32 2c 35  |84*option%,832,5|
00003020  30 2c 6d 67 72 65 79 25  2c 64 67 72 65 79 25 2c  |0,mgrey%,dgrey%,|
00003030  76 64 67 72 65 79 25 29  0d 0e 06 0f f3 20 63 6f  |vdgrey%)..... co|
00003040  6c 72 25 2c 6f 70 24 0d  0e 10 0d e6 20 30 2c 63  |lr%,op$..... 0,c|
00003050  6f 6c 72 25 0d 0e 1a 09  f1 20 6f 70 24 0d 0e 24  |olr%..... op$..$|
00003060  0d ed 20 6f 70 74 69 6f  6e 25 0d 0e 2e 24 dc 20  |.. option%...$. |
00003070  62 6c 75 65 25 2c 22 20  20 20 20 20 4d 69 6e 69  |blue%,"     Mini|
00003080  6d 75 6d 20 62 6c 75 65  73 20 3d 20 31 22 0d 0e  |mum blues = 1"..|
00003090  38 24 dc 20 62 6c 75 65  25 2c 22 20 20 20 20 20  |8$. blue%,"     |
000030a0  4d 69 6e 69 6d 75 6d 20  62 6c 75 65 73 20 3d 20  |Minimum blues = |
000030b0  32 22 0d 0e 42 24 dc 20  62 6c 75 65 25 2c 22 20  |2"..B$. blue%," |
000030c0  20 20 20 20 4d 69 6e 69  6d 75 6d 20 62 6c 75 65  |    Minimum blue|
000030d0  73 20 3d 20 33 22 0d 0e  4c 24 dc 20 62 6c 75 65  |s = 3"..L$. blue|
000030e0  25 2c 22 20 20 20 20 20  4d 69 6e 69 6d 75 6d 20  |%,"     Minimum |
000030f0  62 6c 75 65 73 20 3d 20  34 22 0d 0e 56 0b 6f 70  |blues = 4"..V.op|
00003100  74 25 3d 2d 31 0d 0e 60  0c 6f 70 74 6e 25 3d 2d  |t%=-1..`.optn%=-|
00003110  31 0d 0e 6a 05 f5 0d 0e  74 0c 6f 70 74 6e 25 2b  |1..j....t.optn%+|
00003120  3d 31 0d 0e 7e 2b f2 5f  6d 6f 75 73 65 28 36 34  |=1..~+._mouse(64|
00003130  2b 33 38 34 2a 6f 70 74  6e 25 2c 38 33 32 2c 35  |+384*optn%,832,5|
00003140  30 2c 6f 70 74 6e 25 2c  6f 70 74 25 29 0d 0e 88  |0,optn%,opt%)...|
00003150  18 e7 20 6f 70 74 6e 25  3d 33 20 8c 20 6f 70 74  |.. optn%=3 . opt|
00003160  6e 25 3d 2d 31 0d 0e 92  0e fd 20 6f 70 74 25 3c  |n%=-1..... opt%<|
00003170  3e 2d 31 0d 0e 9c 0d c8  8e 20 6f 70 74 25 20 ca  |>-1...... opt% .|
00003180  0d 0e a6 0d c9 20 30 3a  6e 35 25 3d 31 0d 0e b0  |..... 0:n5%=1...|
00003190  0d c9 20 31 3a 6e 35 25  3d 32 0d 0e ba 0d c9 20  |.. 1:n5%=2..... |
000031a0  32 3a 6e 35 25 3d 33 0d  0e c4 0d c9 20 33 3a 6e  |2:n5%=3..... 3:n|
000031b0  35 25 3d 34 0d 0e ce 05  cb 0d 0e d8 13 fd 20 6e  |5%=4.......... n|
000031c0  35 25 3e 30 20 80 20 6e  35 25 3c 35 0d 0e e2 2c  |5%>0 . n5%<5...,|
000031d0  e6 30 2c 70 67 72 65 79  25 3a c8 93 20 c8 90 20  |.0,pgrey%:.. .. |
000031e0  30 2c 38 32 34 2c 31 35  39 39 2c 31 32 30 3a e6  |0,824,1599,120:.|
000031f0  30 2c 62 6c 61 63 6b 25  0d 0e ec 5d ec 20 33 30  |0,black%...]. 30|
00003200  2c 39 32 30 3a f1 22 4d  69 6e 69 6d 75 6d 20 6e  |,920:."Minimum n|
00003210  75 6d 62 65 72 20 6f 66  20 62 6c 75 65 73 20 61  |umber of blues a|
00003220  72 6f 75 6e 64 20 72 65  64 20 73 71 75 61 72 65  |round red square|
00003230  20 74 6f 20 70 72 65 76  65 6e 74 20 72 65 64 20  | to prevent red |
00003240  66 72 6f 6d 20 73 74 61  72 76 69 6e 67 20 3d 20  |from starving = |
00003250  22 3b 6e 35 25 0d 0e f6  05 f5 0d 0f 00 10 c8 97  |";n5%...........|
00003260  20 b8 20 31 30 30 2c 36  30 30 0d 0f 0a 0e e6 30  | . 100,600.....0|
00003270  2c 64 62 72 6f 77 6e 25  0d 0f 14 6c ec 20 33 30  |,dbrown%...l. 30|
00003280  2c 38 34 30 3a f1 20 22  50 72 65 64 61 74 6f 72  |,840:. "Predator|
00003290  73 28 72 65 64 73 29 20  63 61 6e 20 64 69 65 20  |s(reds) can die |
000032a0  6f 66 20 6f 74 68 65 72  20 63 61 75 73 65 73 2c  |of other causes,|
000032b0  20 2d 20 69 6c 6c 6e 65  73 73 2c 20 64 69 73 65  | - illness, dise|
000032c0  61 73 65 2c 20 61 63 63  69 64 65 6e 74 73 2c 20  |ase, accidents, |
000032d0  6f 6c 64 20 61 67 65 20  2d 20 73 6f 20 77 65 20  |old age - so we |
000032e0  63 61 6e 22 0d 0f 1e 69  ec 20 33 30 2c 38 30 30  |can"...i. 30,800|
000032f0  3a f1 22 73 70 65 63 69  66 79 20 74 68 65 20 61  |:."specify the a|
00003300  76 65 72 61 67 65 20 70  65 72 63 65 6e 74 61 67  |verage percentag|
00003310  65 20 6f 66 20 74 68 65  20 72 65 64 20 70 6f 70  |e of the red pop|
00003320  75 6c 61 74 69 6f 6e 20  74 68 61 74 20 69 73 20  |ulation that is |
00003330  6c 69 6b 65 6c 79 20 74  6f 20 64 69 65 20 69 6e  |likely to die in|
00003340  20 65 61 63 68 20 63 79  63 6c 65 2e 22 0d 0f 28  | each cycle."..(|
00003350  5f ec 20 33 30 2c 37 36  30 3a f1 22 43 68 6f 6f  |_. 30,760:."Choo|
00003360  73 65 20 74 68 69 73 20  70 65 72 63 65 6e 74 61  |se this percenta|
00003370  67 65 20 62 79 20 63 6c  69 63 6b 69 6e 67 20 77  |ge by clicking w|
00003380  69 74 68 20 74 68 65 20  6d 6f 75 73 65 20 53 65  |ith the mouse Se|
00003390  6c 65 63 74 20 62 75 74  74 6f 6e 20 6f 6e 20 61  |lect button on a|
000033a0  20 62 6f 78 20 62 65 6c  6f 77 2e 22 0d 0f 32 08  | box below."..2.|
000033b0  f7 20 2b 36 0d 0f 3c 13  e3 20 6f 70 74 69 6f 6e  |. +6..<.. option|
000033c0  25 3d 30 20 b8 20 35 0d  0f 46 39 f2 5f 62 75 74  |%=0 . 5..F9._but|
000033d0  74 6f 6e 28 38 30 2b 32  35 36 2a 6f 70 74 69 6f  |ton(80+256*optio|
000033e0  6e 25 2c 36 34 30 2c 35  30 2c 6d 67 72 65 79 25  |n%,640,50,mgrey%|
000033f0  2c 64 67 72 65 79 25 2c  76 64 67 72 65 79 25 29  |,dgrey%,vdgrey%)|
00003400  0d 0f 50 0f f3 20 63 6f  6c 72 25 2c 6f 70 24 0d  |..P.. colr%,op$.|
00003410  0f 5a 0d e6 20 30 2c 63  6f 6c 72 25 0d 0f 64 09  |.Z.. 0,colr%..d.|
00003420  f1 20 6f 70 24 0d 0f 6e  0d ed 20 6f 70 74 69 6f  |. op$..n.. optio|
00003430  6e 25 0d 0f 78 16 dc 20  72 65 64 25 2c 22 20 20  |n%..x.. red%,"  |
00003440  20 20 20 20 31 30 25 22  0d 0f 82 16 dc 20 72 65  |    10%"..... re|
00003450  64 25 2c 22 20 20 20 20  20 20 32 30 25 22 0d 0f  |d%,"      20%"..|
00003460  8c 16 dc 20 72 65 64 25  2c 22 20 20 20 20 20 20  |... red%,"      |
00003470  33 30 25 22 0d 0f 96 16  dc 20 72 65 64 25 2c 22  |30%"..... red%,"|
00003480  20 20 20 20 20 20 34 30  25 22 0d 0f a0 16 dc 20  |      40%"..... |
00003490  72 65 64 25 2c 22 20 20  20 20 20 20 35 30 25 22  |red%,"      50%"|
000034a0  0d 0f aa 16 dc 20 72 65  64 25 2c 22 20 20 20 20  |..... red%,"    |
000034b0  20 20 36 30 25 22 0d 0f  b4 0b 6f 70 74 25 3d 2d  |  60%"....opt%=-|
000034c0  31 0d 0f be 0c 6f 70 74  6e 25 3d 2d 31 0d 0f c8  |1....optn%=-1...|
000034d0  05 f5 0d 0f d2 0c 6f 70  74 6e 25 2b 3d 31 0d 0f  |......optn%+=1..|
000034e0  dc 2b f2 5f 6d 6f 75 73  65 28 38 30 2b 32 35 36  |.+._mouse(80+256|
000034f0  2a 6f 70 74 6e 25 2c 36  34 30 2c 35 30 2c 6f 70  |*optn%,640,50,op|
00003500  74 6e 25 2c 6f 70 74 25  29 0d 0f e6 18 e7 20 6f  |tn%,opt%)..... o|
00003510  70 74 6e 25 3d 35 20 8c  20 6f 70 74 6e 25 3d 2d  |ptn%=5 . optn%=-|
00003520  31 0d 0f f0 0e fd 20 6f  70 74 25 3c 3e 2d 31 0d  |1..... opt%<>-1.|
00003530  0f fa 0d c8 8e 20 6f 70  74 25 20 ca 0d 10 04 0e  |..... opt% .....|
00003540  c9 20 30 3a 70 72 25 3d  31 30 0d 10 0e 0e c9 20  |. 0:pr%=10..... |
00003550  31 3a 70 72 25 3d 32 30  0d 10 18 0e c9 20 32 3a  |1:pr%=20..... 2:|
00003560  70 72 25 3d 33 30 0d 10  22 0e c9 20 33 3a 70 72  |pr%=30..".. 3:pr|
00003570  25 3d 34 30 0d 10 2c 0e  c9 20 34 3a 70 72 25 3d  |%=40..,.. 4:pr%=|
00003580  35 30 0d 10 36 0e c9 20  35 3a 70 72 25 3d 36 30  |50..6.. 5:pr%=60|
00003590  0d 10 40 05 cb 0d 10 4a  14 fd 20 70 72 25 3e 30  |..@....J.. pr%>0|
000035a0  20 80 20 70 72 25 3c 37  30 0d 10 54 2c e6 30 2c  | . pr%<70..T,.0,|
000035b0  70 67 72 65 79 25 3a c8  93 20 c8 90 20 30 2c 36  |pgrey%:.. .. 0,6|
000035c0  33 30 2c 31 35 39 39 2c  31 33 35 3a e6 30 2c 62  |30,1599,135:.0,b|
000035d0  6c 61 63 6b 25 0d 10 5e  4e ec 20 33 30 2c 37 34  |lack%..^N. 30,74|
000035e0  30 3a f1 22 41 76 65 72  61 67 65 20 70 65 72 63  |0:."Average perc|
000035f0  65 6e 74 61 67 65 20 6f  66 20 27 61 63 63 69 64  |entage of 'accid|
00003600  65 6e 74 61 6c 27 20 72  65 64 20 64 65 61 74 68  |ental' red death|
00003610  73 20 70 65 72 20 63 79  63 6c 65 20 3d 20 22 3b  |s per cycle = ";|
00003620  70 72 25 0d 10 68 05 f5  0d 10 72 10 c8 97 20 b8  |pr%..h....r... .|
00003630  20 31 30 30 2c 36 30 30  0d 10 7c 1a ef 20 32 33  | 100,600..|.. 23|
00003640  2c 31 37 2c 37 2c 36 2c  31 36 3b 31 36 3b 30 3b  |,17,7,6,16;16;0;|
00003650  30 3b 0d 10 86 35 e6 30  2c 62 6c 75 65 25 3a ec  |0;...5.0,blue%:.|
00003660  20 33 30 2c 36 37 30 3a  f1 20 22 33 2c 20 20 50  | 30,670:. "3,  P|
00003670  72 6f 63 65 73 73 69 6e  67 20 62 6c 75 65 20 61  |rocessing blue a|
00003680  72 65 61 73 3a 2d 22 0d  10 90 19 ef 20 32 33 2c  |reas:-"..... 23,|
00003690  31 37 2c 37 2c 36 2c 38  3b 31 36 3b 30 3b 30 3b  |17,7,6,8;16;0;0;|
000036a0  0d 10 9a 0e e6 30 2c 64  62 72 6f 77 6e 25 0d 10  |.....0,dbrown%..|
000036b0  a4 6e ec 20 33 30 2c 36  32 30 3a f1 20 22 50 72  |.n. 30,620:. "Pr|
000036c0  65 79 28 74 68 65 20 62  6c 75 65 73 29 20 61 72  |ey(the blues) ar|
000036d0  65 20 6c 69 6b 65 6c 79  20 74 6f 20 62 65 20 6b  |e likely to be k|
000036e0  69 6c 6c 65 64 20 69 66  20 6d 6f 72 65 20 74 68  |illed if more th|
000036f0  61 6e 20 61 20 73 70 65  63 69 66 69 61 62 6c 65  |an a specifiable|
00003700  20 6e 75 6d 62 65 72 20  6f 66 20 70 72 65 64 61  | number of preda|
00003710  74 6f 72 73 28 72 65 64  73 29 20 22 0d 10 ae 31  |tors(reds) "...1|
00003720  ec 20 33 30 2c 35 38 30  3a f1 22 61 72 65 20 69  |. 30,580:."are i|
00003730  6e 20 74 68 65 20 73 75  72 72 6f 75 6e 64 69 6e  |n the surroundin|
00003740  67 20 38 20 73 71 75 61  72 65 73 2e 22 0d 10 b8  |g 8 squares."...|
00003750  46 ec 20 33 30 2c 35 34  30 3a f1 22 43 68 6f 6f  |F. 30,540:."Choo|
00003760  73 65 20 74 68 69 73 20  6d 69 6e 69 6d 75 6d 20  |se this minimum |
00003770  6e 75 6d 62 65 72 20 62  79 20 63 6c 69 63 6b 69  |number by clicki|
00003780  6e 67 20 6f 6e 20 61 20  62 6f 78 20 62 65 6c 6f  |ng on a box belo|
00003790  77 2e 22 0d 10 c2 08 f7  20 2b 36 0d 10 cc 13 e3  |w."..... +6.....|
000037a0  20 6f 70 74 69 6f 6e 25  3d 30 20 b8 20 33 0d 10  | option%=0 . 3..|
000037b0  d6 39 f2 5f 62 75 74 74  6f 6e 28 36 34 2b 33 38  |.9._button(64+38|
000037c0  34 2a 6f 70 74 69 6f 6e  25 2c 34 33 32 2c 35 30  |4*option%,432,50|
000037d0  2c 6d 67 72 65 79 25 2c  64 67 72 65 79 25 2c 76  |,mgrey%,dgrey%,v|
000037e0  64 67 72 65 79 25 29 0d  10 e0 0f f3 20 63 6f 6c  |dgrey%)..... col|
000037f0  72 25 2c 6f 70 24 0d 10  ea 0d e6 20 30 2c 63 6f  |r%,op$..... 0,co|
00003800  6c 72 25 0d 10 f4 09 f1  20 6f 70 24 0d 10 fe 0d  |lr%..... op$....|
00003810  ed 20 6f 70 74 69 6f 6e  25 0d 11 08 22 dc 20 72  |. option%...". r|
00003820  65 64 25 2c 22 20 20 20  20 20 4d 61 78 69 6d 75  |ed%,"     Maximu|
00003830  6d 20 72 65 64 73 20 3d  20 30 22 0d 11 12 22 dc  |m reds = 0"...".|
00003840  20 72 65 64 25 2c 22 20  20 20 20 20 4d 61 78 69  | red%,"     Maxi|
00003850  6d 75 6d 20 72 65 64 73  20 3d 20 31 22 0d 11 1c  |mum reds = 1"...|
00003860  22 dc 20 72 65 64 25 2c  22 20 20 20 20 20 4d 61  |". red%,"     Ma|
00003870  78 69 6d 75 6d 20 72 65  64 73 20 3d 20 32 22 0d  |ximum reds = 2".|
00003880  11 26 22 dc 20 72 65 64  25 2c 22 20 20 20 20 20  |.&". red%,"     |
00003890  4d 61 78 69 6d 75 6d 20  72 65 64 73 20 3d 20 33  |Maximum reds = 3|
000038a0  22 0d 11 30 0b 6f 70 74  25 3d 2d 31 0d 11 3a 0c  |"..0.opt%=-1..:.|
000038b0  6f 70 74 6e 25 3d 2d 31  0d 11 44 05 f5 0d 11 4e  |optn%=-1..D....N|
000038c0  0c 6f 70 74 6e 25 2b 3d  31 0d 11 58 2b f2 5f 6d  |.optn%+=1..X+._m|
000038d0  6f 75 73 65 28 36 34 2b  33 38 34 2a 6f 70 74 6e  |ouse(64+384*optn|
000038e0  25 2c 34 33 32 2c 35 30  2c 6f 70 74 6e 25 2c 6f  |%,432,50,optn%,o|
000038f0  70 74 25 29 0d 11 62 18  e7 20 6f 70 74 6e 25 3d  |pt%)..b.. optn%=|
00003900  33 20 8c 20 6f 70 74 6e  25 3d 2d 31 0d 11 6c 0e  |3 . optn%=-1..l.|
00003910  fd 20 6f 70 74 25 3c 3e  2d 31 0d 11 76 0d c8 8e  |. opt%<>-1..v...|
00003920  20 6f 70 74 25 20 ca 0d  11 80 0d c9 20 30 3a 6e  | opt% ...... 0:n|
00003930  36 25 3d 30 0d 11 8a 0d  c9 20 31 3a 6e 36 25 3d  |6%=0..... 1:n6%=|
00003940  31 0d 11 94 0d c9 20 32  3a 6e 36 25 3d 32 0d 11  |1..... 2:n6%=2..|
00003950  9e 0d c9 20 33 3a 6e 36  25 3d 33 0d 11 a8 05 cb  |... 3:n6%=3.....|
00003960  0d 11 b2 14 fd 20 6e 36  25 3e 2d 31 20 80 20 6e  |..... n6%>-1 . n|
00003970  36 25 3c 34 0d 11 bc 2c  e6 30 2c 70 67 72 65 79  |6%<4...,.0,pgrey|
00003980  25 3a c8 93 20 c8 90 20  30 2c 34 32 35 2c 31 35  |%:.. .. 0,425,15|
00003990  39 39 2c 31 32 30 3a e6  30 2c 62 6c 61 63 6b 25  |99,120:.0,black%|
000039a0  0d 11 c6 59 ec 20 33 30  2c 35 33 30 3a f1 22 4d  |...Y. 30,530:."M|
000039b0  61 78 69 6d 75 6d 20 6e  75 6d 62 65 72 20 6f 66  |aximum number of|
000039c0  20 72 65 64 73 20 61 72  6f 75 6e 64 20 62 6c 75  | reds around blu|
000039d0  65 20 73 71 75 61 72 65  20 77 69 74 68 6f 75 74  |e square without|
000039e0  20 62 6c 75 65 20 62 65  69 6e 67 20 65 61 74 65  | blue being eate|
000039f0  6e 20 3d 20 22 3b 6e 36  25 0d 11 d0 05 f5 0d 11  |n = ";n6%.......|
00003a00  da 0e e6 30 2c 64 62 72  6f 77 6e 25 0d 11 e4 70  |...0,dbrown%...p|
00003a10  ec 20 33 30 2c 34 34 30  3a f1 20 22 50 72 65 79  |. 30,440:. "Prey|
00003a20  28 62 6c 75 65 73 29 20  63 61 6e 20 64 69 65 20  |(blues) can die |
00003a30  6f 66 20 6f 74 68 65 72  20 63 61 75 73 65 73 2c  |of other causes,|
00003a40  20 2d 20 69 6c 6c 6e 65  73 73 2c 20 64 69 73 65  | - illness, dise|
00003a50  61 73 65 2c 20 61 63 63  69 64 65 6e 74 73 2c 20  |ase, accidents, |
00003a60  6f 6c 64 20 61 67 65 20  2d 20 73 6f 20 77 65 20  |old age - so we |
00003a70  63 61 6e 20 73 70 65 63  69 66 79 22 0d 11 ee 6b  |can specify"...k|
00003a80  ec 20 33 30 2c 34 30 30  3a f1 22 74 68 65 20 61  |. 30,400:."the a|
00003a90  76 65 72 61 67 65 20 70  65 72 63 65 6e 74 61 67  |verage percentag|
00003aa0  65 20 6f 66 20 74 68 65  20 62 6c 75 65 20 70 6f  |e of the blue po|
00003ab0  70 75 6c 61 74 69 6f 6e  20 74 68 61 74 20 6d 61  |pulation that ma|
00003ac0  79 20 64 69 65 20 69 6e  20 65 61 63 68 20 63 79  |y die in each cy|
00003ad0  63 6c 65 20 66 72 6f 6d  20 74 68 65 73 65 20 63  |cle from these c|
00003ae0  61 75 73 65 73 2e 22 0d  11 f8 5f ec 20 33 30 2c  |auses."..._. 30,|
00003af0  33 36 30 3a f1 22 43 68  6f 6f 73 65 20 74 68 69  |360:."Choose thi|
00003b00  73 20 70 65 72 63 65 6e  74 61 67 65 20 62 79 20  |s percentage by |
00003b10  63 6c 69 63 6b 69 6e 67  20 77 69 74 68 20 74 68  |clicking with th|
00003b20  65 20 6d 6f 75 73 65 20  53 65 6c 65 63 74 20 62  |e mouse Select b|
00003b30  75 74 74 6f 6e 20 6f 6e  20 61 20 62 6f 78 20 62  |utton on a box b|
00003b40  65 6c 6f 77 2e 22 0d 12  02 08 f7 20 2b 36 0d 12  |elow."..... +6..|
00003b50  0c 13 e3 20 6f 70 74 69  6f 6e 25 3d 30 20 b8 20  |... option%=0 . |
00003b60  35 0d 12 16 39 f2 5f 62  75 74 74 6f 6e 28 38 30  |5...9._button(80|
00003b70  2b 32 35 36 2a 6f 70 74  69 6f 6e 25 2c 32 34 30  |+256*option%,240|
00003b80  2c 35 30 2c 6d 67 72 65  79 25 2c 64 67 72 65 79  |,50,mgrey%,dgrey|
00003b90  25 2c 76 64 67 72 65 79  25 29 0d 12 20 0f f3 20  |%,vdgrey%).. .. |
00003ba0  63 6f 6c 72 25 2c 6f 70  24 0d 12 2a 0d e6 20 30  |colr%,op$..*.. 0|
00003bb0  2c 63 6f 6c 72 25 0d 12  34 09 f1 20 6f 70 24 0d  |,colr%..4.. op$.|
00003bc0  12 3e 0d ed 20 6f 70 74  69 6f 6e 25 0d 12 48 17  |.>.. option%..H.|
00003bd0  dc 20 62 6c 75 65 25 2c  22 20 20 20 20 20 20 31  |. blue%,"      1|
00003be0  30 25 22 0d 12 52 17 dc  20 62 6c 75 65 25 2c 22  |0%"..R.. blue%,"|
00003bf0  20 20 20 20 20 20 32 30  25 22 0d 12 5c 17 dc 20  |      20%"..\.. |
00003c00  62 6c 75 65 25 2c 22 20  20 20 20 20 20 33 30 25  |blue%,"      30%|
00003c10  22 0d 12 66 17 dc 20 62  6c 75 65 25 2c 22 20 20  |"..f.. blue%,"  |
00003c20  20 20 20 20 34 30 25 22  0d 12 70 17 dc 20 62 6c  |    40%"..p.. bl|
00003c30  75 65 25 2c 22 20 20 20  20 20 20 35 30 25 22 0d  |ue%,"      50%".|
00003c40  12 7a 17 dc 20 62 6c 75  65 25 2c 22 20 20 20 20  |.z.. blue%,"    |
00003c50  20 20 36 30 25 22 0d 12  84 0b 6f 70 74 25 3d 2d  |  60%"....opt%=-|
00003c60  31 0d 12 8e 0c 6f 70 74  6e 25 3d 2d 31 0d 12 98  |1....optn%=-1...|
00003c70  05 f5 0d 12 a2 0c 6f 70  74 6e 25 2b 3d 31 0d 12  |......optn%+=1..|
00003c80  ac 2b f2 5f 6d 6f 75 73  65 28 38 30 2b 32 35 36  |.+._mouse(80+256|
00003c90  2a 6f 70 74 6e 25 2c 32  34 30 2c 35 30 2c 6f 70  |*optn%,240,50,op|
00003ca0  74 6e 25 2c 6f 70 74 25  29 0d 12 b6 18 e7 20 6f  |tn%,opt%)..... o|
00003cb0  70 74 6e 25 3d 35 20 8c  20 6f 70 74 6e 25 3d 2d  |ptn%=5 . optn%=-|
00003cc0  31 0d 12 c0 0e fd 20 6f  70 74 25 3c 3e 2d 31 0d  |1..... opt%<>-1.|
00003cd0  12 ca 0d c8 8e 20 6f 70  74 25 20 ca 0d 12 d4 0e  |..... opt% .....|
00003ce0  c9 20 30 3a 70 62 25 3d  31 30 0d 12 de 0e c9 20  |. 0:pb%=10..... |
00003cf0  31 3a 70 62 25 3d 32 30  0d 12 e8 0e c9 20 32 3a  |1:pb%=20..... 2:|
00003d00  70 62 25 3d 33 30 0d 12  f2 0e c9 20 33 3a 70 62  |pb%=30..... 3:pb|
00003d10  25 3d 34 30 0d 12 fc 0e  c9 20 34 3a 70 62 25 3d  |%=40..... 4:pb%=|
00003d20  35 30 0d 13 06 0e c9 20  35 3a 70 62 25 3d 36 30  |50..... 5:pb%=60|
00003d30  0d 13 10 05 cb 0d 13 1a  14 fd 20 70 62 25 3e 30  |.......... pb%>0|
00003d40  20 80 20 70 62 25 3c 37  30 0d 13 24 2c e6 30 2c  | . pb%<70..$,.0,|
00003d50  70 67 72 65 79 25 3a c8  93 20 c8 90 20 30 2c 32  |pgrey%:.. .. 0,2|
00003d60  33 30 2c 31 35 39 39 2c  31 33 35 3a e6 30 2c 62  |30,1599,135:.0,b|
00003d70  6c 61 63 6b 25 0d 13 2e  4f ec 20 33 30 2c 33 34  |lack%...O. 30,34|
00003d80  30 3a f1 22 41 76 65 72  61 67 65 20 70 65 72 63  |0:."Average perc|
00003d90  65 6e 74 61 67 65 20 6f  66 20 27 61 63 63 69 64  |entage of 'accid|
00003da0  65 6e 74 61 6c 27 20 62  6c 75 65 20 64 65 61 74  |ental' blue deat|
00003db0  68 73 20 70 65 72 20 63  79 63 6c 65 20 3d 20 22  |hs per cycle = "|
00003dc0  3b 70 62 25 0d 13 38 05  e1 0d 13 42 16 dd 20 f2  |;pb%..8....B.. .|
00003dd0  74 75 74 5f 63 6f 6d 5f  63 6f 6c 6f 75 72 73 0d  |tut_com_colours.|
00003de0  13 4c 13 70 67 72 65 79  25 20 20 20 20 20 3d 20  |.L.pgrey%     = |
00003df0  20 30 0d 13 56 13 64 62  72 6f 77 6e 25 20 20 20  | 0..V.dbrown%   |
00003e00  20 3d 20 20 31 0d 13 60  13 62 6c 75 65 25 20 20  | =  1..`.blue%  |
00003e10  20 20 20 20 3d 20 20 34  0d 13 6a 13 72 65 64 25  |    =  4..j.red%|
00003e20  20 20 20 20 20 20 20 3d  20 20 35 0d 13 74 13 77  |       =  5..t.w|
00003e30  68 69 74 65 25 20 20 20  20 20 3d 20 20 37 0d 13  |hite%     =  7..|
00003e40  7e 13 62 6c 61 63 6b 25  20 20 20 20 20 3d 20 20  |~.black%     =  |
00003e50  38 0d 13 88 13 6d 67 72  65 79 25 20 20 20 20 20  |8....mgrey%     |
00003e60  3d 20 20 39 0d 13 92 13  64 67 72 65 79 25 20 20  |=  9....dgrey%  |
00003e70  20 20 20 3d 20 31 30 0d  13 9c 13 76 64 67 72 65  |   = 10....vdgre|
00003e80  79 25 20 20 20 20 3d 20  31 31 0d 13 a6 13 6c 62  |y%    = 11....lb|
00003e90  72 6f 77 6e 25 20 20 20  20 3d 20 31 32 0d 13 b0  |rown%    = 12...|
00003ea0  13 6d 67 72 65 65 6e 25  20 20 20 20 3d 20 31 34  |.mgreen%    = 14|
00003eb0  0d 13 ba 1d fb 20 62 6c  75 65 25 2c 20 20 20 20  |..... blue%,    |
00003ec0  20 20 20 20 30 2c 20 20  30 2c 32 35 35 0d 13 c4  |    0,  0,255...|
00003ed0  1d fb 20 72 65 64 25 2c  20 20 20 20 20 20 20 32  |.. red%,       2|
00003ee0  35 35 2c 20 20 30 2c 20  20 30 0d 13 ce 1d fb 20  |55,  0,  0..... |
00003ef0  62 6c 61 63 6b 25 2c 20  20 20 20 20 20 20 30 2c  |black%,       0,|
00003f00  20 20 30 2c 20 20 30 0d  13 d8 1d fb 20 77 68 69  |  0,  0..... whi|
00003f10  74 65 25 2c 20 20 20 20  20 32 35 35 2c 32 35 35  |te%,     255,255|
00003f20  2c 32 35 35 0d 13 e2 1d  fb 20 70 67 72 65 79 25  |,255..... pgrey%|
00003f30  2c 20 20 20 20 20 32 30  30 2c 32 30 30 2c 32 30  |,     200,200,20|
00003f40  30 0d 13 ec 1d fb 20 6d  67 72 65 79 25 2c 20 20  |0..... mgrey%,  |
00003f50  20 20 20 31 37 30 2c 31  37 30 2c 31 37 30 0d 13  |   170,170,170..|
00003f60  f6 1d fb 20 64 67 72 65  79 25 2c 20 20 20 20 20  |... dgrey%,     |
00003f70  31 34 30 2c 31 34 30 2c  31 34 30 0d 14 00 1d fb  |140,140,140.....|
00003f80  20 76 64 67 72 65 79 25  2c 20 20 20 20 20 37 30  | vdgrey%,     70|
00003f90  2c 20 37 30 2c 20 37 30  0d 14 0a 1d fb 20 6c 62  |, 70, 70..... lb|
00003fa0  72 6f 77 6e 25 2c 20 20  20 20 32 32 30 2c 31 30  |rown%,    220,10|
00003fb0  30 2c 20 33 30 0d 14 14  1d fb 20 6d 67 72 65 65  |0, 30..... mgree|
00003fc0  6e 25 2c 20 20 20 20 20  20 30 2c 31 32 30 2c 20  |n%,      0,120, |
00003fd0  20 30 0d 14 1e 1d fb 20  64 62 72 6f 77 6e 25 2c  | 0..... dbrown%,|
00003fe0  20 20 20 20 31 32 30 2c  20 36 30 2c 20 36 30 0d  |    120, 60, 60.|
00003ff0  14 28 1d fb 20 31 35 2c  20 20 20 20 20 20 20 20  |.(.. 15,        |
00004000  20 31 31 32 2c 32 35 35  2c 31 31 32 0d 14 32 05  | 112,255,112..2.|
00004010  e1 0d 14 3c 47 dd 20 f2  68 65 61 64 33 28 68 64  |...<G. .head3(hd|
00004020  24 2c 78 73 25 2c 79 73  25 2c 76 64 78 25 2c 76  |$,xs%,ys%,vdx%,v|
00004030  64 79 25 2c 78 73 68 69  66 74 25 2c 79 73 68 69  |dy%,xshift%,yshi|
00004040  66 74 25 2c 75 6c 63 6f  6c 25 2c 64 72 63 6f 6c  |ft%,ulcol%,drcol|
00004050  25 2c 74 63 6f 6c 25 29  0d 14 46 1e ef 20 32 33  |%,tcol%)..F.. 23|
00004060  2c 31 37 2c 37 2c 36 2c  76 64 78 25 3b 76 64 79  |,17,7,6,vdx%;vdy|
00004070  25 3b 30 3b 30 3b 0d 14  50 2d e6 30 2c 75 6c 63  |%;0;0;..P-.0,ulc|
00004080  6f 6c 25 3a ec 20 78 73  25 2d 78 73 68 69 66 74  |ol%:. xs%-xshift|
00004090  25 2c 79 73 25 2b 79 73  68 69 66 74 25 3a f1 20  |%,ys%+yshift%:. |
000040a0  68 64 24 0d 14 5a 2d e6  30 2c 64 72 63 6f 6c 25  |hd$..Z-.0,drcol%|
000040b0  3a ec 20 78 73 25 2b 78  73 68 69 66 74 25 2c 79  |:. xs%+xshift%,y|
000040c0  73 25 2d 79 73 68 69 66  74 25 3a f1 20 68 64 24  |s%-yshift%:. hd$|
000040d0  0d 14 64 1c e6 30 2c 74  63 6f 6c 25 3a ec 20 78  |..d..0,tcol%:. x|
000040e0  73 25 2c 79 73 25 3a f1  20 68 64 24 0d 14 6e 05  |s%,ys%:. hd$..n.|
000040f0  e1 0d 14 78 1d dd 20 f2  74 75 74 62 6f 72 64 65  |...x.. .tutborde|
00004100  72 28 78 25 2c 79 25 2c  77 25 2c 68 25 29 0d 14  |r(x%,y%,w%,h%)..|
00004110  82 11 67 63 6f 6c 25 3d  38 3a 64 78 25 3d 30 0d  |..gcol%=8:dx%=0.|
00004120  14 8c 0e e6 20 30 2c 70  67 72 65 79 25 0d 14 96  |.... 0,pgrey%...|
00004130  2b c8 93 20 c8 90 20 78  25 20 2b 20 64 78 25 2c  |+.. .. x% + dx%,|
00004140  79 25 2b 64 78 25 2c 77  25 2d 32 2a 64 78 25 2c  |y%+dx%,w%-2*dx%,|
00004150  68 25 2d 32 2a 64 78 25  0d 14 a0 0b 64 78 25 20  |h%-2*dx%....dx% |
00004160  2b 3d 34 0d 14 aa 05 f5  0d 14 b4 0d 67 63 6f 6c  |+=4.........gcol|
00004170  25 20 2b 3d 31 0d 14 be  0d e6 20 30 2c 67 63 6f  |% +=1..... 0,gco|
00004180  6c 25 0d 14 c8 2b c8 93  20 c8 90 20 78 25 20 2b  |l%...+.. .. x% +|
00004190  20 64 78 25 2c 79 25 2b  64 78 25 2c 77 25 2d 32  | dx%,y%+dx%,w%-2|
000041a0  2a 64 78 25 2c 68 25 2d  32 2a 64 78 25 0d 14 d2  |*dx%,h%-2*dx%...|
000041b0  0b 64 78 25 20 2b 3d 34  0d 14 dc 0e fd 20 67 63  |.dx% +=4..... gc|
000041c0  6f 6c 25 3d 31 31 0d 14  e6 05 f5 0d 14 f0 15 67  |ol%=11.........g|
000041d0  63 6f 6c 25 20 2d 3d 31  3a 64 78 25 20 2b 3d 34  |col% -=1:dx% +=4|
000041e0  0d 14 fa 0d e6 20 30 2c  67 63 6f 6c 25 0d 15 04  |..... 0,gcol%...|
000041f0  2b c8 93 20 c8 90 20 78  25 20 2b 20 64 78 25 2c  |+.. .. x% + dx%,|
00004200  79 25 2b 64 78 25 2c 77  25 2d 32 2a 64 78 25 2c  |y%+dx%,w%-2*dx%,|
00004210  68 25 2d 32 2a 64 78 25  0d 15 0e 0d fd 20 67 63  |h%-2*dx%..... gc|
00004220  6f 6c 25 3d 39 0d 15 18  16 64 78 25 20 2b 3d 34  |ol%=9....dx% +=4|
00004230  3a e6 20 30 2c 70 67 72  65 79 25 0d 15 22 2b c8  |:. 0,pgrey%.."+.|
00004240  93 20 c8 90 20 78 25 20  2b 20 64 78 25 2c 79 25  |. .. x% + dx%,y%|
00004250  2b 64 78 25 2c 77 25 2d  32 2a 64 78 25 2c 68 25  |+dx%,w%-2*dx%,h%|
00004260  2d 32 2a 64 78 25 0d 15  2c 1a ef 20 32 33 2c 31  |-2*dx%..,.. 23,1|
00004270  37 2c 37 2c 36 2c 31 36  3b 31 36 3b 30 3b 30 3b  |7,7,6,16;16;0;0;|
00004280  0d 15 36 05 e1 0d 15 40  20 dd 20 f2 70 61 67 69  |..6....@ . .pagi|
00004290  6e 67 28 70 61 67 65 73  25 2c f8 20 6e 6f 77 70  |ng(pages%,. nowp|
000042a0  61 67 65 25 29 0d 15 4a  08 f7 20 2b 36 0d 15 54  |age%)..J.. +6..T|
000042b0  13 e3 20 6f 70 74 69 6f  6e 25 3d 30 20 b8 20 32  |.. option%=0 . 2|
000042c0  0d 15 5e 38 f2 5f 62 75  74 74 6f 6e 28 38 30 2b  |..^8._button(80+|
000042d0  35 34 34 2a 6f 70 74 69  6f 6e 25 2c 33 32 2c 35  |544*option%,32,5|
000042e0  32 2c 6d 67 72 65 79 25  2c 64 67 72 65 79 25 2c  |2,mgrey%,dgrey%,|
000042f0  76 64 67 72 65 79 25 29  0d 15 68 0f f3 20 63 6f  |vdgrey%)..h.. co|
00004300  6c 72 25 2c 6f 70 24 0d  15 72 0d e6 20 30 2c 63  |lr%,op$..r.. 0,c|
00004310  6f 6c 72 25 0d 15 7c 09  f1 20 6f 70 24 0d 15 86  |olr%..|.. op$...|
00004320  0d ed 20 6f 70 74 69 6f  6e 25 0d 15 90 1a dc 20  |.. option%..... |
00004330  63 6f 6c 5f 6d 65 6e 75  25 2c 20 22 20 20 20 4d  |col_menu%, "   M|
00004340  65 6e 75 22 0d 15 9a 20  dc 20 63 6f 6c 5f 62 61  |enu"... . col_ba|
00004350  63 6b 25 2c 20 22 20 20  20 3c 3c 3c 3c 3c 20 42  |ck%, "   <<<<< B|
00004360  61 63 6b 22 0d 15 a4 1e  dc 20 63 6f 6c 5f 6f 6e  |ack"..... col_on|
00004370  25 2c 20 20 20 22 20 20  20 4f 6e 20 3e 3e 3e 3e  |%,   "   On >>>>|
00004380  3e 22 0d 15 ae 0b 6f 70  74 25 3d 2d 31 0d 15 b8  |>"....opt%=-1...|
00004390  0c 6f 70 74 6e 25 3d 2d  31 0d 15 c2 05 f5 0d 15  |.optn%=-1.......|
000043a0  cc 0c 6f 70 74 6e 25 2b  3d 31 0d 15 d6 2a f2 5f  |..optn%+=1...*._|
000043b0  6d 6f 75 73 65 28 38 30  2b 35 34 34 2a 6f 70 74  |mouse(80+544*opt|
000043c0  6e 25 2c 33 32 2c 35 32  2c 6f 70 74 6e 25 2c 6f  |n%,32,52,optn%,o|
000043d0  70 74 25 29 0d 15 e0 18  e7 20 6f 70 74 6e 25 3d  |pt%)..... optn%=|
000043e0  32 20 8c 20 6f 70 74 6e  25 3d 2d 31 0d 15 ea 0e  |2 . optn%=-1....|
000043f0  fd 20 6f 70 74 25 3c 3e  2d 31 0d 15 f4 0d c8 8e  |. opt%<>-1......|
00004400  20 6f 70 74 25 20 ca 0d  15 fe 07 c9 20 30 0d 16  | opt% ...... 0..|
00004410  08 20 f4 20 6c 65 61 76  65 20 6c 6f 6f 70 2c 20  |. . leave loop, |
00004420  72 65 74 75 72 6e 20 74  6f 20 6d 65 6e 75 0d 16  |return to menu..|
00004430  12 07 c9 20 31 0d 16 1c  1e e7 20 6e 6f 77 70 61  |... 1..... nowpa|
00004440  67 65 25 3e 31 20 8c 20  6e 6f 77 70 61 67 65 25  |ge%>1 . nowpage%|
00004450  2d 3d 31 0d 16 26 07 c9  20 32 0d 16 30 23 e7 20  |-=1..&.. 2..0#. |
00004460  6e 6f 77 70 61 67 65 25  3c 70 61 67 65 73 25 20  |nowpage%<pages% |
00004470  8c 20 6e 6f 77 70 61 67  65 25 2b 3d 31 0d 16 3a  |. nowpage%+=1..:|
00004480  05 cb 0d 16 44 17 c8 97  20 c8 93 20 30 2c 30 2c  |....D... .. 0,0,|
00004490  31 35 39 39 2c 31 31 39  39 0d 16 4e 05 e1 0d 16  |1599,1199..N....|
000044a0  58 24 dd 20 f2 70 6f 70  75 6c 61 74 69 6f 6e 73  |X$. .populations|
000044b0  28 6e 6f 77 70 61 67 65  25 2c 63 79 63 6c 65 73  |(nowpage%,cycles|
000044c0  25 29 0d 16 62 0c ea 20  70 61 67 65 73 25 0d 16  |%)..b.. pages%..|
000044d0  6c 21 ea 20 63 6f 6c 5f  6d 65 6e 75 25 2c 63 6f  |l!. col_menu%,co|
000044e0  6c 5f 62 61 63 6b 25 2c  63 6f 6c 5f 6f 6e 25 0d  |l_back%,col_on%.|
000044f0  16 76 14 f2 74 75 74 5f  63 6f 6d 5f 63 6f 6c 6f  |.v..tut_com_colo|
00004500  75 72 73 0d 16 80 05 da  0d 16 8a 1e 70 61 67 65  |urs.........page|
00004510  73 25 3d 32 3a 63 6f 6c  5f 6d 65 6e 75 25 3d 6c  |s%=2:col_menu%=l|
00004520  62 72 6f 77 6e 25 0d 16  94 05 f5 0d 16 9e 23 63  |brown%........#c|
00004530  6f 6c 5f 62 61 63 6b 25  3d 62 6c 61 63 6b 25 3a  |ol_back%=black%:|
00004540  63 6f 6c 5f 6f 6e 25 3d  62 6c 61 63 6b 25 0d 16  |col_on%=black%..|
00004550  a8 26 e7 20 6e 6f 77 70  61 67 65 25 3d 31 20 20  |.&. nowpage%=1  |
00004560  20 20 20 20 63 6f 6c 5f  62 61 63 6b 25 3d 6d 67  |    col_back%=mg|
00004570  72 65 79 25 0d 16 b2 26  e7 20 6e 6f 77 70 61 67  |rey%...&. nowpag|
00004580  65 25 3d 70 61 67 65 73  25 20 63 6f 6c 5f 6f 6e  |e%=pages% col_on|
00004590  25 20 20 3d 6d 67 72 65  79 25 0d 16 bc 11 c8 8e  |%  =mgrey%......|
000045a0  20 6e 6f 77 70 61 67 65  25 20 ca 0d 16 c6 2c c9  | nowpage% ....,.|
000045b0  20 31 3a f2 70 6f 70 73  5f 70 61 67 65 31 28 70  | 1:.pops_page1(p|
000045c0  61 67 65 73 25 2c 6e 6f  77 70 61 67 65 25 2c 63  |ages%,nowpage%,c|
000045d0  79 63 6c 65 73 25 29 0d  16 d0 24 c9 20 32 3a f2  |ycles%)...$. 2:.|
000045e0  70 6f 70 73 5f 70 61 67  65 32 28 70 61 67 65 73  |pops_page2(pages|
000045f0  25 2c 6e 6f 77 70 61 67  65 25 29 0d 16 da 05 cb  |%,nowpage%).....|
00004600  0d 16 e4 1c f2 70 61 67  69 6e 67 28 70 61 67 65  |.....paging(page|
00004610  73 25 2c 6e 6f 77 70 61  67 65 25 29 0d 16 ee 29  |s%,nowpage%)...)|
00004620  fd 20 6f 70 74 25 3d 30  3a f4 20 6c 65 61 76 65  |. opt%=0:. leave|
00004630  20 6c 6f 6f 70 2c 20 72  65 74 75 72 6e 20 74 6f  | loop, return to|
00004640  20 6d 65 6e 75 0d 16 f8  05 e1 0d 17 02 2a dd 20  | menu........*. |
00004650  f2 70 6f 70 73 5f 70 61  67 65 31 28 70 61 67 65  |.pops_page1(page|
00004660  73 25 2c 6e 6f 77 70 61  67 65 25 2c 63 79 63 6c  |s%,nowpage%,cycl|
00004670  65 73 25 29 0d 17 0c 2a  ea 20 6f 78 25 2c 6f 79  |es%)...*. ox%,oy|
00004680  25 2c 6c 65 6e 78 25 2c  6c 65 6e 79 25 2c 64 69  |%,lenx%,leny%,di|
00004690  76 73 25 2c 64 75 6d 6d  79 2c 6b 65 79 24 0d 17  |vs%,dummy,key$..|
000046a0  16 0b ea 20 6a 25 2c 6b  25 0d 17 20 1f f2 74 75  |... j%,k%.. ..tu|
000046b0  74 62 6f 72 64 65 72 28  30 2c 31 32 30 2c 31 35  |tborder(0,120,15|
000046c0  39 39 2c 31 30 37 39 29  0d 17 2a 1c f2 74 75 74  |99,1079)..*..tut|
000046d0  62 6f 72 64 65 72 28 30  2c 30 2c 31 35 39 39 2c  |border(0,0,1599,|
000046e0  31 32 34 29 0d 17 34 18  ef 32 33 2c 31 37 2c 37  |124)..4..23,17,7|
000046f0  2c 36 2c 38 3b 31 36 3b  30 3b 30 3b 0d 17 3e 14  |,6,8;16;0;0;..>.|
00004700  e6 30 2c 62 6c 75 65 25  3a ec 20 37 34 2c 37 38  |.0,blue%:. 74,78|
00004710  0d 17 48 63 f1 22 48 6f  6c 64 20 64 6f 77 6e 20  |..Hc."Hold down |
00004720  6b 65 79 20 22 22 53 22  22 20 74 6f 20 73 74 6f  |key ""S"" to sto|
00004730  70 20 63 79 63 6c 65 73  28 6d 61 78 2e 3d 34 38  |p cycles(max.=48|
00004740  29 2c 20 20 74 68 65 6e  20 63 6c 69 63 6b 20 27  |),  then click '|
00004750  4f 6e 27 20 66 6f 72 20  67 72 61 70 68 20 6f 72  |On' for graph or|
00004760  20 27 4d 65 6e 75 27 20  74 6f 20 72 65 73 74 61  | 'Menu' to resta|
00004770  72 74 22 0d 17 52 11 c8  97 20 b8 20 31 31 30 30  |rt"..R... . 1100|
00004780  2c 32 30 30 0d 17 5c 17  ef 32 33 2c 31 37 2c 37  |,200..\..23,17,7|
00004790  2c 36 2c 38 3b 38 3b 30  3b 30 3b 0d 17 66 39 e6  |,6,8;8;0;0;..f9.|
000047a0  30 2c 62 6c 61 63 6b 25  3a ec 20 35 30 2c 31 31  |0,black%:. 50,11|
000047b0  36 30 3a f1 22 43 79 63  6c 65 20 20 20 52 65 64  |60:."Cycle   Red|
000047c0  73 20 20 20 20 42 6c 75  65 73 20 20 20 53 70 61  |s    Blues   Spa|
000047d0  63 65 73 22 0d 17 70 17  ef 32 33 2c 31 37 2c 37  |ces"..p..23,17,7|
000047e0  2c 36 2c 38 3b 38 3b 30  3b 30 3b 0d 17 7a 35 6f  |,6,8;8;0;0;..z5o|
000047f0  78 25 3d 35 35 37 3a 6f  79 25 3d 31 31 36 30 3a  |x%=557:oy%=1160:|
00004800  6c 65 6e 78 25 3d 31 30  30 30 3a 6c 65 6e 79 25  |lenx%=1000:leny%|
00004810  3d 6c 65 6e 78 25 3a 64  69 76 73 25 3d 31 30 30  |=lenx%:divs%=100|
00004820  0d 17 84 0d e6 30 2c 6d  67 72 65 79 25 0d 17 8e  |.....0,mgrey%...|
00004830  12 e3 20 69 25 3d 30 20  b8 20 64 69 76 73 25 0d  |.. i%=0 . divs%.|
00004840  17 98 2a ec 20 6f 78 25  2b 69 25 2a 6c 65 6e 78  |..*. ox%+i%*lenx|
00004850  25 2f 64 69 76 73 25 2c  6f 79 25 3a df 20 42 59  |%/divs%,oy%:. BY|
00004860  20 30 2c 2d 6c 65 6e 79  25 0d 17 a2 08 ed 20 69  | 0,-leny%..... i|
00004870  25 0d 17 ac 12 e3 20 69  25 3d 30 20 b8 20 64 69  |%..... i%=0 . di|
00004880  76 73 25 0d 17 b6 29 ec  20 6f 78 25 2c 6f 79 25  |vs%...). ox%,oy%|
00004890  2d 69 25 2a 6c 65 6e 79  25 2f 64 69 76 73 25 3a  |-i%*leny%/divs%:|
000048a0  df 20 42 59 20 6c 65 6e  78 25 2c 30 0d 17 c0 08  |. BY lenx%,0....|
000048b0  ed 20 69 25 0d 17 ca 2f  41 28 29 3d 30 3a 72 65  |. i%.../A()=0:re|
000048c0  64 70 6f 70 25 3d 30 3a  62 6c 75 65 70 6f 70 25  |dpop%=0:bluepop%|
000048d0  3d 30 3a 64 65 61 64 25  3d 30 3a 63 79 63 6c 65  |=0:dead%=0:cycle|
000048e0  25 3d 30 0d 17 d4 17 74  65 6d 70 28 29 3d 30 3a  |%=0....temp()=0:|
000048f0  74 6f 74 61 6c 73 28 29  3d 30 0d 17 de 0f 64 75  |totals()=0....du|
00004900  6d 6d 79 3d b3 28 2d 91  29 0d 17 e8 14 e3 20 6a  |mmy=.(-.)..... j|
00004910  25 3d 30 20 b8 20 64 69  76 73 25 2d 31 0d 17 f2  |%=0 . divs%-1...|
00004920  14 e3 20 6b 25 3d 30 20  b8 20 64 69 76 73 25 2d  |.. k%=0 . divs%-|
00004930  31 0d 17 fc 10 63 65 6c  6c 25 3d b3 28 33 30 30  |1....cell%=.(300|
00004940  29 0d 18 06 28 e7 20 63  65 6c 6c 25 3e 3d 32 35  |)...(. cell%>=25|
00004950  30 20 41 28 6a 25 2c 6b  25 29 3d 31 30 3a f4 20  |0 A(j%,k%)=10:. |
00004960  72 65 64 20 63 65 6c 6c  73 0d 18 10 33 e7 20 63  |red cells...3. c|
00004970  65 6c 6c 25 3e 3d 35 30  20 80 20 63 65 6c 6c 25  |ell%>=50 . cell%|
00004980  3c 32 35 30 20 41 28 6a  25 2c 6b 25 29 3d 31 3a  |<250 A(j%,k%)=1:|
00004990  f4 20 62 6c 75 65 20 63  65 6c 6c 73 0d 18 1a 2e  |. blue cells....|
000049a0  e7 20 63 65 6c 6c 25 3c  35 30 20 41 28 6a 25 2c  |. cell%<50 A(j%,|
000049b0  6b 25 29 3d 30 3a f4 20  64 65 61 64 20 6f 72 20  |k%)=0:. dead or |
000049c0  67 72 65 79 20 63 65 6c  6c 73 0d 18 24 1c e7 20  |grey cells..$.. |
000049d0  41 28 6a 25 2c 6b 25 29  3d 31 30 20 72 65 64 70  |A(j%,k%)=10 redp|
000049e0  6f 70 25 2b 3d 31 0d 18  2e 1c e7 20 41 28 6a 25  |op%+=1..... A(j%|
000049f0  2c 6b 25 29 3d 31 20 62  6c 75 65 70 6f 70 25 2b  |,k%)=1 bluepop%+|
00004a00  3d 31 0d 18 38 19 e7 20  41 28 6a 25 2c 6b 25 29  |=1..8.. A(j%,k%)|
00004a10  3d 30 20 64 65 61 64 25  2b 3d 31 0d 18 42 08 ed  |=0 dead%+=1..B..|
00004a20  20 6b 25 0d 18 4c 08 ed  20 6a 25 0d 18 56 3e 74  | k%..L.. j%..V>t|
00004a30  6f 74 61 6c 73 28 30 2c  30 29 3d 72 65 64 70 6f  |otals(0,0)=redpo|
00004a40  70 25 3a 74 6f 74 61 6c  73 28 30 2c 31 29 3d 62  |p%:totals(0,1)=b|
00004a50  6c 75 65 70 6f 70 25 3a  74 6f 74 61 6c 73 28 30  |luepop%:totals(0|
00004a60  2c 32 29 3d 64 65 61 64  25 0d 18 60 0d e6 30 2c  |,2)=dead%..`..0,|
00004a70  62 6c 61 63 6b 25 0d 18  6a 46 40 25 3d 26 30 30  |black%..jF@%=&00|
00004a80  30 30 30 35 30 35 3a 79  70 6f 73 25 3d 31 31 33  |000505:ypos%=113|
00004a90  30 3a 78 63 79 63 6c 65  25 3d 32 30 3a 78 72 65  |0:xcycle%=20:xre|
00004aa0  64 25 3d 31 36 33 3a 78  62 6c 75 65 25 3d 32 39  |d%=163:xblue%=29|
00004ab0  35 3a 78 64 65 61 64 25  3d 34 33 30 0d 18 74 31  |5:xdead%=430..t1|
00004ac0  ec 20 78 63 79 63 6c 65  25 2c 79 70 6f 73 25 3a  |. xcycle%,ypos%:|
00004ad0  f1 63 79 63 6c 65 25 3a  ec 78 72 65 64 25 2c 79  |.cycle%:.xred%,y|
00004ae0  70 6f 73 25 3a f1 72 65  64 70 6f 70 25 0d 18 7e  |pos%:.redpop%..~|
00004af0  30 ec 78 62 6c 75 65 25  2c 79 70 6f 73 25 3a f1  |0.xblue%,ypos%:.|
00004b00  62 6c 75 65 70 6f 70 25  3a ec 78 64 65 61 64 25  |bluepop%:.xdead%|
00004b10  2c 79 70 6f 73 25 3a f1  64 65 61 64 25 0d 18 88  |,ypos%:.dead%...|
00004b20  14 e3 20 6a 25 3d 30 20  b8 20 64 69 76 73 25 2d  |.. j%=0 . divs%-|
00004b30  31 0d 18 92 14 e3 20 6b  25 3d 30 20 b8 20 64 69  |1..... k%=0 . di|
00004b40  76 73 25 2d 31 0d 18 9c  15 e7 20 41 28 6a 25 2c  |vs%-1..... A(j%,|
00004b50  6b 25 29 20 3d 20 31 30  20 8c 0d 18 a6 0b e6 30  |k%) = 10 ......0|
00004b60  2c 72 65 64 25 0d 18 b0  35 c8 8f 20 c8 90 20 6f  |,red%...5.. .. o|
00004b70  78 25 2b 6b 25 2a 6c 65  6e 78 25 2f 64 69 76 73  |x%+k%*lenx%/divs|
00004b80  25 2b 35 2c 6f 79 25 2d  6a 25 2a 6c 65 6e 79 25  |%+5,oy%-j%*leny%|
00004b90  2f 64 69 76 73 25 2d 35  2c 34 0d 18 ba 05 cd 0d  |/divs%-5,4......|
00004ba0  18 c4 14 e7 20 41 28 6a  25 2c 6b 25 29 20 3d 20  |.... A(j%,k%) = |
00004bb0  31 20 8c 0d 18 ce 0c e6  30 2c 62 6c 75 65 25 0d  |1 ......0,blue%.|
00004bc0  18 d8 35 c8 8f 20 c8 90  20 6f 78 25 2b 6b 25 2a  |..5.. .. ox%+k%*|
00004bd0  6c 65 6e 78 25 2f 64 69  76 73 25 2b 35 2c 6f 79  |lenx%/divs%+5,oy|
00004be0  25 2d 6a 25 2a 6c 65 6e  79 25 2f 64 69 76 73 25  |%-j%*leny%/divs%|
00004bf0  2d 35 2c 34 0d 18 e2 05  cd 0d 18 ec 14 e7 20 41  |-5,4.......... A|
00004c00  28 6a 25 2c 6b 25 29 20  3d 20 30 20 8c 0d 18 f6  |(j%,k%) = 0 ....|
00004c10  0d e6 30 2c 64 67 72 65  79 25 0d 19 00 35 c8 8f  |..0,dgrey%...5..|
00004c20  20 c8 90 20 6f 78 25 2b  6b 25 2a 6c 65 6e 78 25  | .. ox%+k%*lenx%|
00004c30  2f 64 69 76 73 25 2b 35  2c 6f 79 25 2d 6a 25 2a  |/divs%+5,oy%-j%*|
00004c40  6c 65 6e 79 25 2f 64 69  76 73 25 2d 35 2c 34 0d  |leny%/divs%-5,4.|
00004c50  19 0a 05 cd 0d 19 14 08  ed 20 6b 25 0d 19 1e 08  |......... k%....|
00004c60  ed 20 6a 25 0d 19 28 15  63 79 63 6c 65 25 3d 31  |. j%..(.cycle%=1|
00004c70  3a 6b 65 79 24 3d 22 47  22 0d 19 32 22 c8 95 20  |:key$="G"..2".. |
00004c80  63 79 63 6c 65 25 3c 3d  63 79 63 6c 65 73 25 20  |cycle%<=cycles% |
00004c90  80 20 6b 65 79 24 3c 3e  22 53 22 0d 19 3c 20 72  |. key$<>"S"..< r|
00004ca0  65 64 70 6f 70 25 3d 30  3a 62 6c 75 65 70 6f 70  |edpop%=0:bluepop|
00004cb0  25 3d 30 3a 64 65 61 64  25 3d 30 0d 19 46 0d 6b  |%=0:dead%=0..F.k|
00004cc0  65 79 24 3d bf 28 35 29  0d 19 50 0b 2a 46 58 31  |ey$=.(5)..P.*FX1|
00004cd0  35 2c 31 0d 19 5a 14 e3  20 6a 25 3d 30 20 b8 20  |5,1..Z.. j%=0 . |
00004ce0  64 69 76 73 25 2d 31 0d  19 64 14 e3 20 6b 25 3d  |divs%-1..d.. k%=|
00004cf0  30 20 b8 20 64 69 76 73  25 2d 31 0d 19 6e 0a c8  |0 . divs%-1..n..|
00004d00  8e 20 b9 20 ca 0d 19 78  42 c9 20 6a 25 3c 3e 30  |. . ...xB. j%<>0|
00004d10  20 80 20 6b 25 3c 3e 30  20 80 20 6a 25 3c 3e 64  | . k%<>0 . j%<>d|
00004d20  69 76 73 25 2d 31 20 80  20 6b 25 3c 3e 64 69 76  |ivs%-1 . k%<>div|
00004d30  73 25 2d 31 3a f4 20 61  6c 6c 20 65 78 63 65 70  |s%-1:. all excep|
00004d40  74 20 65 64 67 65 73 0d  19 82 68 73 75 6d 25 3d  |t edges...hsum%=|
00004d50  41 28 6a 25 2d 31 2c 6b  25 2d 31 29 2b 41 28 6a  |A(j%-1,k%-1)+A(j|
00004d60  25 2d 31 2c 6b 25 29 2b  41 28 6a 25 2d 31 2c 6b  |%-1,k%)+A(j%-1,k|
00004d70  25 2b 31 29 2b 41 28 6a  25 2c 6b 25 2d 31 29 2b  |%+1)+A(j%,k%-1)+|
00004d80  41 28 6a 25 2c 6b 25 2b  31 29 2b 41 28 6a 25 2b  |A(j%,k%+1)+A(j%+|
00004d90  31 2c 6b 25 2d 31 29 2b  41 28 6a 25 2b 31 2c 6b  |1,k%-1)+A(j%+1,k|
00004da0  25 29 2b 41 28 6a 25 2b  31 2c 6b 25 2b 31 29 0d  |%)+A(j%+1,k%+1).|
00004db0  19 8c 20 c9 20 6a 25 3d  30 20 80 20 6b 25 3c 3e  |.. . j%=0 . k%<>|
00004dc0  30 20 80 20 6b 25 3c 3e  64 69 76 73 25 2d 31 0d  |0 . k%<>divs%-1.|
00004dd0  19 96 66 73 75 6d 25 3d  41 28 64 69 76 73 25 2d  |..fsum%=A(divs%-|
00004de0  31 2c 6b 25 2d 31 29 2b  41 28 64 69 76 73 25 2d  |1,k%-1)+A(divs%-|
00004df0  31 2c 6b 25 29 2b 41 28  64 69 76 73 25 2d 31 2c  |1,k%)+A(divs%-1,|
00004e00  6b 25 2b 31 29 2b 41 28  30 2c 6b 25 2d 31 29 2b  |k%+1)+A(0,k%-1)+|
00004e10  41 28 30 2c 6b 25 2b 31  29 2b 41 28 31 2c 6b 25  |A(0,k%+1)+A(1,k%|
00004e20  2d 31 29 2b 41 28 31 2c  6b 25 29 2b 41 28 31 2c  |-1)+A(1,k%)+A(1,|
00004e30  6b 25 2b 31 29 0d 19 a0  26 c9 20 6a 25 3d 64 69  |k%+1)...&. j%=di|
00004e40  76 73 25 2d 31 20 80 20  6b 25 3c 3e 30 20 80 20  |vs%-1 . k%<>0 . |
00004e50  6b 25 3c 3e 64 69 76 73  25 2d 31 0d 19 aa 72 73  |k%<>divs%-1...rs|
00004e60  75 6d 25 3d 41 28 64 69  76 73 25 2d 32 2c 6b 25  |um%=A(divs%-2,k%|
00004e70  2d 31 29 2b 41 28 64 69  76 73 25 2d 32 2c 6b 25  |-1)+A(divs%-2,k%|
00004e80  29 2b 41 28 64 69 76 73  25 2d 32 2c 6b 25 2b 31  |)+A(divs%-2,k%+1|
00004e90  29 2b 41 28 64 69 76 73  25 2d 31 2c 6b 25 2d 31  |)+A(divs%-1,k%-1|
00004ea0  29 2b 41 28 64 69 76 73  25 2d 31 2c 6b 25 2b 31  |)+A(divs%-1,k%+1|
00004eb0  29 2b 41 28 30 2c 6b 25  2d 31 29 2b 41 28 30 2c  |)+A(0,k%-1)+A(0,|
00004ec0  6b 25 29 2b 41 28 30 2c  6b 25 2b 31 29 0d 19 b4  |k%)+A(0,k%+1)...|
00004ed0  20 c9 20 6b 25 3d 30 20  80 20 6a 25 3c 3e 30 20  | . k%=0 . j%<>0 |
00004ee0  80 20 6a 25 3c 3e 64 69  76 73 25 2d 31 0d 19 be  |. j%<>divs%-1...|
00004ef0  66 73 75 6d 25 3d 41 28  6a 25 2d 31 2c 64 69 76  |fsum%=A(j%-1,div|
00004f00  73 25 2d 31 29 2b 41 28  6a 25 2d 31 2c 30 29 2b  |s%-1)+A(j%-1,0)+|
00004f10  41 28 6a 25 2d 31 2c 31  29 2b 41 28 6a 25 2c 64  |A(j%-1,1)+A(j%,d|
00004f20  69 76 73 25 2d 31 29 2b  41 28 6a 25 2c 31 29 2b  |ivs%-1)+A(j%,1)+|
00004f30  41 28 6a 25 2b 31 2c 64  69 76 73 25 2d 31 29 2b  |A(j%+1,divs%-1)+|
00004f40  41 28 6a 25 2b 31 2c 30  29 2b 41 28 6a 25 2b 31  |A(j%+1,0)+A(j%+1|
00004f50  2c 31 29 0d 19 c8 26 c9  20 6b 25 3d 64 69 76 73  |,1)...&. k%=divs|
00004f60  25 2d 31 20 80 20 6a 25  3c 3e 30 20 80 20 6a 25  |%-1 . j%<>0 . j%|
00004f70  3c 3e 64 69 76 73 25 2d  31 0d 19 d2 72 73 75 6d  |<>divs%-1...rsum|
00004f80  25 3d 41 28 6a 25 2d 31  2c 64 69 76 73 25 2d 32  |%=A(j%-1,divs%-2|
00004f90  29 2b 41 28 6a 25 2d 31  2c 64 69 76 73 25 2d 31  |)+A(j%-1,divs%-1|
00004fa0  29 2b 41 28 6a 25 2d 31  2c 30 29 2b 41 28 6a 25  |)+A(j%-1,0)+A(j%|
00004fb0  2c 64 69 76 73 25 2d 32  29 2b 41 28 6a 25 2c 30  |,divs%-2)+A(j%,0|
00004fc0  29 2b 41 28 6a 25 2b 31  2c 64 69 76 73 25 2d 32  |)+A(j%+1,divs%-2|
00004fd0  29 2b 41 28 6a 25 2b 31  2c 64 69 76 73 25 2d 31  |)+A(j%+1,divs%-1|
00004fe0  29 2b 41 28 6a 25 2b 31  2c 30 29 0d 19 dc 11 c9  |)+A(j%+1,0).....|
00004ff0  20 6a 25 3d 30 20 80 20  6b 25 3d 30 0d 19 e6 64  | j%=0 . k%=0...d|
00005000  73 75 6d 25 3d 41 28 64  69 76 73 25 2d 31 2c 64  |sum%=A(divs%-1,d|
00005010  69 76 73 25 2d 31 29 2b  41 28 64 69 76 73 25 2d  |ivs%-1)+A(divs%-|
00005020  31 2c 30 29 2b 41 28 64  69 76 73 25 2d 31 2c 31  |1,0)+A(divs%-1,1|
00005030  29 2b 41 28 30 2c 64 69  76 73 25 2d 31 29 2b 41  |)+A(0,divs%-1)+A|
00005040  28 30 2c 31 29 2b 41 28  31 2c 64 69 76 73 25 2d  |(0,1)+A(1,divs%-|
00005050  31 29 2b 41 28 31 2c 30  29 2b 41 28 31 2c 31 29  |1)+A(1,0)+A(1,1)|
00005060  0d 19 f0 17 c9 20 6a 25  3d 30 20 80 20 6b 25 3d  |..... j%=0 . k%=|
00005070  64 69 76 73 25 2d 31 0d  19 fa 70 73 75 6d 25 3d  |divs%-1...psum%=|
00005080  41 28 64 69 76 73 25 2d  31 2c 64 69 76 73 25 2d  |A(divs%-1,divs%-|
00005090  32 29 2b 41 28 64 69 76  73 25 2d 31 2c 64 69 76  |2)+A(divs%-1,div|
000050a0  73 25 2d 31 29 2b 41 28  64 69 76 73 25 2d 31 2c  |s%-1)+A(divs%-1,|
000050b0  30 29 2b 41 28 30 2c 64  69 76 73 25 2d 32 29 2b  |0)+A(0,divs%-2)+|
000050c0  41 28 30 2c 30 29 2b 41  28 31 2c 64 69 76 73 25  |A(0,0)+A(1,divs%|
000050d0  2d 32 29 2b 41 28 31 2c  64 69 76 73 25 2d 31 29  |-2)+A(1,divs%-1)|
000050e0  2b 41 28 31 2c 30 29 0d  1a 04 17 c9 20 6a 25 3d  |+A(1,0)..... j%=|
000050f0  64 69 76 73 25 2d 31 20  80 20 6b 25 3d 30 0d 1a  |divs%-1 . k%=0..|
00005100  0e 70 73 75 6d 25 3d 41  28 64 69 76 73 25 2d 32  |.psum%=A(divs%-2|
00005110  2c 64 69 76 73 25 2d 31  29 2b 41 28 64 69 76 73  |,divs%-1)+A(divs|
00005120  25 2d 32 2c 30 29 2b 41  28 64 69 76 73 25 2d 32  |%-2,0)+A(divs%-2|
00005130  2c 31 29 2b 41 28 64 69  76 73 25 2d 31 2c 64 69  |,1)+A(divs%-1,di|
00005140  76 73 25 2d 31 29 2b 41  28 64 69 76 73 25 2d 31  |vs%-1)+A(divs%-1|
00005150  2c 31 29 2b 41 28 30 2c  64 69 76 73 25 2d 31 29  |,1)+A(0,divs%-1)|
00005160  2b 41 28 30 2c 30 29 2b  41 28 30 2c 31 29 0d 1a  |+A(0,0)+A(0,1)..|
00005170  18 1d c9 20 6a 25 3d 64  69 76 73 25 2d 31 20 80  |... j%=divs%-1 .|
00005180  20 6b 25 3d 64 69 76 73  25 2d 31 0d 1a 22 7c 73  | k%=divs%-1.."|s|
00005190  75 6d 25 3d 41 28 64 69  76 73 25 2d 32 2c 64 69  |um%=A(divs%-2,di|
000051a0  76 73 25 2d 32 29 2b 41  28 64 69 76 73 25 2d 32  |vs%-2)+A(divs%-2|
000051b0  2c 64 69 76 73 25 2d 31  29 2b 41 28 64 69 76 73  |,divs%-1)+A(divs|
000051c0  25 2d 32 2c 30 29 2b 41  28 64 69 76 73 25 2d 31  |%-2,0)+A(divs%-1|
000051d0  2c 64 69 76 73 25 2d 32  29 2b 41 28 64 69 76 73  |,divs%-2)+A(divs|
000051e0  25 2d 31 2c 30 29 2b 41  28 30 2c 64 69 76 73 25  |%-1,0)+A(0,divs%|
000051f0  2d 32 29 2b 41 28 30 2c  64 69 76 73 25 2d 31 29  |-2)+A(0,divs%-1)|
00005200  2b 41 28 30 2c 30 29 0d  1a 2c 05 cb 0d 1a 36 2f  |+A(0,0)..,....6/|
00005210  72 65 64 73 75 6d 25 3d  a8 28 73 75 6d 25 2f 31  |redsum%=.(sum%/1|
00005220  30 29 3a 62 6c 75 65 73  75 6d 25 3d 73 75 6d 25  |0):bluesum%=sum%|
00005230  2d 31 30 2a 72 65 64 73  75 6d 25 0d 1a 40 1f 64  |-10*redsum%..@.d|
00005240  65 61 64 73 75 6d 25 3d  38 2d 72 65 64 73 75 6d  |eadsum%=8-redsum|
00005250  25 2d 62 6c 75 65 73 75  6d 25 0d 1a 4a 1b f4 20  |%-bluesum%..J.. |
00005260  64 65 61 64 20 63 65 6c  6c 20 70 72 6f 63 65 73  |dead cell proces|
00005270  73 69 6e 67 2d 0d 1a 54  12 e7 20 41 28 6a 25 2c  |sing-..T.. A(j%,|
00005280  6b 25 29 3d 30 20 8c 0d  1a 5e 11 74 65 6d 70 28  |k%)=0 ...^.temp(|
00005290  6a 25 2c 6b 25 29 3d 30  0d 1a 68 2f e7 20 72 65  |j%,k%)=0..h/. re|
000052a0  64 73 75 6d 25 3e 6e 31  25 20 80 20 62 6c 75 65  |dsum%>n1% . blue|
000052b0  73 75 6d 25 3e 6e 32 25  20 74 65 6d 70 28 6a 25  |sum%>n2% temp(j%|
000052c0  2c 6b 25 29 3d 31 30 0d  1a 72 2e e7 20 62 6c 75  |,k%)=10..r.. blu|
000052d0  65 73 75 6d 25 3e 6e 33  25 20 80 20 72 65 64 73  |esum%>n3% . reds|
000052e0  75 6d 25 3c 6e 34 25 20  74 65 6d 70 28 6a 25 2c  |um%<n4% temp(j%,|
000052f0  6b 25 29 3d 31 0d 1a 7c  05 cd 0d 1a 86 1a f4 20  |k%)=1..|....... |
00005300  72 65 64 20 63 65 6c 6c  20 70 72 6f 63 65 73 73  |red cell process|
00005310  69 6e 67 2d 0d 1a 90 13  e7 20 41 28 6a 25 2c 6b  |ing-..... A(j%,k|
00005320  25 29 3d 31 30 20 8c 0d  1a 9a 12 74 65 6d 70 28  |%)=10 .....temp(|
00005330  6a 25 2c 6b 25 29 3d 31  30 0d 1a a4 20 e7 20 62  |j%,k%)=10... . b|
00005340  6c 75 65 73 75 6d 25 3c  6e 35 25 20 74 65 6d 70  |luesum%<n5% temp|
00005350  28 6a 25 2c 6b 25 29 3d  30 0d 1a ae 30 64 75 6d  |(j%,k%)=0...0dum|
00005360  6d 79 3d b3 28 2d 91 29  3a e7 20 b3 28 31 30 30  |my=.(-.):. .(100|
00005370  29 3e 28 31 30 30 2d 70  72 25 29 20 74 65 6d 70  |)>(100-pr%) temp|
00005380  28 6a 25 2c 6b 25 29 3d  30 0d 1a b8 05 cd 0d 1a  |(j%,k%)=0.......|
00005390  c2 1b f4 20 62 6c 75 65  20 63 65 6c 6c 20 70 72  |... blue cell pr|
000053a0  6f 63 65 73 73 69 6e 67  2d 0d 1a cc 12 e7 20 41  |ocessing-..... A|
000053b0  28 6a 25 2c 6b 25 29 3d  31 20 8c 0d 1a d6 11 74  |(j%,k%)=1 .....t|
000053c0  65 6d 70 28 6a 25 2c 6b  25 29 3d 31 0d 1a e0 1f  |emp(j%,k%)=1....|
000053d0  e7 20 72 65 64 73 75 6d  25 3e 6e 36 25 20 74 65  |. redsum%>n6% te|
000053e0  6d 70 28 6a 25 2c 6b 25  29 3d 30 0d 1a ea 30 64  |mp(j%,k%)=0...0d|
000053f0  75 6d 6d 79 3d b3 28 2d  91 29 3a e7 20 b3 28 31  |ummy=.(-.):. .(1|
00005400  30 30 29 3e 28 31 30 30  2d 70 62 25 29 20 74 65  |00)>(100-pb%) te|
00005410  6d 70 28 6a 25 2c 6b 25  29 3d 30 0d 1a f4 05 cd  |mp(j%,k%)=0.....|
00005420  0d 1a fe 08 ed 20 6b 25  0d 1b 08 08 ed 20 6a 25  |..... k%..... j%|
00005430  0d 1b 12 17 41 28 29 3d  74 65 6d 70 28 29 3a 74  |....A()=temp():t|
00005440  65 6d 70 28 29 3d 30 0d  1b 1c 14 e3 20 6a 25 3d  |emp()=0..... j%=|
00005450  30 20 b8 20 64 69 76 73  25 2d 31 0d 1b 26 14 e3  |0 . divs%-1..&..|
00005460  20 6b 25 3d 30 20 b8 20  64 69 76 73 25 2d 31 0d  | k%=0 . divs%-1.|
00005470  1b 30 15 e7 20 41 28 6a  25 2c 6b 25 29 20 3d 20  |.0.. A(j%,k%) = |
00005480  31 30 20 8c 0d 1b 3a 16  e6 30 2c 72 65 64 25 3a  |10 ...:..0,red%:|
00005490  72 65 64 70 6f 70 25 2b  3d 31 0d 1b 44 35 c8 8f  |redpop%+=1..D5..|
000054a0  20 c8 90 20 6f 78 25 2b  6b 25 2a 6c 65 6e 78 25  | .. ox%+k%*lenx%|
000054b0  2f 64 69 76 73 25 2b 35  2c 6f 79 25 2d 6a 25 2a  |/divs%+5,oy%-j%*|
000054c0  6c 65 6e 79 25 2f 64 69  76 73 25 2d 35 2c 34 0d  |leny%/divs%-5,4.|
000054d0  1b 4e 05 cd 0d 1b 58 14  e7 20 41 28 6a 25 2c 6b  |.N....X.. A(j%,k|
000054e0  25 29 20 3d 20 31 20 8c  0d 1b 62 18 e6 30 2c 62  |%) = 1 ...b..0,b|
000054f0  6c 75 65 25 3a 62 6c 75  65 70 6f 70 25 2b 3d 31  |lue%:bluepop%+=1|
00005500  0d 1b 6c 35 c8 8f 20 c8  90 20 6f 78 25 2b 6b 25  |..l5.. .. ox%+k%|
00005510  2a 6c 65 6e 78 25 2f 64  69 76 73 25 2b 35 2c 6f  |*lenx%/divs%+5,o|
00005520  79 25 2d 6a 25 2a 6c 65  6e 79 25 2f 64 69 76 73  |y%-j%*leny%/divs|
00005530  25 2d 35 2c 34 0d 1b 76  05 cd 0d 1b 80 14 e7 20  |%-5,4..v....... |
00005540  41 28 6a 25 2c 6b 25 29  20 3d 20 30 20 8c 0d 1b  |A(j%,k%) = 0 ...|
00005550  8a 16 e6 30 2c 64 67 72  65 79 25 3a 64 65 61 64  |...0,dgrey%:dead|
00005560  25 2b 3d 31 0d 1b 94 35  c8 8f 20 c8 90 20 6f 78  |%+=1...5.. .. ox|
00005570  25 2b 6b 25 2a 6c 65 6e  78 25 2f 64 69 76 73 25  |%+k%*lenx%/divs%|
00005580  2b 35 2c 6f 79 25 2d 6a  25 2a 6c 65 6e 79 25 2f  |+5,oy%-j%*leny%/|
00005590  64 69 76 73 25 2d 35 2c  34 0d 1b 9e 05 cd 0d 1b  |divs%-5,4.......|
000055a0  a8 08 ed 20 6b 25 0d 1b  b2 08 ed 20 6a 25 0d 1b  |... k%..... j%..|
000055b0  bc 2f e6 30 2c 62 6c 61  63 6b 25 3a ec 20 78 63  |./.0,black%:. xc|
000055c0  79 63 6c 65 25 2c 79 70  6f 73 25 2d 32 30 2a 63  |ycle%,ypos%-20*c|
000055d0  79 63 6c 65 25 3a f1 63  79 63 6c 65 25 0d 1b c6  |ycle%:.cycle%...|
000055e0  23 ec 78 72 65 64 25 2c  79 70 6f 73 25 2d 32 30  |#.xred%,ypos%-20|
000055f0  2a 63 79 63 6c 65 25 3a  f1 72 65 64 70 6f 70 25  |*cycle%:.redpop%|
00005600  0d 1b d0 25 ec 78 62 6c  75 65 25 2c 79 70 6f 73  |...%.xblue%,ypos|
00005610  25 2d 32 30 2a 63 79 63  6c 65 25 3a f1 62 6c 75  |%-20*cycle%:.blu|
00005620  65 70 6f 70 25 0d 1b da  22 ec 78 64 65 61 64 25  |epop%...".xdead%|
00005630  2c 79 70 6f 73 25 2d 32  30 2a 63 79 63 6c 65 25  |,ypos%-20*cycle%|
00005640  3a f1 64 65 61 64 25 0d  1b e4 1c 74 6f 74 61 6c  |:.dead%....total|
00005650  73 28 63 79 63 6c 65 25  2c 30 29 3d 72 65 64 70  |s(cycle%,0)=redp|
00005660  6f 70 25 0d 1b ee 1d 74  6f 74 61 6c 73 28 63 79  |op%....totals(cy|
00005670  63 6c 65 25 2c 31 29 3d  62 6c 75 65 70 6f 70 25  |cle%,1)=bluepop%|
00005680  0d 1b f8 1a 74 6f 74 61  6c 73 28 63 79 63 6c 65  |....totals(cycle|
00005690  25 2c 32 29 3d 64 65 61  64 25 0d 1c 02 0d 63 79  |%,2)=dead%....cy|
000056a0  63 6c 65 25 2b 3d 31 0d  1c 0c 21 6b 65 79 24 3d  |cle%+=1...!key$=|
000056b0  bf 28 35 29 3a e7 20 6b  65 79 24 3d 22 73 22 20  |.(5):. key$="s" |
000056c0  6b 65 79 24 3d 22 53 22  0d 1c 16 0b 2a 46 58 31  |key$="S"....*FX1|
000056d0  35 2c 31 0d 1c 20 05 ce  0d 1c 2a 0b 2a 46 58 31  |5,1.. ....*.*FX1|
000056e0  35 2c 31 0d 1c 34 17 63  79 63 6c 65 73 72 75 6e  |5,1..4.cyclesrun|
000056f0  25 3d 63 79 63 6c 65 25  2d 31 0d 1c 3e 10 40 25  |%=cycle%-1..>.@%|
00005700  3d 26 30 30 30 30 30 39  30 41 0d 1c 48 1c f2 74  |=&0000090A..H..t|
00005710  75 74 62 6f 72 64 65 72  28 30 2c 30 2c 31 35 39  |utborder(0,0,159|
00005720  39 2c 31 32 34 29 0d 1c  52 05 e1 0d 1c 5c 22 dd  |9,124)..R....\".|
00005730  20 f2 70 6f 70 73 5f 70  61 67 65 32 28 70 61 67  | .pops_page2(pag|
00005740  65 73 25 2c 6e 6f 77 70  61 67 65 25 29 0d 1c 66  |es%,nowpage%)..f|
00005750  15 ea 20 78 6f 25 2c 79  6f 25 2c 78 6c 25 2c 79  |.. xo%,yo%,xl%,y|
00005760  6c 25 0d 1c 70 1f f2 74  75 74 62 6f 72 64 65 72  |l%..p..tutborder|
00005770  28 30 2c 31 32 30 2c 31  35 39 39 2c 31 30 37 39  |(0,120,1599,1079|
00005780  29 0d 1c 7a 1c f2 74 75  74 62 6f 72 64 65 72 28  |)..z..tutborder(|
00005790  30 2c 30 2c 31 35 39 39  2c 31 32 34 29 0d 1c 84  |0,0,1599,124)...|
000057a0  4e f2 68 65 61 64 33 28  22 43 52 55 4e 43 48 45  |N.head3("CRUNCHE|
000057b0  52 53 20 41 4e 44 20 4d  55 4e 43 48 45 52 53 22  |RS AND MUNCHERS"|
000057c0  2c 34 35 30 2c 31 31 36  30 2c 31 36 2c 31 36 2c  |,450,1160,16,16,|
000057d0  32 2c 32 2c 77 68 69 74  65 25 2c 64 62 72 6f 77  |2,2,white%,dbrow|
000057e0  6e 25 2c 6c 62 72 6f 77  6e 25 29 0d 1c 8e 11 c8  |n%,lbrown%).....|
000057f0  97 20 b8 20 31 31 30 30  2c 32 30 30 0d 1c 98 0e  |. . 1100,200....|
00005800  e6 20 30 2c 62 6c 61 63  6b 25 0d 1c a2 2f ec 20  |. 0,black%.../. |
00005810  31 31 38 30 2c 31 39 30  3a f1 20 22 50 61 67 65  |1180,190:. "Page|
00005820  20 22 3b 6e 6f 77 70 61  67 65 25 3b 22 20 6f 66  | ";nowpage%;" of|
00005830  20 22 3b 70 61 67 65 73  25 0d 1c ac 24 78 6f 25  | ";pages%...$xo%|
00005840  3d 33 32 30 3a 79 6f 25  3d 32 38 30 3a 78 6c 25  |=320:yo%=280:xl%|
00005850  3d 31 32 30 30 3a 79 6c  25 3d 37 30 30 0d 1c b6  |=1200:yl%=700...|
00005860  23 e6 30 2c 6d 67 72 65  79 25 3a c8 93 20 c8 90  |#.0,mgrey%:.. ..|
00005870  20 78 6f 25 2c 79 6f 25  2c 78 6c 25 2c 79 6c 25  | xo%,yo%,xl%,yl%|
00005880  0d 1c c0 0d e6 30 2c 77  68 69 74 65 25 0d 1c ca  |.....0,white%...|
00005890  0f e3 20 69 25 3d 30 20  b8 20 35 30 0d 1c d4 22  |.. i%=0 . 50..."|
000058a0  ec 20 78 6f 25 2b 69 25  2a 78 6c 25 2f 35 30 2c  |. xo%+i%*xl%/50,|
000058b0  79 6f 25 3a df 20 42 59  20 30 2c 79 6c 25 0d 1c  |yo%:. BY 0,yl%..|
000058c0  de 08 ed 20 69 25 0d 1c  e8 0f e3 20 69 25 3d 30  |... i%..... i%=0|
000058d0  20 b8 20 35 30 0d 1c f2  22 ec 20 78 6f 25 2c 79  | . 50...". xo%,y|
000058e0  6f 25 2b 69 25 2a 79 6c  25 2f 35 30 3a df 20 42  |o%+i%*yl%/50:. B|
000058f0  59 20 78 6c 25 2c 30 0d  1c fc 08 ed 20 69 25 0d  |Y xl%,0..... i%.|
00005900  1d 06 2d e6 30 2c 62 6c  61 63 6b 25 3a ec 20 78  |..-.0,black%:. x|
00005910  6f 25 2c 79 6f 25 3a df  20 42 59 20 78 6c 25 2c  |o%,yo%:. BY xl%,|
00005920  30 3a df 20 42 59 20 30  2c 79 6c 25 0d 1d 10 1b  |0:. BY 0,yl%....|
00005930  df 20 42 59 20 2d 78 6c  25 2c 30 3a df 20 42 59  |. BY -xl%,0:. BY|
00005940  20 30 2c 2d 79 6c 25 0d  1d 1a 17 ef 32 33 2c 31  | 0,-yl%.....23,1|
00005950  37 2c 37 2c 36 2c 38 3b  38 3b 30 3b 30 3b 0d 1d  |7,7,6,8;8;0;0;..|
00005960  24 10 40 25 3d 26 30 30  30 30 30 39 30 32 0d 1d  |$.@%=&00000902..|
00005970  2e 14 e3 20 69 25 3d 30  20 b8 20 35 30 20 88 20  |... i%=0 . 50 . |
00005980  31 30 0d 1d 38 22 ec 20  78 6f 25 2b 69 25 2a 78  |10..8". xo%+i%*x|
00005990  6c 25 2f 35 30 2c 79 6f  25 3a df 20 42 59 20 30  |l%/50,yo%:. BY 0|
000059a0  2c 79 6c 25 0d 1d 42 22  ec 20 78 6f 25 2b 69 25  |,yl%..B". xo%+i%|
000059b0  2a 78 6c 25 2f 35 30 2d  31 35 2c 79 6f 25 2d 31  |*xl%/50-15,yo%-1|
000059c0  32 3a f1 20 69 25 0d 1d  4c 08 ed 20 69 25 0d 1d  |2:. i%..L.. i%..|
000059d0  56 10 40 25 3d 26 30 30  30 30 30 39 30 35 0d 1d  |V.@%=&00000905..|
000059e0  60 14 e3 20 69 25 3d 30  20 b8 20 35 30 20 88 20  |`.. i%=0 . 50 . |
000059f0  31 30 0d 1d 6a 22 ec 20  78 6f 25 2c 79 6f 25 2b  |10..j". xo%,yo%+|
00005a00  69 25 2a 79 6c 25 2f 35  30 3a df 20 42 59 20 78  |i%*yl%/50:. BY x|
00005a10  6c 25 2c 30 0d 1d 74 25  ec 20 78 6f 25 2d 39 30  |l%,0..t%. xo%-90|
00005a20  2c 79 6f 25 2b 69 25 2a  79 6c 25 2f 35 30 2b 35  |,yo%+i%*yl%/50+5|
00005a30  3a f1 20 32 30 30 2a 69  25 0d 1d 7e 08 ed 20 69  |:. 200*i%..~.. i|
00005a40  25 0d 1d 88 10 40 25 3d  26 30 30 30 30 30 39 30  |%....@%=&0000090|
00005a50  41 0d 1d 92 18 ef 32 33  2c 31 37 2c 37 2c 36 2c  |A.....23,17,7,6,|
00005a60  38 3b 31 36 3b 30 3b 30  3b 0d 1d 9c 16 ec 20 38  |8;16;0;0;..... 8|
00005a70  38 30 2c 32 35 30 3a f1  22 43 79 63 6c 65 22 0d  |80,250:."Cycle".|
00005a80  1d a6 1a ec 35 30 2c 36  34 30 3a f1 22 50 6f 70  |....50,640:."Pop|
00005a90  75 6c 61 74 69 6f 6e 73  22 0d 1d b0 38 e6 30 2c  |ulations"...8.0,|
00005aa0  64 67 72 65 79 25 3a ec  20 78 6f 25 2b 36 30 2c  |dgrey%:. xo%+60,|
00005ab0  79 6f 25 2b 79 6c 25 2b  38 30 3a f1 22 4e 6f 20  |yo%+yl%+80:."No |
00005ac0  63 72 65 61 74 75 72 65  73 5f 5f 5f 5f 5f 5f 5f  |creatures_______|
00005ad0  22 0d 1d ba 34 e6 30 2c  72 65 64 25 3a ec 20 78  |"...4.0,red%:. x|
00005ae0  6f 25 2b 35 31 30 2c 79  6f 25 2b 79 6c 25 2b 38  |o%+510,yo%+yl%+8|
00005af0  30 3a f1 22 50 72 65 64  61 74 6f 72 73 5f 5f 5f  |0:."Predators___|
00005b00  5f 5f 5f 5f 22 0d 1d c4  30 e6 30 2c 62 6c 75 65  |____"...0.0,blue|
00005b10  25 3a ec 20 78 6f 25 2b  39 36 30 2c 79 6f 25 2b  |%:. xo%+960,yo%+|
00005b20  79 6c 25 2b 38 30 3a f1  22 50 72 65 79 5f 5f 5f  |yl%+80:."Prey___|
00005b30  5f 5f 5f 5f 22 0d 1d ce  19 e3 20 69 25 3d 30 20  |____"..... i%=0 |
00005b40  b8 20 63 79 63 6c 65 73  72 75 6e 25 2d 31 0d 1d  |. cyclesrun%-1..|
00005b50  d8 36 e6 30 2c 72 65 64  25 3a ec 20 78 6f 25 2b  |.6.0,red%:. xo%+|
00005b60  69 25 2a 78 6c 25 2f 35  30 2c 79 6f 25 2b 74 6f  |i%*xl%/50,yo%+to|
00005b70  74 61 6c 73 28 69 25 2c  30 29 2a 79 6c 25 2f 31  |tals(i%,0)*yl%/1|
00005b80  30 30 30 30 0d 1d e2 34  df 20 78 6f 25 2b 28 69  |0000...4. xo%+(i|
00005b90  25 2b 31 29 2a 78 6c 25  2f 35 30 2c 79 6f 25 2b  |%+1)*xl%/50,yo%+|
00005ba0  74 6f 74 61 6c 73 28 69  25 2b 31 2c 30 29 2a 79  |totals(i%+1,0)*y|
00005bb0  6c 25 2f 31 30 30 30 30  0d 1d ec 37 e6 30 2c 62  |l%/10000...7.0,b|
00005bc0  6c 75 65 25 3a ec 20 78  6f 25 2b 69 25 2a 78 6c  |lue%:. xo%+i%*xl|
00005bd0  25 2f 35 30 2c 79 6f 25  2b 74 6f 74 61 6c 73 28  |%/50,yo%+totals(|
00005be0  69 25 2c 31 29 2a 79 6c  25 2f 31 30 30 30 30 0d  |i%,1)*yl%/10000.|
00005bf0  1d f6 34 df 20 78 6f 25  2b 28 69 25 2b 31 29 2a  |..4. xo%+(i%+1)*|
00005c00  78 6c 25 2f 35 30 2c 79  6f 25 2b 74 6f 74 61 6c  |xl%/50,yo%+total|
00005c10  73 28 69 25 2b 31 2c 31  29 2a 79 6c 25 2f 31 30  |s(i%+1,1)*yl%/10|
00005c20  30 30 30 0d 1e 00 39 e6  30 2c 76 64 67 72 65 79  |000...9.0,vdgrey|
00005c30  25 3a ec 20 78 6f 25 2b  69 25 2a 78 6c 25 2f 35  |%:. xo%+i%*xl%/5|
00005c40  30 2c 79 6f 25 2b 74 6f  74 61 6c 73 28 69 25 2c  |0,yo%+totals(i%,|
00005c50  32 29 2a 79 6c 25 2f 31  30 30 30 30 0d 1e 0a 34  |2)*yl%/10000...4|
00005c60  df 20 78 6f 25 2b 28 69  25 2b 31 29 2a 78 6c 25  |. xo%+(i%+1)*xl%|
00005c70  2f 35 30 2c 79 6f 25 2b  74 6f 74 61 6c 73 28 69  |/50,yo%+totals(i|
00005c80  25 2b 31 2c 32 29 2a 79  6c 25 2f 31 30 30 30 30  |%+1,2)*yl%/10000|
00005c90  0d 1e 14 08 ed 20 69 25  0d 1e 1e 0d e6 30 2c 62  |..... i%.....0,b|
00005ca0  6c 61 63 6b 25 0d 1e 28  1c f2 74 75 74 62 6f 72  |lack%..(..tutbor|
00005cb0  64 65 72 28 30 2c 30 2c  31 35 39 39 2c 31 32 34  |der(0,0,1599,124|
00005cc0  29 0d 1e 32 05 e1 0d 1e  3c 40 dd 20 f2 5f 62 75  |)..2....<@. ._bu|
00005cd0  74 74 6f 6e 28 78 70 6f  73 2c 79 70 6f 73 2c 68  |tton(xpos,ypos,h|
00005ce0  65 69 67 68 74 2c 63 6f  6c 63 65 6e 74 72 65 25  |eight,colcentre%|
00005cf0  2c 63 6f 6c 62 6f 72 64  65 72 25 2c 63 6f 6c 5f  |,colborder%,col_|
00005d00  6c 69 6e 65 25 29 0d 1e  46 1d ea 20 63 6f 72 6e  |line%)..F.. corn|
00005d10  65 72 2c 62 6f 72 64 65  72 2c 6c 65 6e 2c 78 70  |er,border,len,xp|
00005d20  2c 79 70 0d 1e 50 12 ea  20 68 74 2c 6c 6e 2c 63  |,yp..P.. ht,ln,c|
00005d30  6f 75 6e 74 25 0d 1e 5a  12 6c 65 6e 3d 34 2a 68  |ount%..Z.len=4*h|
00005d40  65 69 67 68 74 2f 33 0d  1e 64 0d 68 74 3d 68 65  |eight/3..d.ht=he|
00005d50  69 67 68 74 0d 1e 6e 0a  6c 6e 3d 6c 65 6e 0d 1e  |ight..n.ln=len..|
00005d60  78 0b 78 70 3d 78 70 6f  73 0d 1e 82 0b 79 70 3d  |x.xp=xpos....yp=|
00005d70  79 70 6f 73 0d 1e 8c 13  63 6f 72 6e 65 72 3d 68  |ypos....corner=h|
00005d80  65 69 67 68 74 2f 35 0d  1e 96 14 62 6f 72 64 65  |eight/5....borde|
00005d90  72 3d 68 65 69 67 68 74  2f 31 30 0d 1e a0 14 e3  |r=height/10.....|
00005da0  20 63 6f 75 6e 74 25 20  3d 20 31 20 b8 20 34 0d  | count% = 1 . 4.|
00005db0  1e aa 0f c8 8e 20 63 6f  75 6e 74 25 20 ca 0d 1e  |..... count% ...|
00005dc0  b4 07 c9 20 31 0d 1e be  12 e6 20 30 2c 63 6f 6c  |... 1..... 0,col|
00005dd0  62 6f 72 64 65 72 25 0d  1e c8 07 c9 20 32 0d 1e  |border%..... 2..|
00005de0  d2 12 e6 20 30 2c 63 6f  6c 63 65 6e 74 72 65 25  |... 0,colcentre%|
00005df0  0d 1e dc 07 c9 20 33 0d  1e e6 11 e6 20 30 2c 63  |..... 3..... 0,c|
00005e00  6f 6c 5f 6c 69 6e 65 25  0d 1e f0 0b 78 70 6f 73  |ol_line%....xpos|
00005e10  3d 78 70 0d 1e fa 0b 79  70 6f 73 3d 79 70 0d 1f  |=xp....ypos=yp..|
00005e20  04 0d 68 65 69 67 68 74  3d 68 74 0d 1f 0e 0a 6c  |..height=ht....l|
00005e30  65 6e 3d 6c 6e 0d 1f 18  05 cb 0d 1f 22 16 ec 20  |en=ln.......".. |
00005e40  78 70 6f 73 2b 63 6f 72  6e 65 72 2c 79 70 6f 73  |xpos+corner,ypos|
00005e50  0d 1f 2c 14 f0 20 31 2c  6c 65 6e 2d 63 6f 72 6e  |..,.. 1,len-corn|
00005e60  65 72 2c 30 0d 1f 36 16  ec 20 42 59 20 63 6f 72  |er,0..6.. BY cor|
00005e70  6e 65 72 2c 63 6f 72 6e  65 72 0d 1f 40 17 f0 20  |ner,corner..@.. |
00005e80  31 2c 30 2c 68 65 69 67  68 74 2d 63 6f 72 6e 65  |1,0,height-corne|
00005e90  72 0d 1f 4a 17 ec 20 42  59 20 2d 63 6f 72 6e 65  |r..J.. BY -corne|
00005ea0  72 2c 63 6f 72 6e 65 72  0d 1f 54 15 f0 20 31 2c  |r,corner..T.. 1,|
00005eb0  2d 6c 65 6e 2b 63 6f 72  6e 65 72 2c 30 0d 1f 5e  |-len+corner,0..^|
00005ec0  18 ec 20 42 59 20 2d 63  6f 72 6e 65 72 2c 2d 63  |.. BY -corner,-c|
00005ed0  6f 72 6e 65 72 0d 1f 68  18 f0 20 31 2c 30 2c 2d  |orner..h.. 1,0,-|
00005ee0  68 65 69 67 68 74 2b 63  6f 72 6e 65 72 0d 1f 72  |height+corner..r|
00005ef0  11 ec 20 42 59 20 63 6f  72 6e 65 72 2c 30 0d 1f  |.. BY corner,0..|
00005f00  7c 12 ec 20 42 59 20 2d  63 6f 72 6e 65 72 2c 30  ||.. BY -corner,0|
00005f10  0d 1f 86 18 f0 20 31 36  31 2c 63 6f 72 6e 65 72  |..... 161,corner|
00005f20  2c 2d 63 6f 72 6e 65 72  0d 1f 90 1a ec 20 42 59  |,-corner..... BY|
00005f30  20 6c 65 6e 2d 63 6f 72  6e 65 72 2c 63 6f 72 6e  | len-corner,corn|
00005f40  65 72 0d 1f 9a 12 ec 20  42 59 20 30 2c 2d 63 6f  |er..... BY 0,-co|
00005f50  72 6e 65 72 0d 1f a4 17  f0 20 31 36 31 2c 63 6f  |rner..... 161,co|
00005f60  72 6e 65 72 2c 63 6f 72  6e 65 72 0d 1f ae 1e ec  |rner,corner.....|
00005f70  20 42 59 20 2d 63 6f 72  6e 65 72 2c 68 65 69 67  | BY -corner,heig|
00005f80  68 74 2d 63 6f 72 6e 65  72 0d 1f b8 11 ec 20 42  |ht-corner..... B|
00005f90  59 20 63 6f 72 6e 65 72  2c 30 0d 1f c2 18 f0 20  |Y corner,0..... |
00005fa0  31 36 31 2c 2d 63 6f 72  6e 65 72 2c 63 6f 72 6e  |161,-corner,corn|
00005fb0  65 72 0d 1f cc 1c ec 20  42 59 20 2d 6c 65 6e 2b  |er..... BY -len+|
00005fc0  63 6f 72 6e 65 72 2c 2d  63 6f 72 6e 65 72 0d 1f  |corner,-corner..|
00005fd0  d6 11 ec 20 42 59 20 30  2c 63 6f 72 6e 65 72 0d  |... BY 0,corner.|
00005fe0  1f e0 19 f0 20 31 36 31  2c 2d 63 6f 72 6e 65 72  |.... 161,-corner|
00005ff0  2c 2d 63 6f 72 6e 65 72  0d 1f ea 0f c8 8e 20 63  |,-corner...... c|
00006000  6f 75 6e 74 25 20 ca 0d  1f f4 07 c9 20 31 0d 1f  |ount% ...... 1..|
00006010  fe 22 f0 20 26 38 44 2c  78 70 6f 73 2b 6c 65 6e  |.". &8D,xpos+len|
00006020  2f 32 2c 79 70 6f 73 2b  68 65 69 67 68 74 2f 32  |/2,ypos+height/2|
00006030  0d 20 08 07 c9 20 32 0d  20 12 22 f0 20 26 38 44  |. ... 2. .". &8D|
00006040  2c 78 70 6f 73 2b 6c 65  6e 2f 32 2c 79 70 6f 73  |,xpos+len/2,ypos|
00006050  2b 68 65 69 67 68 74 2f  32 0d 20 1c 05 cb 0d 20  |+height/2. .... |
00006060  26 14 78 70 6f 73 3d 78  70 6f 73 2b 62 6f 72 64  |&.xpos=xpos+bord|
00006070  65 72 0d 20 30 14 79 70  6f 73 3d 79 70 6f 73 2b  |er. 0.ypos=ypos+|
00006080  62 6f 72 64 65 72 0d 20  3a 1a 68 65 69 67 68 74  |border. :.height|
00006090  3d 68 65 69 67 68 74 2d  32 2a 62 6f 72 64 65 72  |=height-2*border|
000060a0  0d 20 44 14 6c 65 6e 3d  6c 65 6e 2d 32 2a 62 6f  |. D.len=len-2*bo|
000060b0  72 64 65 72 0d 20 4e 0c  ed 20 63 6f 75 6e 74 25  |rder. N.. count%|
000060c0  0d 20 58 05 e1 0d 20 62  2e dd 20 f2 5f 6d 6f 75  |. X... b.. ._mou|
000060d0  73 65 28 78 70 6f 73 2c  79 70 6f 73 2c 68 65 69  |se(xpos,ypos,hei|
000060e0  67 68 74 2c 6f 70 74 69  6f 6e 25 2c f8 20 6f 70  |ght,option%,. op|
000060f0  74 25 29 0d 20 6c 16 ea  20 6c 65 6e 2c 78 2c 79  |t%). l.. len,x,y|
00006100  2c 62 75 74 74 6f 6e 73  25 0d 20 76 12 6c 65 6e  |,buttons%. v.len|
00006110  3d 34 2a 68 65 69 67 68  74 2f 33 0d 20 80 13 c8  |=4*height/3. ...|
00006120  97 20 78 2c 79 2c 62 75  74 74 6f 6e 73 25 0d 20  |. x,y,buttons%. |
00006130  8a 12 e7 20 62 75 74 74  6f 6e 73 25 3d 34 20 8c  |... buttons%=4 .|
00006140  0d 20 94 1b e7 20 78 3e  78 70 6f 73 20 80 20 78  |. ... x>xpos . x|
00006150  3c 78 70 6f 73 2b 6c 65  6e 20 8c 0d 20 9e 1e e7  |<xpos+len .. ...|
00006160  20 79 3e 79 70 6f 73 20  80 20 79 3c 79 70 6f 73  | y>ypos . y<ypos|
00006170  2b 68 65 69 67 68 74 20  8c 0d 20 a8 10 6f 70 74  |+height .. ..opt|
00006180  25 3d 6f 70 74 69 6f 6e  25 0d 20 b2 0d cc 20 6f  |%=option%. ... o|
00006190  70 74 25 3d 2d 31 0d 20  bc 05 cd 0d 20 c6 05 cd  |pt%=-1. .... ...|
000061a0  0d 20 d0 05 cd 0d 20 da  05 e1 0d 20 e4 04 0d ff  |. .... .... ....|
000061b0