d � * Biomorphs *
n � by Mike Cook
x � (c) Micro User
� � 1
� � morph(5,12),parent(5)
� � gi(5,2),px(12),py(12)
�= � READ IN INCREMENTS AND LIMITS (MIN & MAX) OF EACH GENE
� � �dH@
� � A%=0 � 2:� B%=0 � 5
� � gi(B%,A%):�:�
�3 � 1,4,0.16,0.2,0.16,2:REM Gene increment value
�7 � 1,-36,-3.14,0.1,-3.14,-18:REM Gene minimum value
�2 � 9,36,3.14,10,3.14,18:REM Gene maximum value
�* �_INTPOS:� Intialise display position
� �_INTP:� Intialise parent
�
 gen=0

 � 0

 �

 gen=gen+1

"
 �_MUTATE

, �_DISPLAY

6 �_CHOSE

@ � �

J
 � �_INTP

T � A$="C" � �

^ parent(0)=1

h parent(1)=4

r parent(2)=.785

| parent(3)=1

� parent(4)=0

� parent(5)=0

� � A$="A" � �

� � A%=0 � 5

�! parent(A%)=(�(5)+1)*gi(A%,0)

� �

� parent(0)=�(3)+1

� �

� � �_MUTATE

� � B%=1 � 12

� � A%=0 � 5

� morph(A%,B%)=parent(A%)

� � (B%�2) D%=-1 � D%=1
 C%=(B%-1)�2
 � C%<>A% � �TpB
W � morph(A%,B%)+D%*(gi(A%,0))<gi(A%,1) � morph(A%,B%)+D%*(gi(A%,0))>gi(A%,2) � �TpB
&, morph(A%,B%)=morph(A%,B%)+D%*(gi(A%,0))
0
 �:�:�
