� > <BasicSave$Dir>.GENETICS
� THE SAFE SCIENTIST
� (c) The Micro User
(�type$(3),g1$(2)
2�:�
<� 6
F�19,0,4;0;
P%�16,1)"GENETICS"�16,2)"~~~~~~~~"
Zgv=0
d�28,0,23,39,3
n+�''"Here are three possible parents."''
x
�N=1�3
�� type$(N)
�!�;"     ";N;")     ";type$(N)
��
�&�''"Pick first parent (1, 2 or 3)"
��;P
�g1$(1)=type$(P)
�gv=gv+P
�'�''"Pick second parent (1, 2 or 3)"
��;P
�g1$(2)=type$(P)
�gv=gv+P
�gv=gv-1
�&� g1$(1)="BB" � g1$(2)="ww" � gv=6

�

�26

=�1,3)"FIRST GENERATION ..........";g1$(1);" and ";g1$(2)

"�1,5)"SECOND GENERATION"

,
�g=0�7

6(� gv � �tZA,�txA,�dVA,�dtA,�TRB,�TpB

@�

J�2,16)"THAT'S ALL FOLKS!"

T�28,0,23,39,20

^�

h�26

r,�2,20)"PRESS SPACE TO PICK NEW PARENTS"

|
���=32

��0

��

�X=1

�
� �DNB

��

�
X=�(2)

�
� �DNB

��

�X=�(4):� X=4 X=2

�
� �DXB

��

�X=�(2)+1

�	�DNB
�
X=3
	�DNB
&�
0X=2
:	�DNB
D�
N� NEXT GENERATION
Xng$=type$(X)
b�g*5,8);ng$
l�0,20)"PRESS SPACE"
v
���=32
��
�� BB,Bw,ww
�

