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%):�:�
�4� 1,4,0.16,0.2,0.16,2       :REM GENE INCREMENTS
�-� 1,-36,-3.14,0.1,-3.14,-18 :REM GENE MIN
�-� 9,36,3.14,10,3.14,18      :REM GENE MAX
�+�_INTPOS :� INITIALISE DISPLAY POSITION
� �_INTP : � INITIALISE PARENT
�	gen=0

� 0

�


gen=gen+1

"�_MUTATE

,
�_DISPLAY

6�_CHOSE

@� �

J� �_INTP

T� A$="C" � �

^parent(0)=1

hparent(1)=4

rparent(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
V� 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
NO�_TREE(parent(0),parent(1),parent(2),parent(3),parent(4),parent(5),640,500)
X� A%=1 � 12
ba�_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
>�:�
HH� 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 BIOMORPH"
�
� 360,755
��"GENERATION NUMBER ";gen
�4:�

� �_CHOSE
�5:� 360,290
$+�"? or Breed from child (A-L) ?";:*FX15
.A$=�
8�A$;:C%=�(A$)-&40
B� C%<0 � C%>12 �_REVIEW:�
L� A%=0 � 5
Vparent(A%)=morph(A%,C%)
`
�:�4:�
j� �_REVIEW
t	�22,1
~�''"Current Biomorph has:-"
�� A%=0 � 5
�#�"GENE ";A%" VALUE ";parent(A%)
��
�O�_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=L*�(TH+dA)*(1/AR)
dY=L*�(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)
FdY=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 13 f4 20 2a 20  42 69 6f 6d 6f 72 70 68  |..d.. * Biomorph|
00000010  73 20 2a 0d 00 6e 13 f4  20 20 62 79 20 4d 69 6b  |s *..n..  by Mik|
00000020  65 20 43 6f 6f 6b 0d 00  78 14 f4 20 28 63 29 20  |e Cook..x.. (c) |
00000030  4d 69 63 72 6f 20 55 73  65 72 0d 00 82 06 eb 31  |Micro User.....1|
00000040  0d 00 8c 1b de 20 6d 6f  72 70 68 28 35 2c 31 32  |..... morph(5,12|
00000050  29 2c 70 61 72 65 6e 74  28 35 29 0d 00 96 1b de  |),parent(5).....|
00000060  20 67 69 28 35 2c 32 29  2c 70 78 28 31 32 29 2c  | gi(5,2),px(12),|
00000070  70 79 28 31 32 29 0d 00  a0 3c f4 20 52 45 41 44  |py(12)...<. READ|
00000080  20 49 4e 20 49 4e 43 52  45 4d 45 4e 54 53 20 41  | IN INCREMENTS A|
00000090  4e 44 20 4c 49 4d 49 54  53 20 28 4d 49 4e 20 26  |ND LIMITS (MIN &|
000000a0  20 4d 41 58 29 20 4f 46  20 45 41 43 48 20 47 45  | MAX) OF EACH GE|
000000b0  4e 45 0d 00 aa 0a f7 20  8d 64 48 40 0d 00 b4 19  |NE..... .dH@....|
000000c0  e3 20 41 25 3d 30 20 b8  20 32 3a e3 20 42 25 3d  |. A%=0 . 2:. B%=|
000000d0  30 20 b8 20 35 0d 00 be  13 f3 20 67 69 28 42 25  |0 . 5..... gi(B%|
000000e0  2c 41 25 29 3a ed 3a ed  0d 00 c8 34 dc 20 31 2c  |,A%):.:....4. 1,|
000000f0  34 2c 30 2e 31 36 2c 30  2e 32 2c 30 2e 31 36 2c  |4,0.16,0.2,0.16,|
00000100  32 20 20 20 20 20 20 20  3a 52 45 4d 20 47 45 4e  |2       :REM GEN|
00000110  45 20 49 4e 43 52 45 4d  45 4e 54 53 0d 00 d2 2d  |E INCREMENTS...-|
00000120  dc 20 31 2c 2d 33 36 2c  2d 33 2e 31 34 2c 30 2e  |. 1,-36,-3.14,0.|
00000130  31 2c 2d 33 2e 31 34 2c  2d 31 38 20 3a 52 45 4d  |1,-3.14,-18 :REM|
00000140  20 47 45 4e 45 20 4d 49  4e 0d 00 dc 2d dc 20 39  | GENE MIN...-. 9|
00000150  2c 33 36 2c 33 2e 31 34  2c 31 30 2c 33 2e 31 34  |,36,3.14,10,3.14|
00000160  2c 31 38 20 20 20 20 20  20 3a 52 45 4d 20 47 45  |,18      :REM GE|
00000170  4e 45 20 4d 41 58 0d 00  e6 2b f2 5f 49 4e 54 50  |NE MAX...+._INTP|
00000180  4f 53 20 3a f4 20 49 4e  49 54 49 41 4c 49 53 45  |OS :. INITIALISE|
00000190  20 44 49 53 50 4c 41 59  20 50 4f 53 49 54 49 4f  | DISPLAY POSITIO|
000001a0  4e 0d 00 f0 20 f2 5f 49  4e 54 50 20 3a 20 f4 20  |N... ._INTP : . |
000001b0  49 4e 49 54 49 41 4c 49  53 45 20 50 41 52 45 4e  |INITIALISE PAREN|
000001c0  54 0d 00 fa 09 67 65 6e  3d 30 0d 01 04 07 eb 20  |T....gen=0..... |
000001d0  30 0d 01 0e 05 f5 0d 01  18 0d 67 65 6e 3d 67 65  |0.........gen=ge|
000001e0  6e 2b 31 0d 01 22 0c f2  5f 4d 55 54 41 54 45 0d  |n+1..".._MUTATE.|
000001f0  01 2c 0d f2 5f 44 49 53  50 4c 41 59 0d 01 36 0b  |.,.._DISPLAY..6.|
00000200  f2 5f 43 48 4f 53 45 0d  01 40 07 fd 20 a3 0d 01  |._CHOSE..@.. ...|
00000210  4a 0c dd 20 f2 5f 49 4e  54 50 0d 01 54 10 e7 20  |J.. ._INTP..T.. |
00000220  41 24 3d 22 43 22 20 8c  20 e1 0d 01 5e 0f 70 61  |A$="C" . ...^.pa|
00000230  72 65 6e 74 28 30 29 3d  31 0d 01 68 0f 70 61 72  |rent(0)=1..h.par|
00000240  65 6e 74 28 31 29 3d 34  0d 01 72 12 70 61 72 65  |ent(1)=4..r.pare|
00000250  6e 74 28 32 29 3d 2e 37  38 35 0d 01 7c 0f 70 61  |nt(2)=.785..|.pa|
00000260  72 65 6e 74 28 33 29 3d  31 0d 01 86 0f 70 61 72  |rent(3)=1....par|
00000270  65 6e 74 28 34 29 3d 30  0d 01 90 0f 70 61 72 65  |ent(4)=0....pare|
00000280  6e 74 28 35 29 3d 30 0d  01 9a 10 e7 20 41 24 3d  |nt(5)=0..... A$=|
00000290  22 41 22 20 8c 20 e1 0d  01 a4 0e e3 20 41 25 3d  |"A" . ...... A%=|
000002a0  30 20 b8 20 35 0d 01 ae  20 70 61 72 65 6e 74 28  |0 . 5... parent(|
000002b0  41 25 29 3d 28 b3 28 35  29 2b 31 29 2a 67 69 28  |A%)=(.(5)+1)*gi(|
000002c0  41 25 2c 30 29 0d 01 b8  05 ed 0d 01 c2 14 70 61  |A%,0).........pa|
000002d0  72 65 6e 74 28 30 29 3d  b3 28 33 29 2b 31 0d 01  |rent(0)=.(3)+1..|
000002e0  cc 05 e1 0d 01 d6 0e dd  20 f2 5f 4d 55 54 41 54  |........ ._MUTAT|
000002f0  45 0d 01 e0 0f e3 20 42  25 3d 31 20 b8 20 31 32  |E..... B%=1 . 12|
00000300  0d 01 ea 0e e3 20 41 25  3d 30 20 b8 20 35 0d 01  |..... A%=0 . 5..|
00000310  f4 1b 6d 6f 72 70 68 28  41 25 2c 42 25 29 3d 70  |..morph(A%,B%)=p|
00000320  61 72 65 6e 74 28 41 25  29 0d 01 fe 19 e7 20 28  |arent(A%)..... (|
00000330  42 25 83 32 29 20 44 25  3d 2d 31 20 8b 20 44 25  |B%.2) D%=-1 . D%|
00000340  3d 31 0d 02 08 0f 43 25  3d 28 42 25 2d 31 29 81  |=1....C%=(B%-1).|
00000350  32 0d 02 12 13 e7 20 43  25 3c 3e 41 25 20 8c 20  |2..... C%<>A% . |
00000360  8d 54 70 42 0d 02 1c 56  e7 20 6d 6f 72 70 68 28  |.TpB...V. morph(|
00000370  41 25 2c 42 25 29 2b 44  25 2a 28 67 69 28 41 25  |A%,B%)+D%*(gi(A%|
00000380  2c 30 29 29 3c 67 69 28  41 25 2c 31 29 20 84 20  |,0))<gi(A%,1) . |
00000390  6d 6f 72 70 68 28 41 25  2c 42 25 29 2b 44 25 2a  |morph(A%,B%)+D%*|
000003a0  28 67 69 28 41 25 2c 30  29 29 3e 67 69 28 41 25  |(gi(A%,0))>gi(A%|
000003b0  2c 32 29 20 8c 20 8d 54  70 42 0d 02 26 2b 6d 6f  |,2) . .TpB..&+mo|
000003c0  72 70 68 28 41 25 2c 42  25 29 3d 6d 6f 72 70 68  |rph(A%,B%)=morph|
000003d0  28 41 25 2c 42 25 29 2b  44 25 2a 28 67 69 28 41  |(A%,B%)+D%*(gi(A|
000003e0  25 2c 30 29 29 0d 02 30  09 ed 3a ed 3a e1 0d 02  |%,0))..0..:.:...|
000003f0  3a 0f dd 20 f2 5f 44 49  53 50 4c 41 59 0d 02 44  |:.. ._DISPLAY..D|
00000400  0b f2 5f 4c 49 4e 45 53  0d 02 4e 4f f2 5f 54 52  |.._LINES..NO._TR|
00000410  45 45 28 70 61 72 65 6e  74 28 30 29 2c 70 61 72  |EE(parent(0),par|
00000420  65 6e 74 28 31 29 2c 70  61 72 65 6e 74 28 32 29  |ent(1),parent(2)|
00000430  2c 70 61 72 65 6e 74 28  33 29 2c 70 61 72 65 6e  |,parent(3),paren|
00000440  74 28 34 29 2c 70 61 72  65 6e 74 28 35 29 2c 36  |t(4),parent(5),6|
00000450  34 30 2c 35 30 30 29 0d  02 58 0f e3 20 41 25 3d  |40,500)..X.. A%=|
00000460  31 20 b8 20 31 32 0d 02  62 61 f2 5f 54 52 45 45  |1 . 12..ba._TREE|
00000470  28 6d 6f 72 70 68 28 30  2c 41 25 29 2c 6d 6f 72  |(morph(0,A%),mor|
00000480  70 68 28 31 2c 41 25 29  2c 6d 6f 72 70 68 28 32  |ph(1,A%),morph(2|
00000490  2c 41 25 29 2c 6d 6f 72  70 68 28 33 2c 41 25 29  |,A%),morph(3,A%)|
000004a0  2c 6d 6f 72 70 68 28 34  2c 41 25 29 2c 6d 6f 72  |,morph(4,A%),mor|
000004b0  70 68 28 35 2c 41 25 29  2c 70 78 28 41 25 29 2c  |ph(5,A%),px(A%),|
000004c0  70 79 28 41 25 29 29 0d  02 6c 07 ed 3a e1 0d 02  |py(A%))..l..:...|
000004d0  76 0e dd 20 f2 5f 49 4e  54 50 4f 53 0d 02 80 0a  |v.. ._INTPOS....|
000004e0  f7 20 8d 44 48 43 0d 02  8a 0e e3 20 41 3d 31 20  |. .DHC..... A=1 |
000004f0  b8 20 31 32 0d 02 94 13  f3 20 70 78 28 41 29 2c  |. 12..... px(A),|
00000500  70 79 28 41 29 3a ed 0d  02 9e 17 f1 27 27 89 28  |py(A):......''.(|
00000510  31 34 29 3b 22 42 69 6f  6d 6f 72 70 68 22 0d 02  |14);"Biomorph"..|
00000520  a8 29 f1 22 41 6e 20 65  78 65 72 63 69 73 65 20  |.)."An exercise |
00000530  69 6e 20 44 61 72 77 69  6e 69 61 6e 20 45 76 6f  |in Darwinian Evo|
00000540  6c 75 74 69 6f 6e 22 0d  02 b2 15 f1 27 27 22 42  |lution".....''"B|
00000550  79 20 4d 69 6b 65 20 43  6f 6f 6b 22 0d 02 bc 2a  |y Mike Cook"...*|
00000560  f1 22 42 61 73 65 64 20  6f 6e 20 61 6e 20 69 64  |."Based on an id|
00000570  65 61 20 62 79 20 52 69  63 68 61 72 64 20 44 61  |ea by Richard Da|
00000580  77 6b 69 6e 73 22 0d 02  c6 25 f1 22 41 75 74 68  |wkins"...%."Auth|
00000590  6f 72 20 6f 66 20 54 48  45 20 42 4c 49 4e 44 20  |or of THE BLIND |
000005a0  57 41 54 43 48 4d 41 4b  45 52 22 0d 02 d0 2a f1  |WATCHMAKER"...*.|
000005b0  27 27 27 22 4f 70 74 69  6f 6e 73 20 74 6f 20 73  |'''"Options to s|
000005c0  74 61 72 74 20 65 76 6f  6c 76 69 6e 67 20 66 72  |tart evolving fr|
000005d0  6f 6d 3a 2d 22 0d 02 da  15 f1 22 41 20 2d 20 41  |om:-"....."A - A|
000005e0  20 6d 69 63 72 6f 62 65  2e 22 0d 02 e4 1d f1 22  | microbe."....."|
000005f0  42 20 2d 20 53 6f 6d 65  20 72 61 6e 64 6f 6d 20  |B - Some random |
00000600  70 6f 69 6e 74 2e 22 0d  02 ee 1b f1 22 43 20 2d  |point."....."C -|
00000610  20 41 20 64 65 66 69 6e  65 64 20 70 6f 69 6e 74  | A defined point|
00000620  2e 22 0d 02 f8 26 f1 27  22 50 72 65 73 73 20 74  |."...&.'"Press t|
00000630  68 65 20 6b 65 79 20 6f  66 20 79 6f 75 72 20 63  |he key of your c|
00000640  68 6f 69 63 65 2e 22 3b  0d 03 02 2d 41 24 3d be  |hoice.";...-A$=.|
00000650  3a e7 20 ac 28 41 24 3d  22 41 22 20 84 20 41 24  |:. .(A$="A" . A$|
00000660  3d 22 42 22 20 84 20 41  24 3d 22 43 22 29 20 8c  |="B" . A$="C") .|
00000670  20 8d 54 42 43 0d 03 0c  11 f1 3a e7 20 41 24 3c  | .TBC.....:. A$<|
00000680  3e 22 43 22 20 e1 0d 03  16 0e e3 20 41 25 3d 30  |>"C" ...... A%=0|
00000690  20 b8 20 35 0d 03 20 1a  f1 22 47 65 6e 65 20 6e  | . 5.. .."Gene n|
000006a0  75 6d 62 65 72 20 22 3b  41 25 22 3d 22 3b 0d 03  |umber ";A%"=";..|
000006b0  2a 10 e8 20 70 61 72 65  6e 74 28 41 25 29 0d 03  |*.. parent(A%)..|
000006c0  34 64 e7 20 70 61 72 65  6e 74 28 41 25 29 3e 67  |4d. parent(A%)>g|
000006d0  69 28 41 25 2c 32 29 20  84 20 70 61 72 65 6e 74  |i(A%,2) . parent|
000006e0  28 41 25 29 3c 67 69 28  41 25 2c 31 29 20 f1 27  |(A%)<gi(A%,1) .'|
000006f0  22 56 61 6c 75 65 73 20  62 65 74 77 65 65 6e 20  |"Values between |
00000700  22 3b 67 69 28 41 25 2c  31 29 3b 22 20 61 6e 64  |";gi(A%,1);" and|
00000710  20 22 3b 67 69 28 41 25  2c 32 29 3a e5 20 8d 54  | ";gi(A%,2):. .T|
00000720  60 43 0d 03 3e 07 ed 3a  e1 0d 03 48 48 dc 20 31  |`C..>..:...HH. 1|
00000730  36 30 2c 38 36 30 2c 34  38 30 2c 38 36 30 2c 38  |60,860,480,860,8|
00000740  30 30 2c 38 36 30 2c 31  31 32 30 2c 38 36 30 2c  |00,860,1120,860,|
00000750  31 36 30 2c 36 30 34 2c  31 31 32 30 2c 36 30 34  |160,604,1120,604|
00000760  2c 31 36 30 2c 33 34 38  2c 31 31 32 30 2c 33 34  |,160,348,1120,34|
00000770  38 0d 03 52 22 dc 20 31  36 30 2c 39 32 2c 34 38  |8..R". 160,92,48|
00000780  30 2c 39 32 2c 38 30 30  2c 39 32 2c 31 31 32 30  |0,92,800,92,1120|
00000790  2c 39 32 0d 03 5c 0d dd  20 f2 5f 4c 49 4e 45 53  |,92..\.. ._LINES|
000007a0  0d 03 66 17 ef 20 31 32  2c 32 33 2c 31 2c 30 3b  |..f.. 12,23,1,0;|
000007b0  30 3b 30 3b 30 3b 35 0d  03 70 05 f1 0d 03 7a 18  |0;0;0;5..p....z.|
000007c0  e3 20 58 25 3d 33 32 30  20 b8 20 39 36 30 20 88  |. X%=320 . 960 .|
000007d0  20 33 32 30 0d 03 84 18  e3 20 59 25 3d 32 35 36  | 320..... Y%=256|
000007e0  20 b8 20 38 30 30 20 88  20 32 35 36 0d 03 8e 14  | . 800 . 256....|
000007f0  ec 20 58 25 2c 30 3a df  20 58 25 2c 31 30 32 33  |. X%,0:. X%,1023|
00000800  0d 03 98 14 ec 20 30 2c  59 25 3a df 20 31 32 35  |..... 0,Y%:. 125|
00000810  39 2c 59 25 0d 03 a2 07  ed 3a ed 0d 03 ac 19 ec  |9,Y%.....:......|
00000820  20 36 34 30 2c 32 36 30  3a f0 20 37 2c 36 34 30  | 640,260:. 7,640|
00000830  2c 37 36 34 0d 03 b6 19  ec 20 33 32 34 2c 35 31  |,764..... 324,51|
00000840  32 3a f0 20 37 2c 39 35  38 2c 35 31 32 0d 03 c0  |2:. 7,958,512...|
00000850  0f e3 20 41 25 3d 31 20  b8 20 31 32 0d 03 ca 1a  |.. A%=1 . 12....|
00000860  ec 20 70 78 28 41 25 29  2d 31 35 30 2c 70 79 28  |. px(A%)-150,py(|
00000870  41 25 29 2d 36 30 0d 03  d4 0d ef 26 34 30 2b 41  |A%)-60.....&40+A|
00000880  25 3a ed 0d 03 de 0d ec  20 33 36 30 2c 33 32 32  |%:...... 360,322|
00000890  0d 03 e8 16 f1 22 50 41  52 45 4e 54 20 42 49 4f  |....."PARENT BIO|
000008a0  4d 4f 52 50 48 22 0d 03  f2 0d ec 20 33 36 30 2c  |MORPH"..... 360,|
000008b0  37 35 35 0d 03 fc 1d f1  22 47 45 4e 45 52 41 54  |755....."GENERAT|
000008c0  49 4f 4e 20 4e 55 4d 42  45 52 20 22 3b 67 65 6e  |ION NUMBER ";gen|
000008d0  0d 04 06 08 ef 34 3a e1  0d 04 10 0d dd 20 f2 5f  |.....4:...... ._|
000008e0  43 48 4f 53 45 0d 04 1a  10 ef 35 3a ec 20 33 36  |CHOSE.....5:. 36|
000008f0  30 2c 32 39 30 0d 04 24  2b f1 22 3f 20 6f 72 20  |0,290..$+."? or |
00000900  42 72 65 65 64 20 66 72  6f 6d 20 63 68 69 6c 64  |Breed from child|
00000910  20 28 41 2d 4c 29 20 3f  22 3b 3a 2a 46 58 31 35  | (A-L) ?";:*FX15|
00000920  0d 04 2e 08 41 24 3d be  0d 04 38 15 f1 41 24 3b  |....A$=...8..A$;|
00000930  3a 43 25 3d 97 28 41 24  29 2d 26 34 30 0d 04 42  |:C%=.(A$)-&40..B|
00000940  1d e7 20 43 25 3c 30 20  84 20 43 25 3e 31 32 20  |.. C%<0 . C%>12 |
00000950  f2 5f 52 45 56 49 45 57  3a e1 0d 04 4c 0e e3 20  |._REVIEW:...L.. |
00000960  41 25 3d 30 20 b8 20 35  0d 04 56 1b 70 61 72 65  |A%=0 . 5..V.pare|
00000970  6e 74 28 41 25 29 3d 6d  6f 72 70 68 28 41 25 2c  |nt(A%)=morph(A%,|
00000980  43 25 29 0d 04 60 0a ed  3a ef 34 3a e1 0d 04 6a  |C%)..`..:.4:...j|
00000990  0e dd 20 f2 5f 52 45 56  49 45 57 0d 04 74 09 ef  |.. ._REVIEW..t..|
000009a0  32 32 2c 31 0d 04 7e 1f  f1 27 27 22 43 75 72 72  |22,1..~..''"Curr|
000009b0  65 6e 74 20 42 69 6f 6d  6f 72 70 68 20 68 61 73  |ent Biomorph has|
000009c0  3a 2d 22 0d 04 88 0e e3  20 41 25 3d 30 20 b8 20  |:-"..... A%=0 . |
000009d0  35 0d 04 92 23 f1 22 47  45 4e 45 20 22 3b 41 25  |5...#."GENE ";A%|
000009e0  22 20 56 41 4c 55 45 20  22 3b 70 61 72 65 6e 74  |" VALUE ";parent|
000009f0  28 41 25 29 0d 04 9c 05  ed 0d 04 a6 4f f2 5f 54  |(A%)........O._T|
00000a00  52 45 45 28 70 61 72 65  6e 74 28 30 29 2c 70 61  |REE(parent(0),pa|
00000a10  72 65 6e 74 28 31 29 2c  70 61 72 65 6e 74 28 32  |rent(1),parent(2|
00000a20  29 2c 70 61 72 65 6e 74  28 33 29 2c 70 61 72 65  |),parent(3),pare|
00000a30  6e 74 28 34 29 2c 70 61  72 65 6e 74 28 35 29 2c  |nt(4),parent(5),|
00000a40  36 34 30 2c 33 30 30 29  0d 04 b0 28 f1 8a 30 2c  |640,300)...(..0,|
00000a50  33 30 29 3b 22 50 72 65  73 73 20 61 6e 79 20 6b  |30);"Press any k|
00000a60  65 79 20 74 6f 20 63 6f  6e 74 69 6e 75 65 22 3b  |ey to continue";|
00000a70  0d 04 ba 18 41 24 3d be  3a 67 65 6e 3d 67 65 6e  |....A$=.:gen=gen|
00000a80  2d 31 3a ef 32 32 2c 30  0d 04 c4 05 e1 0d 04 ce  |-1:.22,0........|
00000a90  21 dd 20 f2 5f 54 52 45  45 28 44 2c 4c 2c 64 41  |!. ._TREE(D,L,dA|
00000aa0  2c 41 52 2c 44 54 2c 44  53 2c 58 2c 59 29 0d 04  |,AR,DT,DS,X,Y)..|
00000ab0  d8 11 ec 20 58 2c 59 3a  df 20 58 2c 59 2d 4c 0d  |... X,Y:. X,Y-L.|
00000ac0  04 e2 17 f2 5f 47 52 4f  57 28 af 2f 32 2c 4c 2c  |...._GROW(./2,L,|
00000ad0  58 2c 59 2c 44 29 0d 04  ec 05 e1 0d 04 f6 18 dd  |X,Y,D)..........|
00000ae0  20 f2 5f 47 52 4f 57 28  54 48 2c 4c 2c 58 2c 59  | ._GROW(TH,L,X,Y|
00000af0  2c 44 29 0d 05 00 11 e7  20 44 20 ec 20 58 2c 59  |,D)..... D . X,Y|
00000b00  20 8b 20 e1 0d 05 0a 18  64 58 3d 4c 2a 9b 28 54  | . .....dX=L*.(T|
00000b10  48 2b 64 41 29 2a 28 31  2f 41 52 29 0d 05 14 14  |H+dA)*(1/AR)....|
00000b20  64 59 3d 4c 2a b5 28 54  48 2b 64 41 29 2a 41 52  |dY=L*.(TH+dA)*AR|
00000b30  0d 05 1e 0d f0 20 31 2c  64 58 2c 64 59 0d 05 28  |..... 1,dX,dY..(|
00000b40  27 f2 5f 47 52 4f 57 28  54 48 2b 64 41 2b 44 54  |'._GROW(TH+dA+DT|
00000b50  2c 4c 2d 44 53 2c 58 2b  64 58 2c 59 2b 64 59 2c  |,L-DS,X+dX,Y+dY,|
00000b60  44 2d 31 29 0d 05 32 09  ec 20 58 2c 59 0d 05 3c  |D-1)..2.. X,Y..<|
00000b70  18 64 58 3d 4c 2a 9b 28  54 48 2d 64 41 29 2a 28  |.dX=L*.(TH-dA)*(|
00000b80  31 2f 41 52 29 0d 05 46  14 64 59 3d 4c 2a b5 28  |1/AR)..F.dY=L*.(|
00000b90  54 48 2d 64 41 29 2a 41  52 0d 05 50 13 f0 20 31  |TH-dA)*AR..P.. 1|
00000ba0  2c 64 58 2c 64 59 3a ec  20 58 2c 59 0d 05 5a 27  |,dX,dY:. X,Y..Z'|
00000bb0  f2 5f 47 52 4f 57 28 54  48 2d 64 41 2d 44 54 2c  |._GROW(TH-dA-DT,|
00000bc0  4c 2d 44 53 2c 58 2b 64  58 2c 59 2b 64 59 2c 44  |L-DS,X+dX,Y+dY,D|
00000bd0  2d 31 29 0d 05 64 05 e1  0d ff                    |-1)..d....|
00000bda