: � �_DISPLAY
D �_LINES
NP �_TREE(parent(0),parent(1),parent(2),parent(3),parent(4),parent(5),640,500)
X � A%=1 � 12
bb �_TREE(morph(0,A%),morph(1,A%),morph(2,A%),morph(3,A%),morph(4,A%),morph(5,A%),px(A%),py(A%))
l �:�
v � �_INTPOS
� � �DHC
� � A=1 � 12
� � px(A),py(A):�
� �''�(14);"Biomorph"
�* �"An exercise in Darwinian Evolution"
� �"By Mike Cook"
�+ �"Based on an idea by Richard Dawkins"
�& �"Author of THE BLIND WATCHMAKER"
�+ �'''"Options to start evolving from:-"
� �"A - A microbe."
� �"B - Some random point"
� �"C - A defined point"
�& �"Press the key of your choice.";
. A$=�:� �(A$="A" � A$="B" � A$="C") � �TBC
 �:� A$<>"C" �
 � A%=0 � 5
  �"Gene number ";A%"=";
* � parent(A%)
4d � parent(A%)>gi(A%,2) � parent(A%)<gi(A%,1) �"Values between ";gi(A%,1);" and ";gi(A%,2):� �T`C
> �:�
HI � 160,860,480,860,800,860,1120,860,160,604,1120,604,160,348,1120,348
R# � 160,92,480,92,800,92,1120,92
\ � �_LINES
f � 12,23,1,0;0;0;0;5
p �
z � X%=320 � 960 � 320
� � Y%=256 � 800 � 256
� � X%,0:� X%,1023
� � 0,Y%:� 1259,Y%
� �:�
� � 640,260:� 7,640,764
� � 324,512:� 7,958,512
� � A%=1 � 12
� � px(A%)-150,py(A%)-60
� �&40+A%:�
� � 360,322
� �"PARENT BOIMORPH"
� � 360,755
� �"GENERATION NUMBER ";gen
	 �4:�
 � �_CHOSE
 �5:� 360,290
$, �"? or breed from child (A-L)?";:*FX 15
.	 A$=�
8 �A$;:C%=�A$-&40
B � C%<0 � C%>12 �_REVIEW:�
L � A%=0 � 5
V parent(A%)=morph(A%,C%)
` �:�4:�
j � �_REVIEW
t � 22,1
~ �"Current Biomorph has:-"
� � A%=0 � 5
�% �"GENE ";A%;" VALUE ";parent(A%)
� �
�P �_TREE(parent(0),parent(1),parent(2),parent(3),parent(4),parent(5),640,300)
�) �0,30);"Press any key to continue";
� A$=�:gen=gen-1:� 22,0
� �
�" � �_TREE(D,L,dA,AR,DT,DS,X,Y)
� � X,Y:� X,Y-L
� �_GROW(�/2,L,X,Y,D)
� �
� � �_GROW(TH,L,X,Y,D)
 � D � X,Y � �

 dX=�(TH+dA)*(1/AR)
 dY=�(TH+dA)*AR
 � 1,dX,dY
(( �_GROW(TH+dA+DT,L-DS,X+dX,Y+dY,D-1)
2
 � X,Y
< dX=L*�(TH-dA)*(1/AR)
F dY=L*�(TH-dA)*AR
P � 1,dX,dY:� X,Y
Z( �_GROW(TH-dA-DT,L-DS,X+dX,Y+dY,D-1)
d �
�

00000000  0d 00 64 14 20 f4 20 2a  20 42 69 6f 6d 6f 72 70  |..d. . * Biomorp|
00000010  68 73 20 2a 0d 00 6e 13  20 f4 20 62 79 20 4d 69  |hs *..n. . by Mi|
00000020  6b 65 20 43 6f 6f 6b 0d  00 78 15 20 f4 20 28 63  |ke Cook..x. . (c|
00000030  29 20 4d 69 63 72 6f 20  55 73 65 72 0d 00 82 08  |) Micro User....|
00000040  20 eb 20 31 0d 00 8c 1c  20 de 20 6d 6f 72 70 68  | . 1.... . morph|
00000050  28 35 2c 31 32 29 2c 70  61 72 65 6e 74 28 35 29  |(5,12),parent(5)|
00000060  0d 00 96 1c 20 de 20 67  69 28 35 2c 32 29 2c 70  |.... . gi(5,2),p|
00000070  78 28 31 32 29 2c 70 79  28 31 32 29 0d 00 a0 3d  |x(12),py(12)...=|
00000080  20 f4 20 52 45 41 44 20  49 4e 20 49 4e 43 52 45  | . READ IN INCRE|
00000090  4d 45 4e 54 53 20 41 4e  44 20 4c 49 4d 49 54 53  |MENTS AND LIMITS|
000000a0  20 28 4d 49 4e 20 26 20  4d 41 58 29 20 4f 46 20  | (MIN & MAX) OF |
000000b0  45 41 43 48 20 47 45 4e  45 0d 00 aa 0b 20 f7 20  |EACH GENE.... . |
000000c0  8d 64 48 40 0d 00 b4 1a  20 e3 20 41 25 3d 30 20  |.dH@.... . A%=0 |
000000d0  b8 20 32 3a e3 20 42 25  3d 30 20 b8 20 35 0d 00  |. 2:. B%=0 . 5..|
000000e0  be 14 20 f3 20 67 69 28  42 25 2c 41 25 29 3a ed  |.. . gi(B%,A%):.|
000000f0  3a ed 0d 00 c8 33 20 dc  20 31 2c 34 2c 30 2e 31  |:....3 . 1,4,0.1|
00000100  36 2c 30 2e 32 2c 30 2e  31 36 2c 32 3a 52 45 4d  |6,0.2,0.16,2:REM|
00000110  20 47 65 6e 65 20 69 6e  63 72 65 6d 65 6e 74 20  | Gene increment |
00000120  76 61 6c 75 65 0d 00 d2  37 20 dc 20 31 2c 2d 33  |value...7 . 1,-3|
00000130  36 2c 2d 33 2e 31 34 2c  30 2e 31 2c 2d 33 2e 31  |6,-3.14,0.1,-3.1|
00000140  34 2c 2d 31 38 3a 52 45  4d 20 47 65 6e 65 20 6d  |4,-18:REM Gene m|
00000150  69 6e 69 6d 75 6d 20 76  61 6c 75 65 0d 00 dc 32  |inimum value...2|
00000160  20 dc 20 39 2c 33 36 2c  33 2e 31 34 2c 31 30 2c  | . 9,36,3.14,10,|
00000170  33 2e 31 34 2c 31 38 3a  52 45 4d 20 47 65 6e 65  |3.14,18:REM Gene|
00000180  20 6d 61 78 69 6d 75 6d  20 76 61 6c 75 65 0d 00  | maximum value..|
00000190  e6 2a 20 f2 5f 49 4e 54  50 4f 53 3a f4 20 49 6e  |.* ._INTPOS:. In|
000001a0  74 69 61 6c 69 73 65 20  64 69 73 70 6c 61 79 20  |tialise display |
000001b0  70 6f 73 69 74 69 6f 6e  0d 00 f0 1e 20 f2 5f 49  |position.... ._I|
000001c0  4e 54 50 3a f4 20 49 6e  74 69 61 6c 69 73 65 20  |NTP:. Intialise |
000001d0  70 61 72 65 6e 74 0d 00  fa 0a 20 67 65 6e 3d 30  |parent.... gen=0|
000001e0  0d 01 04 08 20 eb 20 30  0d 01 0e 06 20 f5 0d 01  |.... . 0.... ...|
000001f0  18 0e 20 67 65 6e 3d 67  65 6e 2b 31 0d 01 22 0d  |.. gen=gen+1..".|
00000200  20 f2 5f 4d 55 54 41 54  45 0d 01 2c 0e 20 f2 5f  | ._MUTATE..,. ._|
00000210  44 49 53 50 4c 41 59 0d  01 36 0c 20 f2 5f 43 48  |DISPLAY..6. ._CH|
00000220  4f 53 45 0d 01 40 08 20  fd 20 a3 0d 01 4a 0d 20  |OSE..@. . ...J. |
00000230  dd 20 f2 5f 49 4e 54 50  0d 01 54 11 20 e7 20 41  |. ._INTP..T. . A|
00000240  24 3d 22 43 22 20 8c 20  e1 0d 01 5e 10 20 70 61  |$="C" . ...^. pa|
00000250  72 65 6e 74 28 30 29 3d  31 0d 01 68 10 20 70 61  |rent(0)=1..h. pa|
00000260  72 65 6e 74 28 31 29 3d  34 0d 01 72 13 20 70 61  |rent(1)=4..r. pa|
00000270  72 65 6e 74 28 32 29 3d  2e 37 38 35 0d 01 7c 10  |rent(2)=.785..|.|
00000280  20 70 61 72 65 6e 74 28  33 29 3d 31 0d 01 86 10  | parent(3)=1....|
00000290  20 70 61 72 65 6e 74 28  34 29 3d 30 0d 01 90 10  | parent(4)=0....|
000002a0  20 70 61 72 65 6e 74 28  35 29 3d 30 0d 01 9a 11  | parent(5)=0....|
000002b0  20 e7 20 41 24 3d 22 41  22 20 8c 20 e1 0d 01 a4  | . A$="A" . ....|
000002c0  0f 20 e3 20 41 25 3d 30  20 b8 20 35 0d 01 ae 21  |. . A%=0 . 5...!|
000002d0  20 70 61 72 65 6e 74 28  41 25 29 3d 28 b3 28 35  | parent(A%)=(.(5|
000002e0  29 2b 31 29 2a 67 69 28  41 25 2c 30 29 0d 01 b8  |)+1)*gi(A%,0)...|
000002f0  06 20 ed 0d 01 c2 15 20  70 61 72 65 6e 74 28 30  |. ..... parent(0|
00000300  29 3d b3 28 33 29 2b 31  0d 01 cc 06 20 e1 0d 01  |)=.(3)+1.... ...|
00000310  d6 0f 20 dd 20 f2 5f 4d  55 54 41 54 45 0d 01 e0  |.. . ._MUTATE...|
00000320  10 20 e3 20 42 25 3d 31  20 b8 20 31 32 0d 01 ea  |. . B%=1 . 12...|
00000330  0f 20 e3 20 41 25 3d 30  20 b8 20 35 0d 01 f4 1c  |. . A%=0 . 5....|
00000340  20 6d 6f 72 70 68 28 41  25 2c 42 25 29 3d 70 61  | morph(A%,B%)=pa|
00000350  72 65 6e 74 28 41 25 29  0d 01 fe 1a 20 e7 20 28  |rent(A%).... . (|
00000360  42 25 83 32 29 20 44 25  3d 2d 31 20 8b 20 44 25  |B%.2) D%=-1 . D%|
00000370  3d 31 0d 02 08 10 20 43  25 3d 28 42 25 2d 31 29  |=1.... C%=(B%-1)|
00000380  81 32 0d 02 12 14 20 e7  20 43 25 3c 3e 41 25 20  |.2.... . C%<>A% |
00000390  8c 20 8d 54 70 42 0d 02  1c 57 20 e7 20 6d 6f 72  |. .TpB...W . mor|
000003a0  70 68 28 41 25 2c 42 25  29 2b 44 25 2a 28 67 69  |ph(A%,B%)+D%*(gi|
000003b0  28 41 25 2c 30 29 29 3c  67 69 28 41 25 2c 31 29  |(A%,0))<gi(A%,1)|
000003c0  20 84 20 6d 6f 72 70 68  28 41 25 2c 42 25 29 2b  | . morph(A%,B%)+|
000003d0  44 25 2a 28 67 69 28 41  25 2c 30 29 29 3e 67 69  |D%*(gi(A%,0))>gi|
000003e0  28 41 25 2c 32 29 20 8c  20 8d 54 70 42 0d 02 26  |(A%,2) . .TpB..&|
000003f0  2c 20 6d 6f 72 70 68 28  41 25 2c 42 25 29 3d 6d  |, morph(A%,B%)=m|
00000400  6f 72 70 68 28 41 25 2c  42 25 29 2b 44 25 2a 28  |orph(A%,B%)+D%*(|
00000410  67 69 28 41 25 2c 30 29  29 0d 02 30 0a 20 ed 3a  |gi(A%,0))..0. .:|
00000420  ed 3a e1 0d 02 3a 10 20  dd 20 f2 5f 44 49 53 50  |.:...:. . ._DISP|
00000430  4c 41 59 0d 02 44 0c 20  f2 5f 4c 49 4e 45 53 0d  |LAY..D. ._LINES.|
00000440  02 4e 50 20 f2 5f 54 52  45 45 28 70 61 72 65 6e  |.NP ._TREE(paren|
00000450  74 28 30 29 2c 70 61 72  65 6e 74 28 31 29 2c 70  |t(0),parent(1),p|
00000460  61 72 65 6e 74 28 32 29  2c 70 61 72 65 6e 74 28  |arent(2),parent(|
00000470  33 29 2c 70 61 72 65 6e  74 28 34 29 2c 70 61 72  |3),parent(4),par|
00000480  65 6e 74 28 35 29 2c 36  34 30 2c 35 30 30 29 0d  |ent(5),640,500).|
00000490  02 58 10 20 e3 20 41 25  3d 31 20 b8 20 31 32 0d  |.X. . A%=1 . 12.|
000004a0  02 62 62 20 f2 5f 54 52  45 45 28 6d 6f 72 70 68  |.bb ._TREE(morph|
000004b0  28 30 2c 41 25 29 2c 6d  6f 72 70 68 28 31 2c 41  |(0,A%),morph(1,A|
000004c0  25 29 2c 6d 6f 72 70 68  28 32 2c 41 25 29 2c 6d  |%),morph(2,A%),m|
000004d0  6f 72 70 68 28 33 2c 41  25 29 2c 6d 6f 72 70 68  |orph(3,A%),morph|
000004e0  28 34 2c 41 25 29 2c 6d  6f 72 70 68 28 35 2c 41  |(4,A%),morph(5,A|
000004f0  25 29 2c 70 78 28 41 25  29 2c 70 79 28 41 25 29  |%),px(A%),py(A%)|
00000500  29 0d 02 6c 08 20 ed 3a  e1 0d 02 76 0f 20 dd 20  |)..l. .:...v. . |
00000510  f2 5f 49 4e 54 50 4f 53  0d 02 80 0b 20 f7 20 8d  |._INTPOS.... . .|
00000520  44 48 43 0d 02 8a 0f 20  e3 20 41 3d 31 20 b8 20  |DHC.... . A=1 . |
00000530  31 32 0d 02 94 14 20 f3  20 70 78 28 41 29 2c 70  |12.... . px(A),p|
00000540  79 28 41 29 3a ed 0d 02  9e 18 20 f1 27 27 89 28  |y(A):..... .''.(|
00000550  31 34 29 3b 22 42 69 6f  6d 6f 72 70 68 22 0d 02  |14);"Biomorph"..|
00000560  a8 2a 20 f1 22 41 6e 20  65 78 65 72 63 69 73 65  |.* ."An exercise|
00000570  20 69 6e 20 44 61 72 77  69 6e 69 61 6e 20 45 76  | in Darwinian Ev|
00000580  6f 6c 75 74 69 6f 6e 22  0d 02 b2 14 20 f1 22 42  |olution".... ."B|
00000590  79 20 4d 69 6b 65 20 43  6f 6f 6b 22 0d 02 bc 2b  |y Mike Cook"...+|
000005a0  20 f1 22 42 61 73 65 64  20 6f 6e 20 61 6e 20 69  | ."Based on an i|
000005b0  64 65 61 20 62 79 20 52  69 63 68 61 72 64 20 44  |dea by Richard D|
000005c0  61 77 6b 69 6e 73 22 0d  02 c6 26 20 f1 22 41 75  |awkins"...& ."Au|
000005d0  74 68 6f 72 20 6f 66 20  54 48 45 20 42 4c 49 4e  |thor of THE BLIN|
000005e0  44 20 57 41 54 43 48 4d  41 4b 45 52 22 0d 02 d0  |D WATCHMAKER"...|
000005f0  2b 20 f1 27 27 27 22 4f  70 74 69 6f 6e 73 20 74  |+ .'''"Options t|
00000600  6f 20 73 74 61 72 74 20  65 76 6f 6c 76 69 6e 67  |o start evolving|
00000610  20 66 72 6f 6d 3a 2d 22  0d 02 da 16 20 f1 22 41  | from:-".... ."A|
00000620  20 2d 20 41 20 6d 69 63  72 6f 62 65 2e 22 0d 02  | - A microbe."..|
00000630  e4 1d 20 f1 22 42 20 2d  20 53 6f 6d 65 20 72 61  |.. ."B - Some ra|
00000640  6e 64 6f 6d 20 70 6f 69  6e 74 22 0d 02 ee 1b 20  |ndom point".... |
00000650  f1 22 43 20 2d 20 41 20  64 65 66 69 6e 65 64 20  |."C - A defined |
00000660  70 6f 69 6e 74 22 0d 02  f8 26 20 f1 22 50 72 65  |point"...& ."Pre|
00000670  73 73 20 74 68 65 20 6b  65 79 20 6f 66 20 79 6f  |ss the key of yo|
00000680  75 72 20 63 68 6f 69 63  65 2e 22 3b 0d 03 02 2e  |ur choice.";....|
00000690  20 41 24 3d be 3a e7 20  ac 28 41 24 3d 22 41 22  | A$=.:. .(A$="A"|
000006a0  20 84 20 41 24 3d 22 42  22 20 84 20 41 24 3d 22  | . A$="B" . A$="|
000006b0  43 22 29 20 8c 20 8d 54  42 43 0d 03 0c 12 20 f1  |C") . .TBC.... .|
000006c0  3a e7 20 41 24 3c 3e 22  43 22 20 e1 0d 03 16 0f  |:. A$<>"C" .....|
000006d0  20 e3 20 41 25 3d 30 20  b8 20 35 0d 03 20 1b 20  | . A%=0 . 5.. . |
000006e0  f1 22 47 65 6e 65 20 6e  75 6d 62 65 72 20 22 3b  |."Gene number ";|
000006f0  41 25 22 3d 22 3b 0d 03  2a 11 20 e8 20 70 61 72  |A%"=";..*. . par|
00000700  65 6e 74 28 41 25 29 0d  03 34 64 20 e7 20 70 61  |ent(A%)..4d . pa|
00000710  72 65 6e 74 28 41 25 29  3e 67 69 28 41 25 2c 32  |rent(A%)>gi(A%,2|
00000720  29 20 84 20 70 61 72 65  6e 74 28 41 25 29 3c 67  |) . parent(A%)<g|
00000730  69 28 41 25 2c 31 29 20  f1 22 56 61 6c 75 65 73  |i(A%,1) ."Values|
00000740  20 62 65 74 77 65 65 6e  20 22 3b 67 69 28 41 25  | between ";gi(A%|
00000750  2c 31 29 3b 22 20 61 6e  64 20 22 3b 67 69 28 41  |,1);" and ";gi(A|
00000760  25 2c 32 29 3a e5 20 8d  54 60 43 0d 03 3e 08 20  |%,2):. .T`C..>. |
00000770  ed 3a e1 0d 03 48 49 20  dc 20 31 36 30 2c 38 36  |.:...HI . 160,86|
00000780  30 2c 34 38 30 2c 38 36  30 2c 38 30 30 2c 38 36  |0,480,860,800,86|
00000790  30 2c 31 31 32 30 2c 38  36 30 2c 31 36 30 2c 36  |0,1120,860,160,6|
000007a0  30 34 2c 31 31 32 30 2c  36 30 34 2c 31 36 30 2c  |04,1120,604,160,|
000007b0  33 34 38 2c 31 31 32 30  2c 33 34 38 0d 03 52 23  |348,1120,348..R#|
000007c0  20 dc 20 31 36 30 2c 39  32 2c 34 38 30 2c 39 32  | . 160,92,480,92|
000007d0  2c 38 30 30 2c 39 32 2c  31 31 32 30 2c 39 32 0d  |,800,92,1120,92.|
000007e0  03 5c 0e 20 dd 20 f2 5f  4c 49 4e 45 53 0d 03 66  |.\. . ._LINES..f|
000007f0  18 20 ef 20 31 32 2c 32  33 2c 31 2c 30 3b 30 3b  |. . 12,23,1,0;0;|
00000800  30 3b 30 3b 35 0d 03 70  06 20 f1 0d 03 7a 19 20  |0;0;5..p. ...z. |
00000810  e3 20 58 25 3d 33 32 30  20 b8 20 39 36 30 20 88  |. X%=320 . 960 .|
00000820  20 33 32 30 0d 03 84 19  20 e3 20 59 25 3d 32 35  | 320.... . Y%=25|
00000830  36 20 b8 20 38 30 30 20  88 20 32 35 36 0d 03 8e  |6 . 800 . 256...|
00000840  15 20 ec 20 58 25 2c 30  3a df 20 58 25 2c 31 30  |. . X%,0:. X%,10|
00000850  32 33 0d 03 98 15 20 ec  20 30 2c 59 25 3a df 20  |23.... . 0,Y%:. |
00000860  31 32 35 39 2c 59 25 0d  03 a2 08 20 ed 3a ed 0d  |1259,Y%.... .:..|
00000870  03 ac 1a 20 ec 20 36 34  30 2c 32 36 30 3a f0 20  |... . 640,260:. |
00000880  37 2c 36 34 30 2c 37 36  34 0d 03 b6 1a 20 ec 20  |7,640,764.... . |
00000890  33 32 34 2c 35 31 32 3a  f0 20 37 2c 39 35 38 2c  |324,512:. 7,958,|
000008a0  35 31 32 0d 03 c0 10 20  e3 20 41 25 3d 31 20 b8  |512.... . A%=1 .|
000008b0  20 31 32 0d 03 ca 1b 20  ec 20 70 78 28 41 25 29  | 12.... . px(A%)|
000008c0  2d 31 35 30 2c 70 79 28  41 25 29 2d 36 30 0d 03  |-150,py(A%)-60..|
000008d0  d4 0e 20 ef 26 34 30 2b  41 25 3a ed 0d 03 de 0e  |.. .&40+A%:.....|
000008e0  20 ec 20 33 36 30 2c 33  32 32 0d 03 e8 17 20 f1  | . 360,322.... .|
000008f0  22 50 41 52 45 4e 54 20  42 4f 49 4d 4f 52 50 48  |"PARENT BOIMORPH|
00000900  22 0d 03 f2 0e 20 ec 20  33 36 30 2c 37 35 35 0d  |".... . 360,755.|
00000910  03 fc 1e 20 f1 22 47 45  4e 45 52 41 54 49 4f 4e  |... ."GENERATION|
00000920  20 4e 55 4d 42 45 52 20  22 3b 67 65 6e 0d 04 06  | NUMBER ";gen...|
00000930  09 20 ef 34 3a e1 0d 04  10 0e 20 dd 20 f2 5f 43  |. .4:..... . ._C|
00000940  48 4f 53 45 0d 04 1a 11  20 ef 35 3a ec 20 33 36  |HOSE.... .5:. 36|
00000950  30 2c 32 39 30 0d 04 24  2c 20 f1 22 3f 20 6f 72  |0,290..$, ."? or|
00000960  20 62 72 65 65 64 20 66  72 6f 6d 20 63 68 69 6c  | breed from chil|
00000970  64 20 28 41 2d 4c 29 3f  22 3b 3a 2a 46 58 20 31  |d (A-L)?";:*FX 1|
00000980  35 0d 04 2e 09 20 41 24  3d be 0d 04 38 14 20 f1  |5.... A$=...8. .|
00000990  41 24 3b 3a 43 25 3d 97  41 24 2d 26 34 30 0d 04  |A$;:C%=.A$-&40..|
000009a0  42 1e 20 e7 20 43 25 3c  30 20 84 20 43 25 3e 31  |B. . C%<0 . C%>1|
000009b0  32 20 f2 5f 52 45 56 49  45 57 3a e1 0d 04 4c 0f  |2 ._REVIEW:...L.|
000009c0  20 e3 20 41 25 3d 30 20  b8 20 35 0d 04 56 1c 20  | . A%=0 . 5..V. |
000009d0  70 61 72 65 6e 74 28 41  25 29 3d 6d 6f 72 70 68  |parent(A%)=morph|
000009e0  28 41 25 2c 43 25 29 0d  04 60 0b 20 ed 3a ef 34  |(A%,C%)..`. .:.4|
000009f0  3a e1 0d 04 6a 0f 20 dd  20 f2 5f 52 45 56 49 45  |:...j. . ._REVIE|
00000a00  57 0d 04 74 0b 20 ef 20  32 32 2c 31 0d 04 7e 1e  |W..t. . 22,1..~.|
00000a10  20 f1 22 43 75 72 72 65  6e 74 20 42 69 6f 6d 6f  | ."Current Biomo|
00000a20  72 70 68 20 68 61 73 3a  2d 22 0d 04 88 0f 20 e3  |rph has:-".... .|
00000a30  20 41 25 3d 30 20 b8 20  35 0d 04 92 25 20 f1 22  | A%=0 . 5...% ."|
00000a40  47 45 4e 45 20 22 3b 41  25 3b 22 20 56 41 4c 55  |GENE ";A%;" VALU|
00000a50  45 20 22 3b 70 61 72 65  6e 74 28 41 25 29 0d 04  |E ";parent(A%)..|
00000a60  9c 06 20 ed 0d 04 a6 50  20 f2 5f 54 52 45 45 28  |.. ....P ._TREE(|
00000a70  70 61 72 65 6e 74 28 30  29 2c 70 61 72 65 6e 74  |parent(0),parent|
00000a80  28 31 29 2c 70 61 72 65  6e 74 28 32 29 2c 70 61  |(1),parent(2),pa|
00000a90  72 65 6e 74 28 33 29 2c  70 61 72 65 6e 74 28 34  |rent(3),parent(4|
00000aa0  29 2c 70 61 72 65 6e 74  28 35 29 2c 36 34 30 2c  |),parent(5),640,|
00000ab0  33 30 30 29 0d 04 b0 29  20 f1 8a 30 2c 33 30 29  |300)...) ..0,30)|
00000ac0  3b 22 50 72 65 73 73 20  61 6e 79 20 6b 65 79 20  |;"Press any key |
00000ad0  74 6f 20 63 6f 6e 74 69  6e 75 65 22 3b 0d 04 ba  |to continue";...|
00000ae0  1a 20 41 24 3d be 3a 67  65 6e 3d 67 65 6e 2d 31  |. A$=.:gen=gen-1|
00000af0  3a ef 20 32 32 2c 30 0d  04 c4 06 20 e1 0d 04 ce  |:. 22,0.... ....|
00000b00  22 20 dd 20 f2 5f 54 52  45 45 28 44 2c 4c 2c 64  |" . ._TREE(D,L,d|
00000b10  41 2c 41 52 2c 44 54 2c  44 53 2c 58 2c 59 29 0d  |A,AR,DT,DS,X,Y).|
00000b20  04 d8 12 20 ec 20 58 2c  59 3a df 20 58 2c 59 2d  |... . X,Y:. X,Y-|
00000b30  4c 0d 04 e2 18 20 f2 5f  47 52 4f 57 28 af 2f 32  |L.... ._GROW(./2|
00000b40  2c 4c 2c 58 2c 59 2c 44  29 0d 04 ec 06 20 e1 0d  |,L,X,Y,D).... ..|
00000b50  04 f6 19 20 dd 20 f2 5f  47 52 4f 57 28 54 48 2c  |... . ._GROW(TH,|
00000b60  4c 2c 58 2c 59 2c 44 29  0d 05 00 12 20 e7 20 44  |L,X,Y,D).... . D|
00000b70  20 ec 20 58 2c 59 20 8b  20 e1 0d 05 0a 17 20 64  | . X,Y . ..... d|
00000b80  58 3d 9b 28 54 48 2b 64  41 29 2a 28 31 2f 41 52  |X=.(TH+dA)*(1/AR|
00000b90  29 0d 05 14 13 20 64 59  3d b5 28 54 48 2b 64 41  |).... dY=.(TH+dA|
00000ba0  29 2a 41 52 0d 05 1e 0e  20 f0 20 31 2c 64 58 2c  |)*AR.... . 1,dX,|
00000bb0  64 59 0d 05 28 28 20 f2  5f 47 52 4f 57 28 54 48  |dY..(( ._GROW(TH|
00000bc0  2b 64 41 2b 44 54 2c 4c  2d 44 53 2c 58 2b 64 58  |+dA+DT,L-DS,X+dX|
00000bd0  2c 59 2b 64 59 2c 44 2d  31 29 0d 05 32 0a 20 ec  |,Y+dY,D-1)..2. .|
00000be0  20 58 2c 59 0d 05 3c 19  20 64 58 3d 4c 2a 9b 28  | X,Y..<. dX=L*.(|
00000bf0  54 48 2d 64 41 29 2a 28  31 2f 41 52 29 0d 05 46  |TH-dA)*(1/AR)..F|
00000c00  15 20 64 59 3d 4c 2a b5  28 54 48 2d 64 41 29 2a  |. dY=L*.(TH-dA)*|
00000c10  41 52 0d 05 50 14 20 f0  20 31 2c 64 58 2c 64 59  |AR..P. . 1,dX,dY|
00000c20  3a ec 20 58 2c 59 0d 05  5a 28 20 f2 5f 47 52 4f  |:. X,Y..Z( ._GRO|
00000c30  57 28 54 48 2d 64 41 2d  44 54 2c 4c 2d 44 53 2c  |W(TH-dA-DT,L-DS,|
00000c40  58 2b 64 58 2c 59 2b 64  59 2c 44 2d 31 29 0d 05  |X+dX,Y+dY,D-1)..|
00000c50  64 06 20 e1 0d ff                                 |d. ...|
00000c56