00000000  0d 00 0a 20 f4 20 3e 20  3c 42 61 73 69 63 53 61  |... . > <BasicSa|
00000010  76 65 24 44 69 72 3e 2e  47 45 4e 45 54 49 43 53  |ve$Dir>.GENETICS|
00000020  0d 00 14 18 f4 20 54 48  45 20 53 41 46 45 20 53  |..... THE SAFE S|
00000030  43 49 45 4e 54 49 53 54  0d 00 1e 18 f4 20 28 63  |CIENTIST..... (c|
00000040  29 20 54 68 65 20 4d 69  63 72 6f 20 55 73 65 72  |) The Micro User|
00000050  0d 00 28 14 de 74 79 70  65 24 28 33 29 2c 67 31  |..(..type$(3),g1|
00000060  24 28 32 29 0d 00 32 07  f5 3a f7 0d 00 3c 07 eb  |$(2)..2..:...<..|
00000070  20 36 0d 00 46 0e ef 31  39 2c 30 2c 34 3b 30 3b  | 6..F..19,0,4;0;|
00000080  0d 00 50 25 f1 8a 31 36  2c 31 29 22 47 45 4e 45  |..P%..16,1)"GENE|
00000090  54 49 43 53 22 8a 31 36  2c 32 29 22 7e 7e 7e 7e  |TICS".16,2)"~~~~|
000000a0  7e 7e 7e 7e 22 0d 00 5a  08 67 76 3d 30 0d 00 64  |~~~~"..Z.gv=0..d|
000000b0  11 ef 32 38 2c 30 2c 32  33 2c 33 39 2c 33 0d 00  |..28,0,23,39,3..|
000000c0  6e 2b f1 27 27 22 48 65  72 65 20 61 72 65 20 74  |n+.''"Here are t|
000000d0  68 72 65 65 20 70 6f 73  73 69 62 6c 65 20 70 61  |hree possible pa|
000000e0  72 65 6e 74 73 2e 22 27  27 0d 00 78 0a e3 4e 3d  |rents."''..x..N=|
000000f0  31 b8 33 0d 00 82 0e f3  20 74 79 70 65 24 28 4e  |1.3..... type$(N|
00000100  29 0d 00 8c 21 f1 3b 22  20 20 20 20 20 22 3b 4e  |)...!.;"     ";N|
00000110  3b 22 29 20 20 20 20 20  22 3b 74 79 70 65 24 28  |;")     ";type$(|
00000120  4e 29 0d 00 96 05 ed 0d  00 a0 26 f1 27 27 22 50  |N)........&.''"P|
00000130  69 63 6b 20 66 69 72 73  74 20 70 61 72 65 6e 74  |ick first parent|
00000140  20 28 31 2c 20 32 20 6f  72 20 33 29 22 0d 00 aa  | (1, 2 or 3)"...|
00000150  07 e8 3b 50 0d 00 b4 13  67 31 24 28 31 29 3d 74  |..;P....g1$(1)=t|
00000160  79 70 65 24 28 50 29 0d  00 be 0b 67 76 3d 67 76  |ype$(P)....gv=gv|
00000170  2b 50 0d 00 c8 27 f1 27  27 22 50 69 63 6b 20 73  |+P...'.''"Pick s|
00000180  65 63 6f 6e 64 20 70 61  72 65 6e 74 20 28 31 2c  |econd parent (1,|
00000190  20 32 20 6f 72 20 33 29  22 0d 00 d2 07 e8 3b 50  | 2 or 3)".....;P|
000001a0  0d 00 dc 13 67 31 24 28  32 29 3d 74 79 70 65 24  |....g1$(2)=type$|
000001b0  28 50 29 0d 00 e6 0b 67  76 3d 67 76 2b 50 0d 00  |(P)....gv=gv+P..|
000001c0  f0 0b 67 76 3d 67 76 2d  31 0d 00 fa 26 e7 20 67  |..gv=gv-1...&. g|
000001d0  31 24 28 31 29 3d 22 42  42 22 20 80 20 67 31 24  |1$(1)="BB" . g1$|
000001e0  28 32 29 3d 22 77 77 22  20 8c 20 67 76 3d 36 0d  |(2)="ww" . gv=6.|
000001f0  01 04 05 db 0d 01 0e 07  ef 32 36 0d 01 18 3d f1  |.........26...=.|
00000200  8a 31 2c 33 29 22 46 49  52 53 54 20 47 45 4e 45  |.1,3)"FIRST GENE|
00000210  52 41 54 49 4f 4e 20 2e  2e 2e 2e 2e 2e 2e 2e 2e  |RATION .........|
00000220  2e 22 3b 67 31 24 28 31  29 3b 22 20 61 6e 64 20  |.";g1$(1);" and |
00000230  22 3b 67 31 24 28 32 29  0d 01 22 1d f1 8a 31 2c  |";g1$(2).."...1,|
00000240  35 29 22 53 45 43 4f 4e  44 20 47 45 4e 45 52 41  |5)"SECOND GENERA|
00000250  54 49 4f 4e 22 0d 01 2c  0a e3 67 3d 30 b8 37 0d  |TION"..,..g=0.7.|
00000260  01 36 28 ee 20 67 76 20  e4 20 8d 74 5a 41 2c 8d  |.6(. gv . .tZA,.|
00000270  74 78 41 2c 8d 64 56 41  2c 8d 64 74 41 2c 8d 54  |txA,.dVA,.dtA,.T|
00000280  52 42 2c 8d 54 70 42 0d  01 40 05 ed 0d 01 4a 1e  |RB,.TpB..@....J.|
00000290  f1 8a 32 2c 31 36 29 22  54 48 41 54 27 53 20 41  |..2,16)"THAT'S A|
000002a0  4c 4c 20 46 4f 4c 4b 53  21 22 0d 01 54 12 ef 32  |LL FOLKS!"..T..2|
000002b0  38 2c 30 2c 32 33 2c 33  39 2c 32 30 0d 01 5e 05  |8,0,23,39,20..^.|
000002c0  db 0d 01 68 07 ef 32 36  0d 01 72 2c f1 8a 32 2c  |...h..26..r,..2,|
000002d0  32 30 29 22 50 52 45 53  53 20 53 50 41 43 45 20  |20)"PRESS SPACE |
000002e0  54 4f 20 50 49 43 4b 20  4e 45 57 20 50 41 52 45  |TO PICK NEW PARE|
000002f0  4e 54 53 22 0d 01 7c 0a  f5 fd a5 3d 33 32 0d 01  |NTS"..|....=32..|
00000300  86 06 fd 30 0d 01 90 05  e0 0d 01 9a 07 58 3d 31  |...0.........X=1|
00000310  0d 01 a4 0a e4 20 8d 44  4e 42 0d 01 ae 05 f8 0d  |..... .DNB......|
00000320  01 b8 0a 58 3d b3 28 32  29 0d 01 c2 0a e4 20 8d  |...X=.(2)..... .|
00000330  44 4e 42 0d 01 cc 05 f8  0d 01 d6 14 58 3d b3 28  |DNB.........X=.(|
00000340  34 29 3a e7 20 58 3d 34  20 58 3d 32 0d 01 e0 0a  |4):. X=4 X=2....|
00000350  e4 20 8d 44 58 42 0d 01  ea 05 f8 0d 01 f4 0c 58  |. .DXB.........X|
00000360  3d b3 28 32 29 2b 31 0d  01 fe 09 e4 8d 44 4e 42  |=.(2)+1......DNB|
00000370  0d 02 08 05 f8 0d 02 12  07 58 3d 33 0d 02 1c 09  |.........X=3....|
00000380  e4 8d 44 4e 42 0d 02 26  05 f8 0d 02 30 07 58 3d  |..DNB..&....0.X=|
00000390  32 0d 02 3a 09 e4 8d 44  4e 42 0d 02 44 05 f8 0d  |2..:...DNB..D...|
000003a0  02 4e 15 f4 20 4e 45 58  54 20 47 45 4e 45 52 41  |.N.. NEXT GENERA|
000003b0  54 49 4f 4e 0d 02 58 10  6e 67 24 3d 74 79 70 65  |TION..X.ng$=type|
000003c0  24 28 58 29 0d 02 62 10  f1 8a 67 2a 35 2c 38 29  |$(X)..b...g*5,8)|
000003d0  3b 6e 67 24 0d 02 6c 18  f1 8a 30 2c 32 30 29 22  |;ng$..l...0,20)"|
000003e0  50 52 45 53 53 20 53 50  41 43 45 22 0d 02 76 0a  |PRESS SPACE"..v.|
000003f0  f5 fd a5 3d 33 32 0d 02  80 05 f8 0d 02 8a 0e dc  |...=32..........|
00000400  20 42 42 2c 42 77 2c 77  77 0d ff                 | BB,Bw,ww..|
0000040b