Home » CEEFAX disks » telesoftware15.adl » 28-04-89/Gencalc

28-04-89/Gencalc

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » CEEFAX disks » telesoftware15.adl
Filename: 28-04-89/Gencalc
Read OK:
File size: 1947 bytes
Load address: FFFF1A00
Exec address: FFFF801F
Duplicates

There is 1 duplicate copy of this file in the archive:

File contents
    1VDU5
   15*FX200,1
   20*FX11,0
   25*KEY10 OLD|MRUN|M
   30*TV255
   31CLS
   50MODE4
   51VDU19,128,4,0,0,0
   57VDU23;8202;0;0;0
   58CLS
   60PROCTITLE
   75PRINTTAB(13,14)"Copyright 1985"
   90PRINTTAB(11,10)"Author-S.R.WELLINGS"
   95PRINTTAB(8,12)"CBIOL.MIBIOL.PGCE.Dip.RSA."
   99PRINTTAB(7,25)"PRESS SPACE BAR TO CONTINUE"
  100REPEATUNTILGET=32:GOTO105
  102MODE4:VDU19,128,4,0,0,0:VDU23;8202;0;0;0
  105CLS
  110PROCTITLE
  130PRINTTAB(2,8)"Do you want to:"
  140PRINTTAB(7,11)"1.SOLVE GENETICS PROBLEMS?"
  150PRINTTAB(7,14)"2.FINISH WITH THE PROGRAM?"
  160KEY=GET
  170IFKEY=49THEN200ELSE180
  180IFKEY=50THENPROCENDELSE160
  190END
  200CLS
  205PROCTITLE
  210PRINTTAB(1,6)"In all the following problems,alleles"
  220PRINTTAB(1,8)"which are dominant are shown as:"
  230PRINTTAB(8,10)"eg.BLACK=B is dominant"
  240PRINTTAB(8,12)"to BROWN=b which is recessive"
  250PRINTTAB(7,25)"PRESS SPACE BAR TO CONTINUE"
  260REPEATUNTILGET=32
  265MODE5
  270CLS
  520COLOUR130
  530CLS
  540PROCBLUE
  550PRINT
  560PRINT" WHAT IS THE NAME"
  570PRINT
  580PRINT" OF THE DOMINANT"
  590PRINT
  600PRINT" ALLELE?"
  610PRINT
  632PROCCYAN
  635PRINTTAB(1,22)"Enter allele name"
  636PRINTTAB(4,24)"PRESS RETURN"
  637COLOUR1
  638INPUTTAB(2,7)A$
  640PROCBLUE
  650PRINT
  660PRINTTAB(0,9)" WHAT IS THE NAME"
  670PRINT
  680PRINTTAB(0,11)" OF THE RECESSIVE"
  690PRINT
  700PRINTTAB(0,13)" ALLELE?"
  710PRINT
  720COLOUR1
  730PRINT
  740INPUTTAB(2,15)B$
  750CLS
  760PROCBLUE
  770PRINT
  780PRINT"DOMINANT ALLELE IS"
  790COLOUR1
  800PRINTTAB(5,3)A$
  810PRINT
  820PROCBLUE
  830PRINT"RECESSIVE ALLELE IS"
  840PROCCYAN
  850PRINT
  860PRINTTAB(5,7)B$
  870PRINT
  880COLOUR1
  890PRINT" WHAT TYPE OF CROSS"
  900PRINT
  910PRINT"    DO YOU WANT?"
  920PROCBLUE
  930PRINTTAB(0,15)"1.Homozygous crossed"
  940PRINTTAB(2,17)"with Homozygous?"
  950PROCCYAN
  960PRINTTAB(0,20)"2.Homozygous with"
  970PRINTTAB(2,22)"with Heterozygous?"
  980COLOUR1
  990PRINTTAB(0,25)"3.Heterozygous"
 1000PRINTTAB(2,27)"crossed with"
 1010PRINTTAB(2,29)"Heterozygous?"
 1020PRINT
 1030PROCCYAN
 1040PRINT"  TYPE IN 1,2 OR 3"
 1050KEYHIT=GET
 1060IFKEYHIT=49THEN1190ELSE1070
 1070IFKEYHIT=50THEN1410ELSE1080
 1080IFKEYHIT=51THENPROCHETELSE1050
 1085GOTO102
 1190CLS
 1200PROCBLUE
 1210PRINTTAB(0,0)"1.Homozygous crossed"
 1220PRINTTAB(3,2)"with Homozygous"
 1230COLOUR1
 1240PRINTTAB(0,4)"DO YOU WANT TO CROSS"
 1250PROCBLUE
 1260PRINTTAB(0,8)"1Dominant X Dominant"
 1270PRINTTAB(0,10)"ie.  DD   X   DD"
 1280PROCCYAN
 1290PRINTTAB(0,16)"2Dominant X Recess."
 1300PRINTTAB(0,18)"ie.  DD   X   dd"
 1310COLOUR1
 1320PRINTTAB(0,22)"3Recessive X Recess."
 1330PRINTTAB(0,24)"ie.  dd   X   dd"
 1335PROCCYAN
 1340PRINTTAB(0,28)"  TYPE IN 1,2 OR 3"
 1350KEY=GET
 1360IFKEY=49THENPROCDOMELSE1370
 1365GOTO1385
 1370IFKEY=50THENPROCDOMRECELSE1380
 1375GOTO1385
 1380IFKEY=51THENPROCRECELSE1350
 1385GOTO1085
 1410CLS
 1420PROCBLUE
 1430PRINTTAB(0,0)"1.Homozygous crossed"
 1440PRINTTAB(0,2)"  with heterzygous"
 1450COLOUR1
 1460PRINTTAB(0,6)"DO YOU WANT TO CROSS"
 1470PROCBLUE
 1480PRINTTAB(0,10)"1Heterozyg.X Domin."
 1490PRINTTAB(0,12)"ie.   Dd   X   DD"
 1500PROCCYAN
 1510PRINTTAB(0,16)"2Heterozyg.X Recess."
 1520PRINTTAB(0,18)"ie.   Dd   X   dd"
 1530PROCCYAN
 1540PRINTTAB(0,22)"  TYPE IN 1 OR 2"
 1550KEY=GET
 1560IFKEY=49THENPROCHetdomELSE1570
 1565GOTO1580
 1570IFKEY=50THENPROCHetrecELSE1550
 1580GOTO1085
 1585END
 1590DEFPROCDRAW
 1600CLS
 1610PROCBLUE
 1620PRINTTAB(3,3)"PUNNETT SQUARE"
 1630PROCCYAN
 1640VDU23,240,3,3,3,3,3,3,3,3
 1650VDU23,245,0,0,0,0,255,255,255,255
 1660VDU23,250,3,3,3,3,255,255,255,255
 1670FORX=5TO16
 1680PRINTTAB(8,X)CHR$240
 1690NEXTX
 1700FORY=5TO17
 1710PRINTTAB(Y,8)CHR$245
 1720NEXTY
 1730PRINTTAB(8,8)CHR$250
 1740ENDPROC
 1750DEFPROCDOM
 1760VDU19,0,4,0,0,0
 1770PROCDRAW
 1780X=ASC(A$)
 1790COLOUR1
 1800PRINTTAB(11,6)CHR$X
 1810PRINTTAB(14,6)CHR$X
 1820PRINTTAB(6,11)CHR$X
 1830PRINTTAB(10,11)CHR$X
 1840PRINTTAB(11,11)CHR$X
 1850PRINTTAB(14,11)CHR$X
 1860PRINTTAB(15,11)CHR$X
 1870PRINTTAB(6,14)CHR$X
 1880PRINTTAB(10,14)CHR$X
 1890PRINTTAB(11,14)CHR$X
 1900PRINTTAB(14,14)CHR$X
 1910PRINTTAB(15,14)CHR$X
 1920COLOUR1
 1930PRINTTAB(0,1)CHR$X;"=";LEFT$(A$,18)
 1940PROCBLUE
 1950PRINTTAB(2,18)"Genotype"
 1960PROCCYAN
 1970PRINTTAB(4,20)"All Homozygous"
 1980COLOUR1
 1990PRINTTAB(8,22)CHR$X;CHR$X
 2000PROCBLUE
 2010PRINTTAB(2,24)"Phenotype"
 2020PROCCYAN
 2030PRINTTAB(4,26)"All "
 2040COLOUR1
 2050PRINTTAB(8,26)LEFT$(A$,10)
 2060PRINTTAB(0,29)"PRESS SPACE BAR FOR         MENU"
 2070REPEATUNTILGET=32
 2090ENDPROC
 2100DEFPROCREC
 2110VDU19,0,4,0,0,0
 2120PROCDRAW
 2130X=ASC(A$)
 2140COLOUR1
 2150PRINTTAB(11,6)CHR$(X+32)
 2160PRINTTAB(14,6)CHR$(X+32)
 2170PRINTTAB(6,11)CHR$(X+32)
 2180PRINTTAB(10,11)CHR$(X+32)
 2190PRINTTAB(11,11)CHR$(X+32)
 2200PRINTTAB(14,11)CHR$(X+32)
 2210PRINTTAB(15,11)CHR$(X+32)
 2220PRINTTAB(6,14)CHR$(X+32)
 2230PRINTTAB(10,14)CHR$(X+32)
 2240PRINTTAB(11,14)CHR$(X+32)
 2250PRINTTAB(14,14)CHR$(X+32)
 2260PRINTTAB(15,14)CHR$(X+32)
 2270COLOUR1
 2280PRINTTAB(0,1)CHR$(X+32);"=";LEFT$(B$,18)
 2290PROCBLUE
 2300PRINTTAB(2,18)"Genotype"
 2310PROCCYAN
 2320PRINTTAB(4,20)"All Homozygous"
 2330COLOUR1
 2340PRINTTAB(8,22)CHR$(X+32);CHR$(X+32)
 2350PROCBLUE
 2360PRINTTAB(2,24)"Phenotype"
 2370PROCCYAN
 2380PRINTTAB(4,26)"All "
 2390COLOUR1
 2395PRINTTAB(8,26)LEFT$(B$,10)
 2410PRINTTAB(0,29)"PRESS SPACE BAR FOR         MENU"
 2420REPEATUNTILGET=32
 2440ENDPROC
 2450DEFPROCDOMREC
 2460VDU19,0,4,0,0,0
 2470PROCDRAW
 2480X=ASC(A$)
 2490COLOUR1
 2500PRINTTAB(11,6)CHR$X
 2510PRINTTAB(14,6)CHR$X
 2520PRINTTAB(6,11)CHR$(X+32)
 2530PRINTTAB(10,11)CHR$X
 2540PRINTTAB(11,11)CHR$(X+32)
 2550PRINTTAB(14,11)CHR$X
 2560PRINTTAB(15,11)CHR$(X+32)
 2570PRINTTAB(6,14)CHR$(X+32)
 2580PRINTTAB(10,14)CHR$X
 2590PRINTTAB(11,14)CHR$(X+32)
 2600PRINTTAB(14,14)CHR$X
 2610PRINTTAB(15,14)CHR$(X+32)
 2620COLOUR1
 2630PRINTTAB(0,1)CHR$X;"=";LEFT$(A$,8)
 2640PRINTTAB(11,1)CHR$(X+32);"=";LEFT$(B$,7)
 2650PROCBLUE
 2660PRINTTAB(2,18)"Genotype"
 2670PROCCYAN
 2680PRINTTAB(4,20)"All Heterozygous"
 2690COLOUR1
 2700PRINTTAB(8,22)CHR$X;CHR$(X+32)
 2710PROCBLUE
 2720PRINTTAB(2,24)"Phenotype"
 2730PROCCYAN
 2740PRINTTAB(4,26)"All "
 2750COLOUR1
 2760PRINTTAB(8,26)LEFT$(A$,10)
 2770PRINTTAB(0,29)"PRESS SPACE BAR FOR         MENU"
 2780REPEATUNTILGET=32
 2800ENDPROC
 2810DEFPROCHetdom
 2820VDU19,0,4,0,0,0
 2830PROCDRAW
 2840X=ASC(A$)
 2850COLOUR1
 2860PRINTTAB(11,6)CHR$X
 2870PRINTTAB(14,6)CHR$(X+32)
 2880PRINTTAB(6,11)CHR$X
 2890PRINTTAB(10,11)CHR$X
 2900PRINTTAB(11,11)CHR$X
 2910PRINTTAB(14,11)CHR$X
 2920PRINTTAB(15,11)CHR$(X+32)
 2930PRINTTAB(6,14)CHR$X
 2940PRINTTAB(10,14)CHR$X
 2950PRINTTAB(11,14)CHR$X
 2960PRINTTAB(14,14)CHR$X
 2970PRINTTAB(15,14)CHR$(X+32)
 2980COLOUR1
 2990PRINTTAB(0,1)CHR$X;"=";LEFT$(A$,8)
 3000PRINTTAB(11,1)CHR$(X+32);"=";LEFT$(B$,7)
 3010PROCBLUE
 3020PRINTTAB(2,18)"Genotype"
 3030PROCCYAN
 3040PRINTTAB(0,20)"50% Homozygous "
 3050PRINTTAB(0,21)"50% Heterozygous "
 3060COLOUR1
 3070PRINTTAB(18,20)CHR$X;CHR$X
 3080PRINTTAB(18,21)CHR$X;CHR$(X+32)
 3085PROCBLUE
 3090PRINTTAB(2,24)"Phenotype"
 3100PROCCYAN
 3110PRINTTAB(4,26)"All "
 3120COLOUR1
 3130PRINTTAB(8,26)LEFT$(A$,10)
 3140PRINTTAB(0,29)"PRESS SPACE BAR FOR         MENU"
 3150REPEATUNTILGET=32
 3170ENDPROC
 3180DEFPROCHetrec
 3190VDU19,0,4,0,0,0
 3200PROCDRAW
 3210X=ASC(A$)
 3220COLOUR1
 3230PRINTTAB(11,6)CHR$X
 3240PRINTTAB(14,6)CHR$(X+32)
 3250PRINTTAB(6,11)CHR$(X+32)
 3260PRINTTAB(10,11)CHR$X
 3270PRINTTAB(11,11)CHR$(X+32)
 3280PRINTTAB(14,11)CHR$(X+32)
 3290PRINTTAB(15,11)CHR$(X+32)
 3300PRINTTAB(6,14)CHR$(X+32)
 3310PRINTTAB(10,14)CHR$X
 3320PRINTTAB(11,14)CHR$(X+32)
 3330PRINTTAB(14,14)CHR$(X+32)
 3340PRINTTAB(15,14)CHR$(X+32)
 3350COLOUR1
 3360PRINTTAB(0,1)CHR$X;"=";LEFT$(A$,8)
 3370PRINTTAB(11,1)CHR$(X+32);"=";LEFT$(B$,7)
 3380PROCBLUE
 3390PRINTTAB(2,18)"Genotype"
 3400PROCCYAN
 3410PRINTTAB(0,20)"50% Heterozygous "
 3420PRINTTAB(0,21)"50% Homozygous "
 3430COLOUR1
 3440PRINTTAB(18,21)CHR$(X+32);CHR$(X+32)
 3450PRINTTAB(18,20)CHR$X;CHR$(X+32)
 3460PROCBLUE
 3470PRINTTAB(2,24)"Phenotype"
 3480PROCCYAN
 3490PRINTTAB(0,26)"Ratio 1";LEFT$(A$,5);":1";LEFT$(B$,5)
 3500COLOUR1
 3510PRINTTAB(0,29)"PRESS SPACE BAR FOR         MENU"
 3520REPEATUNTILGET=32
 3540ENDPROC
 3550DEFPROCHET
 3560VDU19,0,4,0,0,0
 3570PROCDRAW
 3580X=ASC(A$)
 3590COLOUR1
 3600PRINTTAB(11,6)CHR$X
 3610PRINTTAB(14,6)CHR$(X+32)
 3620PRINTTAB(6,11)CHR$X
 3630PRINTTAB(10,11)CHR$X
 3640PRINTTAB(11,11)CHR$X
 3650PRINTTAB(14,11)CHR$X
 3660PRINTTAB(15,11)CHR$(X+32)
 3670PRINTTAB(6,14)CHR$(X+32)
 3680PRINTTAB(10,14)CHR$X
 3690PRINTTAB(11,14)CHR$(X+32)
 3700PRINTTAB(14,14)CHR$(X+32)
 3710PRINTTAB(15,14)CHR$(X+32)
 3720COLOUR1
 3730PRINTTAB(0,1)CHR$X;"=";LEFT$(A$,8)
 3740PRINTTAB(11,1)CHR$(X+32);"=";LEFT$(B$,7)
 3750PROCBLUE
 3760PRINTTAB(2,18)"Genotype"
 3770PROCCYAN
 3780PRINTTAB(0,20)"1 Homozygous "
 3790COLOUR1:PRINTTAB(16,20)CHR$X;CHR$X
 3800PROCCYAN:PRINTTAB(0,21)"2 Heterozygous "
 3810COLOUR1:PRINTTAB(16,21)CHR$X;CHR$(X+32)
 3820PROCCYAN:PRINTTAB(0,22)"1 Homozygous "
 3830COLOUR1:PRINTTAB(16,22)CHR$(X+32);CHR$(X+32)
 3840PROCBLUE
 3850PRINTTAB(2,24)"Phenotype"
 3860PROCCYAN
 3870PRINTTAB(0,26)"Ratio 3";LEFT$(A$,5);":1";LEFT$(B$,5)
 3880COLOUR1
 3890PRINTTAB(0,29)"PRESS SPACE BAR FOR         MENU"
 3900REPEATUNTILGET=32
 3920ENDPROC
 4000DEFPROCTITLE
 4010PRINTTAB(10,2)"GENETICS  CALCULATOR"
 4020PRINTTAB(11,4)"MONOHYBRID CROSSES"
 4030ENDPROC
 4495DEFPROCAUTHOR
 4500PRINTTAB(13,14)"Copyright 1985"
 4510PRINTTAB(11,10)"Author-S.R.WELLINGS"
 4520PRINTTAB(8,12)"CBIOL.MIBIOL.PGCE.Dip.RSA."
 4530ENDPROC
 5000MODE1
 5005VDU19,128,4,0,0,0
 5010DEFPROCEND
 5020CLS
 5030PROCTITLE
 5035PROCAUTHOR
 5040PRINTTAB(9,28)"A STEPWELL PRODUCTION"
 5050ENDPROC
 6000DEFPROCBLUE
 6010COLOUR0
 6020VDU19,0,4,0,0,0
 6030ENDPROC
 6050DEFPROCCYAN
 6060COLOUR3
 6065VDU19,3,0,0,0,0
 6070ENDPROC
�5
*FX200,1
*FX11,0
*KEY10 OLD|MRUN|M

*TV255
�
2�4
3�19,128,4,0,0,0
9�23;8202;0;0;0
:�
<
�TITLE
K�13,14)"Copyright 1985"
Z!�11,10)"Author-S.R.WELLINGS"
_'�8,12)"CBIOL.MIBIOL.PGCE.Dip.RSA."
c(�7,25)"PRESS SPACE BAR TO CONTINUE"
d���=32:�Di@
f%�4:�19,128,4,0,0,0:�23;8202;0;0;0
i�
n
�TITLE
��2,8)"Do you want to:"
�'�7,11)"1.SOLVE GENETICS PROBLEMS?"
�'�7,14)"2.FINISH WITH THE PROGRAM?"
�	KEY=�
��KEY=49��dH@��tt@
��KEY=50��END��t`@
��
��
�
�TITLE
�1�1,6)"In all the following problems,alleles"
�,�1,8)"which are dominant are shown as:"
�#�8,10)"eg.BLACK=B is dominant"
�*�8,12)"to BROWN=b which is recessive"
�(�7,25)"PRESS SPACE BAR TO CONTINUE"

���=32
	�5
�
�130
�
	�BLUE
&�
0�" WHAT IS THE NAME"
:�
D�" OF THE DOMINANT"
N�
X�" ALLELE?"
b�
x	�CYAN
{�1,22)"Enter allele name"
|�4,24)"PRESS RETURN"
}�1
~�2,7)A$
�	�BLUE
��
��0,9)" WHAT IS THE NAME"
��
��0,11)" OF THE RECESSIVE"
��
��0,13)" ALLELE?"
��
��1
��
�
�2,15)B$
��
�	�BLUE
�
�"DOMINANT ALLELE IS"
�1
 �5,3)A$
*�
4	�BLUE
>�"RECESSIVE ALLELE IS"
H	�CYAN
R�
\�5,7)B$
f�
p�1
z�" WHAT TYPE OF CROSS"
��
��"    DO YOU WANT?"
�	�BLUE
�!�0,15)"1.Homozygous crossed"
��2,17)"with Homozygous?"
�	�CYAN
��0,20)"2.Homozygous with"
��2,22)"with Heterozygous?"
��1
��0,25)"3.Heterozygous"
��2,27)"crossed with"
��2,29)"Heterozygous?"
��
	�CYAN
�"  TYPE IN 1,2 OR 3"
KEYHIT=�
$�KEYHIT=49��tfD��TnD
.�KEYHIT=50��tBE��TxD
8�KEYHIT=51��HET��TZD
=	�Df@
��
�	�BLUE
� �0,0)"1.Homozygous crossed"
��3,2)"with Homozygous"
��1
� �0,4)"DO YOU WANT TO CROSS"
�	�BLUE
� �0,8)"1Dominant X Dominant"
��0,10)"ie.  DD   X   DD"
	�CYAN

 �0,16)"2Dominant X Recess."
�0,18)"ie.  DD   X   dd"
�1
(!�0,22)"3Recessive X Recess."
2�0,24)"ie.  dd   X   dd"
7	�CYAN
<�0,28)"  TYPE IN 1,2 OR 3"
F	KEY=�
P�KEY=49��DOM��DZE
U	�DiE
Z�KEY=50��DOMREC��DdE
_	�DiE
d�KEY=51��REC��DFE
i	�T}D
��
�	�BLUE
� �0,0)"1.Homozygous crossed"
��0,2)"  with heterzygous"
��1
� �0,6)"DO YOU WANT TO CROSS"
�	�BLUE
� �0,10)"1Heterozyg.X Domin."
��0,12)"ie.   Dd   X   DD"
�	�CYAN
�!�0,16)"2Heterozyg.X Recess."
��0,18)"ie.   Dd   X   dd"
�	�CYAN
�0,22)"  TYPE IN 1 OR 2"
	KEY=�
�KEY=49��Hetdom��TbF
	�TlF
"�KEY=50��Hetrec��TNF
,	�T}D
1�
6
��DRAW
@�
J	�BLUE
T�3,3)"PUNNETT SQUARE"
^	�CYAN
h�23,240,3,3,3,3,3,3,3,3
r#�23,245,0,0,0,0,255,255,255,255
|#�23,250,3,3,3,3,255,255,255,255
��X=5�16
��8,X)�240
��X
��Y=5�17
��Y,8)�245
��Y
��8,8)�250
��
�	��DOM
��19,0,4,0,0,0
�	�DRAW
�X=�(A$)
��1

�11,6)�X

�14,6)�X

�6,11)�X
&�10,11)�X
0�11,11)�X
:�14,11)�X
D�15,11)�X
N
�6,14)�X
X�10,14)�X
b�11,14)�X
l�14,14)�X
v�15,14)�X
��1
��0,1)�X;"=";�A$,18)
�	�BLUE
��2,18)"Genotype"
�	�CYAN
��4,20)"All Homozygous"
��1
��8,22)�X;�X
�	�BLUE
��2,24)"Phenotype"
�	�CYAN
��4,26)"All "
��1
�8,26)�A$,10)
-�0,29)"PRESS SPACE BAR FOR         MENU"

���=32
*�
4	��REC
>�19,0,4,0,0,0
H	�DRAW
RX=�(A$)
\�1
f�11,6)�(X+32)
p�14,6)�(X+32)
z�6,11)�(X+32)
��10,11)�(X+32)
��11,11)�(X+32)
��14,11)�(X+32)
��15,11)�(X+32)
��6,14)�(X+32)
��10,14)�(X+32)
��11,14)�(X+32)
��14,14)�(X+32)
��15,14)�(X+32)
��1
��0,1)�(X+32);"=";�B$,18)
�	�BLUE
��2,18)"Genotype"
		�CYAN
	�4,20)"All Homozygous"
	�1
	$�8,22)�(X+32);�(X+32)
	.	�BLUE
	8�2,24)"Phenotype"
	B	�CYAN
	L�4,26)"All "
	V�1
	[�8,26)�B$,10)
	j-�0,29)"PRESS SPACE BAR FOR         MENU"
	t
���=32
	��
	���DOMREC
	��19,0,4,0,0,0
	�	�DRAW
	�X=�(A$)
	��1
	�
�11,6)�X
	�
�14,6)�X
	��6,11)�(X+32)
	��10,11)�X
	��11,11)�(X+32)
	��14,11)�X
�15,11)�(X+32)

�6,14)�(X+32)
�10,14)�X
�11,14)�(X+32)
(�14,14)�X
2�15,14)�(X+32)
<�1
F�0,1)�X;"=";�A$,8)
P�11,1)�(X+32);"=";�B$,7)
Z	�BLUE
d�2,18)"Genotype"
n	�CYAN
x�4,20)"All Heterozygous"
��1
��8,22)�X;�(X+32)
�	�BLUE
��2,24)"Phenotype"
�	�CYAN
��4,26)"All "
��1
��8,26)�A$,10)
�-�0,29)"PRESS SPACE BAR FOR         MENU"
�
���=32
��
���Hetdom
�19,0,4,0,0,0
	�DRAW
X=�(A$)
"�1
,
�11,6)�X
6�14,6)�(X+32)
@
�6,11)�X
J�10,11)�X
T�11,11)�X
^�14,11)�X
h�15,11)�(X+32)
r
�6,14)�X
|�10,14)�X
��11,14)�X
��14,14)�X
��15,14)�(X+32)
��1
��0,1)�X;"=";�A$,8)
��11,1)�(X+32);"=";�B$,7)
�	�BLUE
��2,18)"Genotype"
�	�CYAN
��0,20)"50% Homozygous "
��0,21)"50% Heterozygous "
��1
��18,20)�X;�X
�18,21)�X;�(X+32)

	�BLUE
�2,24)"Phenotype"
	�CYAN
&�4,26)"All "
0�1
:�8,26)�A$,10)
D-�0,29)"PRESS SPACE BAR FOR         MENU"
N
���=32
b�
l��Hetrec
v�19,0,4,0,0,0
�	�DRAW
�X=�(A$)
��1
�
�11,6)�X
��14,6)�(X+32)
��6,11)�(X+32)
��10,11)�X
��11,11)�(X+32)
��14,11)�(X+32)
��15,11)�(X+32)
��6,14)�(X+32)
��10,14)�X
��11,14)�(X+32)

�14,14)�(X+32)

�15,14)�(X+32)

�1

 �0,1)�X;"=";�A$,8)

*�11,1)�(X+32);"=";�B$,7)

4	�BLUE

>�2,18)"Genotype"

H	�CYAN

R�0,20)"50% Heterozygous "

\�0,21)"50% Homozygous "

f�1

p�18,21)�(X+32);�(X+32)

z�18,20)�X;�(X+32)

�	�BLUE

��2,24)"Phenotype"

�	�CYAN

�'�0,26)"Ratio 1";�A$,5);":1";�B$,5)

��1

�-�0,29)"PRESS SPACE BAR FOR         MENU"

�
���=32

��

�	��HET

��19,0,4,0,0,0

�	�DRAW

�X=�(A$)
�1

�11,6)�X
�14,6)�(X+32)
$
�6,11)�X
.�10,11)�X
8�11,11)�X
B�14,11)�X
L�15,11)�(X+32)
V�6,14)�(X+32)
`�10,14)�X
j�11,14)�(X+32)
t�14,14)�(X+32)
~�15,14)�(X+32)
��1
��0,1)�X;"=";�A$,8)
��11,1)�(X+32);"=";�B$,7)
�	�BLUE
��2,18)"Genotype"
�	�CYAN
��0,20)"1 Homozygous "
��1:�16,20)�X;�X
�"�CYAN:�0,21)"2 Heterozygous "
��1:�16,21)�X;�(X+32)
� �CYAN:�0,22)"1 Homozygous "
��1:�16,22)�(X+32);�(X+32)
	�BLUE

�2,24)"Phenotype"
	�CYAN
'�0,26)"Ratio 3";�A$,5);":1";�B$,5)
(�1
2-�0,29)"PRESS SPACE BAR FOR         MENU"
<
���=32
P�
���TITLE
�!�10,2)"GENETICS  CALCULATOR"
��11,4)"MONOHYBRID CROSSES"
��
���AUTHOR
��13,14)"Copyright 1985"
�!�11,10)"Author-S.R.WELLINGS"
�'�8,12)"CBIOL.MIBIOL.PGCE.Dip.RSA."
��
��1
��19,128,4,0,0,0
�	��END
��
�
�TITLE
��AUTHOR
�"�9,28)"A STEPWELL PRODUCTION"
��
p
��BLUE
z�0
��19,0,4,0,0,0
��
�
��CYAN
��3
��19,3,0,0,0,0
��
�
00000000  0d 00 01 06 ef 35 0d 00  0f 0c 2a 46 58 32 30 30  |.....5....*FX200|
00000010  2c 31 0d 00 14 0b 2a 46  58 31 31 2c 30 0d 00 19  |,1....*FX11,0...|
00000020  15 2a 4b 45 59 31 30 20  4f 4c 44 7c 4d 52 55 4e  |.*KEY10 OLD|MRUN|
00000030  7c 4d 0d 00 1e 0a 2a 54  56 32 35 35 0d 00 1f 05  ||M....*TV255....|
00000040  db 0d 00 32 06 eb 34 0d  00 33 13 ef 31 39 2c 31  |...2..4..3..19,1|
00000050  32 38 2c 34 2c 30 2c 30  2c 30 0d 00 39 12 ef 32  |28,4,0,0,0..9..2|
00000060  33 3b 38 32 30 32 3b 30  3b 30 3b 30 0d 00 3a 05  |3;8202;0;0;0..:.|
00000070  db 0d 00 3c 0a f2 54 49  54 4c 45 0d 00 4b 1c f1  |...<..TITLE..K..|
00000080  8a 31 33 2c 31 34 29 22  43 6f 70 79 72 69 67 68  |.13,14)"Copyrigh|
00000090  74 20 31 39 38 35 22 0d  00 5a 21 f1 8a 31 31 2c  |t 1985"..Z!..11,|
000000a0  31 30 29 22 41 75 74 68  6f 72 2d 53 2e 52 2e 57  |10)"Author-S.R.W|
000000b0  45 4c 4c 49 4e 47 53 22  0d 00 5f 27 f1 8a 38 2c  |ELLINGS".._'..8,|
000000c0  31 32 29 22 43 42 49 4f  4c 2e 4d 49 42 49 4f 4c  |12)"CBIOL.MIBIOL|
000000d0  2e 50 47 43 45 2e 44 69  70 2e 52 53 41 2e 22 0d  |.PGCE.Dip.RSA.".|
000000e0  00 63 28 f1 8a 37 2c 32  35 29 22 50 52 45 53 53  |.c(..7,25)"PRESS|
000000f0  20 53 50 41 43 45 20 42  41 52 20 54 4f 20 43 4f  | SPACE BAR TO CO|
00000100  4e 54 49 4e 55 45 22 0d  00 64 10 f5 fd a5 3d 33  |NTINUE"..d....=3|
00000110  32 3a e5 8d 44 69 40 0d  00 66 25 eb 34 3a ef 31  |2:..Di@..f%.4:.1|
00000120  39 2c 31 32 38 2c 34 2c  30 2c 30 2c 30 3a ef 32  |9,128,4,0,0,0:.2|
00000130  33 3b 38 32 30 32 3b 30  3b 30 3b 30 0d 00 69 05  |3;8202;0;0;0..i.|
00000140  db 0d 00 6e 0a f2 54 49  54 4c 45 0d 00 82 1b f1  |...n..TITLE.....|
00000150  8a 32 2c 38 29 22 44 6f  20 79 6f 75 20 77 61 6e  |.2,8)"Do you wan|
00000160  74 20 74 6f 3a 22 0d 00  8c 27 f1 8a 37 2c 31 31  |t to:"...'..7,11|
00000170  29 22 31 2e 53 4f 4c 56  45 20 47 45 4e 45 54 49  |)"1.SOLVE GENETI|
00000180  43 53 20 50 52 4f 42 4c  45 4d 53 3f 22 0d 00 96  |CS PROBLEMS?"...|
00000190  27 f1 8a 37 2c 31 34 29  22 32 2e 46 49 4e 49 53  |'..7,14)"2.FINIS|
000001a0  48 20 57 49 54 48 20 54  48 45 20 50 52 4f 47 52  |H WITH THE PROGR|
000001b0  41 4d 3f 22 0d 00 a0 09  4b 45 59 3d a5 0d 00 aa  |AM?"....KEY=....|
000001c0  15 e7 4b 45 59 3d 34 39  8c 8d 64 48 40 8b 8d 74  |..KEY=49..dH@..t|
000001d0  74 40 0d 00 b4 15 e7 4b  45 59 3d 35 30 8c f2 45  |t@.....KEY=50..E|
000001e0  4e 44 8b 8d 74 60 40 0d  00 be 05 e0 0d 00 c8 05  |ND..t`@.........|
000001f0  db 0d 00 cd 0a f2 54 49  54 4c 45 0d 00 d2 31 f1  |......TITLE...1.|
00000200  8a 31 2c 36 29 22 49 6e  20 61 6c 6c 20 74 68 65  |.1,6)"In all the|
00000210  20 66 6f 6c 6c 6f 77 69  6e 67 20 70 72 6f 62 6c  | following probl|
00000220  65 6d 73 2c 61 6c 6c 65  6c 65 73 22 0d 00 dc 2c  |ems,alleles"...,|
00000230  f1 8a 31 2c 38 29 22 77  68 69 63 68 20 61 72 65  |..1,8)"which are|
00000240  20 64 6f 6d 69 6e 61 6e  74 20 61 72 65 20 73 68  | dominant are sh|
00000250  6f 77 6e 20 61 73 3a 22  0d 00 e6 23 f1 8a 38 2c  |own as:"...#..8,|
00000260  31 30 29 22 65 67 2e 42  4c 41 43 4b 3d 42 20 69  |10)"eg.BLACK=B i|
00000270  73 20 64 6f 6d 69 6e 61  6e 74 22 0d 00 f0 2a f1  |s dominant"...*.|
00000280  8a 38 2c 31 32 29 22 74  6f 20 42 52 4f 57 4e 3d  |.8,12)"to BROWN=|
00000290  62 20 77 68 69 63 68 20  69 73 20 72 65 63 65 73  |b which is reces|
000002a0  73 69 76 65 22 0d 00 fa  28 f1 8a 37 2c 32 35 29  |sive"...(..7,25)|
000002b0  22 50 52 45 53 53 20 53  50 41 43 45 20 42 41 52  |"PRESS SPACE BAR|
000002c0  20 54 4f 20 43 4f 4e 54  49 4e 55 45 22 0d 01 04  | TO CONTINUE"...|
000002d0  0a f5 fd a5 3d 33 32 0d  01 09 06 eb 35 0d 01 0e  |....=32.....5...|
000002e0  05 db 0d 02 08 08 fb 31  33 30 0d 02 12 05 db 0d  |.......130......|
000002f0  02 1c 09 f2 42 4c 55 45  0d 02 26 05 f1 0d 02 30  |....BLUE..&....0|
00000300  18 f1 22 20 57 48 41 54  20 49 53 20 54 48 45 20  |.." WHAT IS THE |
00000310  4e 41 4d 45 22 0d 02 3a  05 f1 0d 02 44 17 f1 22  |NAME"..:....D.."|
00000320  20 4f 46 20 54 48 45 20  44 4f 4d 49 4e 41 4e 54  | OF THE DOMINANT|
00000330  22 0d 02 4e 05 f1 0d 02  58 0f f1 22 20 41 4c 4c  |"..N....X.." ALL|
00000340  45 4c 45 3f 22 0d 02 62  05 f1 0d 02 78 09 f2 43  |ELE?"..b....x..C|
00000350  59 41 4e 0d 02 7b 1e f1  8a 31 2c 32 32 29 22 45  |YAN..{...1,22)"E|
00000360  6e 74 65 72 20 61 6c 6c  65 6c 65 20 6e 61 6d 65  |nter allele name|
00000370  22 0d 02 7c 19 f1 8a 34  2c 32 34 29 22 50 52 45  |"..|...4,24)"PRE|
00000380  53 53 20 52 45 54 55 52  4e 22 0d 02 7d 06 fb 31  |SS RETURN"..}..1|
00000390  0d 02 7e 0c e8 8a 32 2c  37 29 41 24 0d 02 80 09  |..~...2,7)A$....|
000003a0  f2 42 4c 55 45 0d 02 8a  05 f1 0d 02 94 1d f1 8a  |.BLUE...........|
000003b0  30 2c 39 29 22 20 57 48  41 54 20 49 53 20 54 48  |0,9)" WHAT IS TH|
000003c0  45 20 4e 41 4d 45 22 0d  02 9e 05 f1 0d 02 a8 1e  |E NAME".........|
000003d0  f1 8a 30 2c 31 31 29 22  20 4f 46 20 54 48 45 20  |..0,11)" OF THE |
000003e0  52 45 43 45 53 53 49 56  45 22 0d 02 b2 05 f1 0d  |RECESSIVE"......|
000003f0  02 bc 15 f1 8a 30 2c 31  33 29 22 20 41 4c 4c 45  |.....0,13)" ALLE|
00000400  4c 45 3f 22 0d 02 c6 05  f1 0d 02 d0 06 fb 31 0d  |LE?"..........1.|
00000410  02 da 05 f1 0d 02 e4 0d  e8 8a 32 2c 31 35 29 42  |..........2,15)B|
00000420  24 0d 02 ee 05 db 0d 02  f8 09 f2 42 4c 55 45 0d  |$..........BLUE.|
00000430  03 02 05 f1 0d 03 0c 19  f1 22 44 4f 4d 49 4e 41  |........."DOMINA|
00000440  4e 54 20 41 4c 4c 45 4c  45 20 49 53 22 0d 03 16  |NT ALLELE IS"...|
00000450  06 fb 31 0d 03 20 0c f1  8a 35 2c 33 29 41 24 0d  |..1.. ...5,3)A$.|
00000460  03 2a 05 f1 0d 03 34 09  f2 42 4c 55 45 0d 03 3e  |.*....4..BLUE..>|
00000470  1a f1 22 52 45 43 45 53  53 49 56 45 20 41 4c 4c  |.."RECESSIVE ALL|
00000480  45 4c 45 20 49 53 22 0d  03 48 09 f2 43 59 41 4e  |ELE IS"..H..CYAN|
00000490  0d 03 52 05 f1 0d 03 5c  0c f1 8a 35 2c 37 29 42  |..R....\...5,7)B|
000004a0  24 0d 03 66 05 f1 0d 03  70 06 fb 31 0d 03 7a 1a  |$..f....p..1..z.|
000004b0  f1 22 20 57 48 41 54 20  54 59 50 45 20 4f 46 20  |." WHAT TYPE OF |
000004c0  43 52 4f 53 53 22 0d 03  84 05 f1 0d 03 8e 17 f1  |CROSS"..........|
000004d0  22 20 20 20 20 44 4f 20  59 4f 55 20 57 41 4e 54  |"    DO YOU WANT|
000004e0  3f 22 0d 03 98 09 f2 42  4c 55 45 0d 03 a2 21 f1  |?".....BLUE...!.|
000004f0  8a 30 2c 31 35 29 22 31  2e 48 6f 6d 6f 7a 79 67  |.0,15)"1.Homozyg|
00000500  6f 75 73 20 63 72 6f 73  73 65 64 22 0d 03 ac 1d  |ous crossed"....|
00000510  f1 8a 32 2c 31 37 29 22  77 69 74 68 20 48 6f 6d  |..2,17)"with Hom|
00000520  6f 7a 79 67 6f 75 73 3f  22 0d 03 b6 09 f2 43 59  |ozygous?".....CY|
00000530  41 4e 0d 03 c0 1e f1 8a  30 2c 32 30 29 22 32 2e  |AN......0,20)"2.|
00000540  48 6f 6d 6f 7a 79 67 6f  75 73 20 77 69 74 68 22  |Homozygous with"|
00000550  0d 03 ca 1f f1 8a 32 2c  32 32 29 22 77 69 74 68  |......2,22)"with|
00000560  20 48 65 74 65 72 6f 7a  79 67 6f 75 73 3f 22 0d  | Heterozygous?".|
00000570  03 d4 06 fb 31 0d 03 de  1b f1 8a 30 2c 32 35 29  |....1......0,25)|
00000580  22 33 2e 48 65 74 65 72  6f 7a 79 67 6f 75 73 22  |"3.Heterozygous"|
00000590  0d 03 e8 19 f1 8a 32 2c  32 37 29 22 63 72 6f 73  |......2,27)"cros|
000005a0  73 65 64 20 77 69 74 68  22 0d 03 f2 1a f1 8a 32  |sed with"......2|
000005b0  2c 32 39 29 22 48 65 74  65 72 6f 7a 79 67 6f 75  |,29)"Heterozygou|
000005c0  73 3f 22 0d 03 fc 05 f1  0d 04 06 09 f2 43 59 41  |s?"..........CYA|
000005d0  4e 0d 04 10 19 f1 22 20  20 54 59 50 45 20 49 4e  |N....."  TYPE IN|
000005e0  20 31 2c 32 20 4f 52 20  33 22 0d 04 1a 0c 4b 45  | 1,2 OR 3"....KE|
000005f0  59 48 49 54 3d a5 0d 04  24 18 e7 4b 45 59 48 49  |YHIT=...$..KEYHI|
00000600  54 3d 34 39 8c 8d 74 66  44 8b 8d 54 6e 44 0d 04  |T=49..tfD..TnD..|
00000610  2e 18 e7 4b 45 59 48 49  54 3d 35 30 8c 8d 74 42  |...KEYHIT=50..tB|
00000620  45 8b 8d 54 78 44 0d 04  38 18 e7 4b 45 59 48 49  |E..TxD..8..KEYHI|
00000630  54 3d 35 31 8c f2 48 45  54 8b 8d 54 5a 44 0d 04  |T=51..HET..TZD..|
00000640  3d 09 e5 8d 44 66 40 0d  04 a6 05 db 0d 04 b0 09  |=...Df@.........|
00000650  f2 42 4c 55 45 0d 04 ba  20 f1 8a 30 2c 30 29 22  |.BLUE... ..0,0)"|
00000660  31 2e 48 6f 6d 6f 7a 79  67 6f 75 73 20 63 72 6f  |1.Homozygous cro|
00000670  73 73 65 64 22 0d 04 c4  1b f1 8a 33 2c 32 29 22  |ssed"......3,2)"|
00000680  77 69 74 68 20 48 6f 6d  6f 7a 79 67 6f 75 73 22  |with Homozygous"|
00000690  0d 04 ce 06 fb 31 0d 04  d8 20 f1 8a 30 2c 34 29  |.....1... ..0,4)|
000006a0  22 44 4f 20 59 4f 55 20  57 41 4e 54 20 54 4f 20  |"DO YOU WANT TO |
000006b0  43 52 4f 53 53 22 0d 04  e2 09 f2 42 4c 55 45 0d  |CROSS".....BLUE.|
000006c0  04 ec 20 f1 8a 30 2c 38  29 22 31 44 6f 6d 69 6e  |.. ..0,8)"1Domin|
000006d0  61 6e 74 20 58 20 44 6f  6d 69 6e 61 6e 74 22 0d  |ant X Dominant".|
000006e0  04 f6 1d f1 8a 30 2c 31  30 29 22 69 65 2e 20 20  |.....0,10)"ie.  |
000006f0  44 44 20 20 20 58 20 20  20 44 44 22 0d 05 00 09  |DD   X   DD"....|
00000700  f2 43 59 41 4e 0d 05 0a  20 f1 8a 30 2c 31 36 29  |.CYAN... ..0,16)|
00000710  22 32 44 6f 6d 69 6e 61  6e 74 20 58 20 52 65 63  |"2Dominant X Rec|
00000720  65 73 73 2e 22 0d 05 14  1d f1 8a 30 2c 31 38 29  |ess."......0,18)|
00000730  22 69 65 2e 20 20 44 44  20 20 20 58 20 20 20 64  |"ie.  DD   X   d|
00000740  64 22 0d 05 1e 06 fb 31  0d 05 28 21 f1 8a 30 2c  |d".....1..(!..0,|
00000750  32 32 29 22 33 52 65 63  65 73 73 69 76 65 20 58  |22)"3Recessive X|
00000760  20 52 65 63 65 73 73 2e  22 0d 05 32 1d f1 8a 30  | Recess."..2...0|
00000770  2c 32 34 29 22 69 65 2e  20 20 64 64 20 20 20 58  |,24)"ie.  dd   X|
00000780  20 20 20 64 64 22 0d 05  37 09 f2 43 59 41 4e 0d  |   dd"..7..CYAN.|
00000790  05 3c 1f f1 8a 30 2c 32  38 29 22 20 20 54 59 50  |.<...0,28)"  TYP|
000007a0  45 20 49 4e 20 31 2c 32  20 4f 52 20 33 22 0d 05  |E IN 1,2 OR 3"..|
000007b0  46 09 4b 45 59 3d a5 0d  05 50 15 e7 4b 45 59 3d  |F.KEY=...P..KEY=|
000007c0  34 39 8c f2 44 4f 4d 8b  8d 44 5a 45 0d 05 55 09  |49..DOM..DZE..U.|
000007d0  e5 8d 44 69 45 0d 05 5a  18 e7 4b 45 59 3d 35 30  |..DiE..Z..KEY=50|
000007e0  8c f2 44 4f 4d 52 45 43  8b 8d 44 64 45 0d 05 5f  |..DOMREC..DdE.._|
000007f0  09 e5 8d 44 69 45 0d 05  64 15 e7 4b 45 59 3d 35  |...DiE..d..KEY=5|
00000800  31 8c f2 52 45 43 8b 8d  44 46 45 0d 05 69 09 e5  |1..REC..DFE..i..|
00000810  8d 54 7d 44 0d 05 82 05  db 0d 05 8c 09 f2 42 4c  |.T}D..........BL|
00000820  55 45 0d 05 96 20 f1 8a  30 2c 30 29 22 31 2e 48  |UE... ..0,0)"1.H|
00000830  6f 6d 6f 7a 79 67 6f 75  73 20 63 72 6f 73 73 65  |omozygous crosse|
00000840  64 22 0d 05 a0 1e f1 8a  30 2c 32 29 22 20 20 77  |d"......0,2)"  w|
00000850  69 74 68 20 68 65 74 65  72 7a 79 67 6f 75 73 22  |ith heterzygous"|
00000860  0d 05 aa 06 fb 31 0d 05  b4 20 f1 8a 30 2c 36 29  |.....1... ..0,6)|
00000870  22 44 4f 20 59 4f 55 20  57 41 4e 54 20 54 4f 20  |"DO YOU WANT TO |
00000880  43 52 4f 53 53 22 0d 05  be 09 f2 42 4c 55 45 0d  |CROSS".....BLUE.|
00000890  05 c8 20 f1 8a 30 2c 31  30 29 22 31 48 65 74 65  |.. ..0,10)"1Hete|
000008a0  72 6f 7a 79 67 2e 58 20  44 6f 6d 69 6e 2e 22 0d  |rozyg.X Domin.".|
000008b0  05 d2 1e f1 8a 30 2c 31  32 29 22 69 65 2e 20 20  |.....0,12)"ie.  |
000008c0  20 44 64 20 20 20 58 20  20 20 44 44 22 0d 05 dc  | Dd   X   DD"...|
000008d0  09 f2 43 59 41 4e 0d 05  e6 21 f1 8a 30 2c 31 36  |..CYAN...!..0,16|
000008e0  29 22 32 48 65 74 65 72  6f 7a 79 67 2e 58 20 52  |)"2Heterozyg.X R|
000008f0  65 63 65 73 73 2e 22 0d  05 f0 1e f1 8a 30 2c 31  |ecess."......0,1|
00000900  38 29 22 69 65 2e 20 20  20 44 64 20 20 20 58 20  |8)"ie.   Dd   X |
00000910  20 20 64 64 22 0d 05 fa  09 f2 43 59 41 4e 0d 06  |  dd".....CYAN..|
00000920  04 1d f1 8a 30 2c 32 32  29 22 20 20 54 59 50 45  |....0,22)"  TYPE|
00000930  20 49 4e 20 31 20 4f 52  20 32 22 0d 06 0e 09 4b  | IN 1 OR 2"....K|
00000940  45 59 3d a5 0d 06 18 18  e7 4b 45 59 3d 34 39 8c  |EY=......KEY=49.|
00000950  f2 48 65 74 64 6f 6d 8b  8d 54 62 46 0d 06 1d 09  |.Hetdom..TbF....|
00000960  e5 8d 54 6c 46 0d 06 22  18 e7 4b 45 59 3d 35 30  |..TlF.."..KEY=50|
00000970  8c f2 48 65 74 72 65 63  8b 8d 54 4e 46 0d 06 2c  |..Hetrec..TNF..,|
00000980  09 e5 8d 54 7d 44 0d 06  31 05 e0 0d 06 36 0a dd  |...T}D..1....6..|
00000990  f2 44 52 41 57 0d 06 40  05 db 0d 06 4a 09 f2 42  |.DRAW..@....J..B|
000009a0  4c 55 45 0d 06 54 1a f1  8a 33 2c 33 29 22 50 55  |LUE..T...3,3)"PU|
000009b0  4e 4e 45 54 54 20 53 51  55 41 52 45 22 0d 06 5e  |NNETT SQUARE"..^|
000009c0  09 f2 43 59 41 4e 0d 06  68 1b ef 32 33 2c 32 34  |..CYAN..h..23,24|
000009d0  30 2c 33 2c 33 2c 33 2c  33 2c 33 2c 33 2c 33 2c  |0,3,3,3,3,3,3,3,|
000009e0  33 0d 06 72 23 ef 32 33  2c 32 34 35 2c 30 2c 30  |3..r#.23,245,0,0|
000009f0  2c 30 2c 30 2c 32 35 35  2c 32 35 35 2c 32 35 35  |,0,0,255,255,255|
00000a00  2c 32 35 35 0d 06 7c 23  ef 32 33 2c 32 35 30 2c  |,255..|#.23,250,|
00000a10  33 2c 33 2c 33 2c 33 2c  32 35 35 2c 32 35 35 2c  |3,3,3,3,255,255,|
00000a20  32 35 35 2c 32 35 35 0d  06 86 0b e3 58 3d 35 b8  |255,255.....X=5.|
00000a30  31 36 0d 06 90 0e f1 8a  38 2c 58 29 bd 32 34 30  |16......8,X).240|
00000a40  0d 06 9a 06 ed 58 0d 06  a4 0b e3 59 3d 35 b8 31  |.....X.....Y=5.1|
00000a50  37 0d 06 ae 0e f1 8a 59  2c 38 29 bd 32 34 35 0d  |7......Y,8).245.|
00000a60  06 b8 06 ed 59 0d 06 c2  0e f1 8a 38 2c 38 29 bd  |....Y......8,8).|
00000a70  32 35 30 0d 06 cc 05 e1  0d 06 d6 09 dd f2 44 4f  |250...........DO|
00000a80  4d 0d 06 e0 11 ef 31 39  2c 30 2c 34 2c 30 2c 30  |M.....19,0,4,0,0|
00000a90  2c 30 0d 06 ea 09 f2 44  52 41 57 0d 06 f4 0b 58  |,0.....DRAW....X|
00000aa0  3d 97 28 41 24 29 0d 06  fe 06 fb 31 0d 07 08 0d  |=.(A$).....1....|
00000ab0  f1 8a 31 31 2c 36 29 bd  58 0d 07 12 0d f1 8a 31  |..11,6).X......1|
00000ac0  34 2c 36 29 bd 58 0d 07  1c 0d f1 8a 36 2c 31 31  |4,6).X......6,11|
00000ad0  29 bd 58 0d 07 26 0e f1  8a 31 30 2c 31 31 29 bd  |).X..&...10,11).|
00000ae0  58 0d 07 30 0e f1 8a 31  31 2c 31 31 29 bd 58 0d  |X..0...11,11).X.|
00000af0  07 3a 0e f1 8a 31 34 2c  31 31 29 bd 58 0d 07 44  |.:...14,11).X..D|
00000b00  0e f1 8a 31 35 2c 31 31  29 bd 58 0d 07 4e 0d f1  |...15,11).X..N..|
00000b10  8a 36 2c 31 34 29 bd 58  0d 07 58 0e f1 8a 31 30  |.6,14).X..X...10|
00000b20  2c 31 34 29 bd 58 0d 07  62 0e f1 8a 31 31 2c 31  |,14).X..b...11,1|
00000b30  34 29 bd 58 0d 07 6c 0e  f1 8a 31 34 2c 31 34 29  |4).X..l...14,14)|
00000b40  bd 58 0d 07 76 0e f1 8a  31 35 2c 31 34 29 bd 58  |.X..v...15,14).X|
00000b50  0d 07 80 06 fb 31 0d 07  8a 18 f1 8a 30 2c 31 29  |.....1......0,1)|
00000b60  bd 58 3b 22 3d 22 3b c0  41 24 2c 31 38 29 0d 07  |.X;"=";.A$,18)..|
00000b70  94 09 f2 42 4c 55 45 0d  07 9e 15 f1 8a 32 2c 31  |...BLUE......2,1|
00000b80  38 29 22 47 65 6e 6f 74  79 70 65 22 0d 07 a8 09  |8)"Genotype"....|
00000b90  f2 43 59 41 4e 0d 07 b2  1b f1 8a 34 2c 32 30 29  |.CYAN......4,20)|
00000ba0  22 41 6c 6c 20 48 6f 6d  6f 7a 79 67 6f 75 73 22  |"All Homozygous"|
00000bb0  0d 07 bc 06 fb 31 0d 07  c6 10 f1 8a 38 2c 32 32  |.....1......8,22|
00000bc0  29 bd 58 3b bd 58 0d 07  d0 09 f2 42 4c 55 45 0d  |).X;.X.....BLUE.|
00000bd0  07 da 16 f1 8a 32 2c 32  34 29 22 50 68 65 6e 6f  |.....2,24)"Pheno|
00000be0  74 79 70 65 22 0d 07 e4  09 f2 43 59 41 4e 0d 07  |type".....CYAN..|
00000bf0  ee 11 f1 8a 34 2c 32 36  29 22 41 6c 6c 20 22 0d  |....4,26)"All ".|
00000c00  07 f8 06 fb 31 0d 08 02  12 f1 8a 38 2c 32 36 29  |....1......8,26)|
00000c10  c0 41 24 2c 31 30 29 0d  08 0c 2d f1 8a 30 2c 32  |.A$,10)...-..0,2|
00000c20  39 29 22 50 52 45 53 53  20 53 50 41 43 45 20 42  |9)"PRESS SPACE B|
00000c30  41 52 20 46 4f 52 20 20  20 20 20 20 20 20 20 4d  |AR FOR         M|
00000c40  45 4e 55 22 0d 08 16 0a  f5 fd a5 3d 33 32 0d 08  |ENU".......=32..|
00000c50  2a 05 e1 0d 08 34 09 dd  f2 52 45 43 0d 08 3e 11  |*....4...REC..>.|
00000c60  ef 31 39 2c 30 2c 34 2c  30 2c 30 2c 30 0d 08 48  |.19,0,4,0,0,0..H|
00000c70  09 f2 44 52 41 57 0d 08  52 0b 58 3d 97 28 41 24  |..DRAW..R.X=.(A$|
00000c80  29 0d 08 5c 06 fb 31 0d  08 66 12 f1 8a 31 31 2c  |)..\..1..f...11,|
00000c90  36 29 bd 28 58 2b 33 32  29 0d 08 70 12 f1 8a 31  |6).(X+32)..p...1|
00000ca0  34 2c 36 29 bd 28 58 2b  33 32 29 0d 08 7a 12 f1  |4,6).(X+32)..z..|
00000cb0  8a 36 2c 31 31 29 bd 28  58 2b 33 32 29 0d 08 84  |.6,11).(X+32)...|
00000cc0  13 f1 8a 31 30 2c 31 31  29 bd 28 58 2b 33 32 29  |...10,11).(X+32)|
00000cd0  0d 08 8e 13 f1 8a 31 31  2c 31 31 29 bd 28 58 2b  |......11,11).(X+|
00000ce0  33 32 29 0d 08 98 13 f1  8a 31 34 2c 31 31 29 bd  |32)......14,11).|
00000cf0  28 58 2b 33 32 29 0d 08  a2 13 f1 8a 31 35 2c 31  |(X+32)......15,1|
00000d00  31 29 bd 28 58 2b 33 32  29 0d 08 ac 12 f1 8a 36  |1).(X+32)......6|
00000d10  2c 31 34 29 bd 28 58 2b  33 32 29 0d 08 b6 13 f1  |,14).(X+32).....|
00000d20  8a 31 30 2c 31 34 29 bd  28 58 2b 33 32 29 0d 08  |.10,14).(X+32)..|
00000d30  c0 13 f1 8a 31 31 2c 31  34 29 bd 28 58 2b 33 32  |....11,14).(X+32|
00000d40  29 0d 08 ca 13 f1 8a 31  34 2c 31 34 29 bd 28 58  |)......14,14).(X|
00000d50  2b 33 32 29 0d 08 d4 13  f1 8a 31 35 2c 31 34 29  |+32)......15,14)|
00000d60  bd 28 58 2b 33 32 29 0d  08 de 06 fb 31 0d 08 e8  |.(X+32).....1...|
00000d70  1d f1 8a 30 2c 31 29 bd  28 58 2b 33 32 29 3b 22  |...0,1).(X+32);"|
00000d80  3d 22 3b c0 42 24 2c 31  38 29 0d 08 f2 09 f2 42  |=";.B$,18).....B|
00000d90  4c 55 45 0d 08 fc 15 f1  8a 32 2c 31 38 29 22 47  |LUE......2,18)"G|
00000da0  65 6e 6f 74 79 70 65 22  0d 09 06 09 f2 43 59 41  |enotype".....CYA|
00000db0  4e 0d 09 10 1b f1 8a 34  2c 32 30 29 22 41 6c 6c  |N......4,20)"All|
00000dc0  20 48 6f 6d 6f 7a 79 67  6f 75 73 22 0d 09 1a 06  | Homozygous"....|
00000dd0  fb 31 0d 09 24 1a f1 8a  38 2c 32 32 29 bd 28 58  |.1..$...8,22).(X|
00000de0  2b 33 32 29 3b bd 28 58  2b 33 32 29 0d 09 2e 09  |+32);.(X+32)....|
00000df0  f2 42 4c 55 45 0d 09 38  16 f1 8a 32 2c 32 34 29  |.BLUE..8...2,24)|
00000e00  22 50 68 65 6e 6f 74 79  70 65 22 0d 09 42 09 f2  |"Phenotype"..B..|
00000e10  43 59 41 4e 0d 09 4c 11  f1 8a 34 2c 32 36 29 22  |CYAN..L...4,26)"|
00000e20  41 6c 6c 20 22 0d 09 56  06 fb 31 0d 09 5b 12 f1  |All "..V..1..[..|
00000e30  8a 38 2c 32 36 29 c0 42  24 2c 31 30 29 0d 09 6a  |.8,26).B$,10)..j|
00000e40  2d f1 8a 30 2c 32 39 29  22 50 52 45 53 53 20 53  |-..0,29)"PRESS S|
00000e50  50 41 43 45 20 42 41 52  20 46 4f 52 20 20 20 20  |PACE BAR FOR    |
00000e60  20 20 20 20 20 4d 45 4e  55 22 0d 09 74 0a f5 fd  |     MENU"..t...|
00000e70  a5 3d 33 32 0d 09 88 05  e1 0d 09 92 0c dd f2 44  |.=32...........D|
00000e80  4f 4d 52 45 43 0d 09 9c  11 ef 31 39 2c 30 2c 34  |OMREC.....19,0,4|
00000e90  2c 30 2c 30 2c 30 0d 09  a6 09 f2 44 52 41 57 0d  |,0,0,0.....DRAW.|
00000ea0  09 b0 0b 58 3d 97 28 41  24 29 0d 09 ba 06 fb 31  |...X=.(A$).....1|
00000eb0  0d 09 c4 0d f1 8a 31 31  2c 36 29 bd 58 0d 09 ce  |......11,6).X...|
00000ec0  0d f1 8a 31 34 2c 36 29  bd 58 0d 09 d8 12 f1 8a  |...14,6).X......|
00000ed0  36 2c 31 31 29 bd 28 58  2b 33 32 29 0d 09 e2 0e  |6,11).(X+32)....|
00000ee0  f1 8a 31 30 2c 31 31 29  bd 58 0d 09 ec 13 f1 8a  |..10,11).X......|
00000ef0  31 31 2c 31 31 29 bd 28  58 2b 33 32 29 0d 09 f6  |11,11).(X+32)...|
00000f00  0e f1 8a 31 34 2c 31 31  29 bd 58 0d 0a 00 13 f1  |...14,11).X.....|
00000f10  8a 31 35 2c 31 31 29 bd  28 58 2b 33 32 29 0d 0a  |.15,11).(X+32)..|
00000f20  0a 12 f1 8a 36 2c 31 34  29 bd 28 58 2b 33 32 29  |....6,14).(X+32)|
00000f30  0d 0a 14 0e f1 8a 31 30  2c 31 34 29 bd 58 0d 0a  |......10,14).X..|
00000f40  1e 13 f1 8a 31 31 2c 31  34 29 bd 28 58 2b 33 32  |....11,14).(X+32|
00000f50  29 0d 0a 28 0e f1 8a 31  34 2c 31 34 29 bd 58 0d  |)..(...14,14).X.|
00000f60  0a 32 13 f1 8a 31 35 2c  31 34 29 bd 28 58 2b 33  |.2...15,14).(X+3|
00000f70  32 29 0d 0a 3c 06 fb 31  0d 0a 46 17 f1 8a 30 2c  |2)..<..1..F...0,|
00000f80  31 29 bd 58 3b 22 3d 22  3b c0 41 24 2c 38 29 0d  |1).X;"=";.A$,8).|
00000f90  0a 50 1d f1 8a 31 31 2c  31 29 bd 28 58 2b 33 32  |.P...11,1).(X+32|
00000fa0  29 3b 22 3d 22 3b c0 42  24 2c 37 29 0d 0a 5a 09  |);"=";.B$,7)..Z.|
00000fb0  f2 42 4c 55 45 0d 0a 64  15 f1 8a 32 2c 31 38 29  |.BLUE..d...2,18)|
00000fc0  22 47 65 6e 6f 74 79 70  65 22 0d 0a 6e 09 f2 43  |"Genotype"..n..C|
00000fd0  59 41 4e 0d 0a 78 1d f1  8a 34 2c 32 30 29 22 41  |YAN..x...4,20)"A|
00000fe0  6c 6c 20 48 65 74 65 72  6f 7a 79 67 6f 75 73 22  |ll Heterozygous"|
00000ff0  0d 0a 82 06 fb 31 0d 0a  8c 15 f1 8a 38 2c 32 32  |.....1......8,22|
00001000  29 bd 58 3b bd 28 58 2b  33 32 29 0d 0a 96 09 f2  |).X;.(X+32).....|
00001010  42 4c 55 45 0d 0a a0 16  f1 8a 32 2c 32 34 29 22  |BLUE......2,24)"|
00001020  50 68 65 6e 6f 74 79 70  65 22 0d 0a aa 09 f2 43  |Phenotype".....C|
00001030  59 41 4e 0d 0a b4 11 f1  8a 34 2c 32 36 29 22 41  |YAN......4,26)"A|
00001040  6c 6c 20 22 0d 0a be 06  fb 31 0d 0a c8 12 f1 8a  |ll ".....1......|
00001050  38 2c 32 36 29 c0 41 24  2c 31 30 29 0d 0a d2 2d  |8,26).A$,10)...-|
00001060  f1 8a 30 2c 32 39 29 22  50 52 45 53 53 20 53 50  |..0,29)"PRESS SP|
00001070  41 43 45 20 42 41 52 20  46 4f 52 20 20 20 20 20  |ACE BAR FOR     |
00001080  20 20 20 20 4d 45 4e 55  22 0d 0a dc 0a f5 fd a5  |    MENU".......|
00001090  3d 33 32 0d 0a f0 05 e1  0d 0a fa 0c dd f2 48 65  |=32...........He|
000010a0  74 64 6f 6d 0d 0b 04 11  ef 31 39 2c 30 2c 34 2c  |tdom.....19,0,4,|
000010b0  30 2c 30 2c 30 0d 0b 0e  09 f2 44 52 41 57 0d 0b  |0,0,0.....DRAW..|
000010c0  18 0b 58 3d 97 28 41 24  29 0d 0b 22 06 fb 31 0d  |..X=.(A$).."..1.|
000010d0  0b 2c 0d f1 8a 31 31 2c  36 29 bd 58 0d 0b 36 12  |.,...11,6).X..6.|
000010e0  f1 8a 31 34 2c 36 29 bd  28 58 2b 33 32 29 0d 0b  |..14,6).(X+32)..|
000010f0  40 0d f1 8a 36 2c 31 31  29 bd 58 0d 0b 4a 0e f1  |@...6,11).X..J..|
00001100  8a 31 30 2c 31 31 29 bd  58 0d 0b 54 0e f1 8a 31  |.10,11).X..T...1|
00001110  31 2c 31 31 29 bd 58 0d  0b 5e 0e f1 8a 31 34 2c  |1,11).X..^...14,|
00001120  31 31 29 bd 58 0d 0b 68  13 f1 8a 31 35 2c 31 31  |11).X..h...15,11|
00001130  29 bd 28 58 2b 33 32 29  0d 0b 72 0d f1 8a 36 2c  |).(X+32)..r...6,|
00001140  31 34 29 bd 58 0d 0b 7c  0e f1 8a 31 30 2c 31 34  |14).X..|...10,14|
00001150  29 bd 58 0d 0b 86 0e f1  8a 31 31 2c 31 34 29 bd  |).X......11,14).|
00001160  58 0d 0b 90 0e f1 8a 31  34 2c 31 34 29 bd 58 0d  |X......14,14).X.|
00001170  0b 9a 13 f1 8a 31 35 2c  31 34 29 bd 28 58 2b 33  |.....15,14).(X+3|
00001180  32 29 0d 0b a4 06 fb 31  0d 0b ae 17 f1 8a 30 2c  |2).....1......0,|
00001190  31 29 bd 58 3b 22 3d 22  3b c0 41 24 2c 38 29 0d  |1).X;"=";.A$,8).|
000011a0  0b b8 1d f1 8a 31 31 2c  31 29 bd 28 58 2b 33 32  |.....11,1).(X+32|
000011b0  29 3b 22 3d 22 3b c0 42  24 2c 37 29 0d 0b c2 09  |);"=";.B$,7)....|
000011c0  f2 42 4c 55 45 0d 0b cc  15 f1 8a 32 2c 31 38 29  |.BLUE......2,18)|
000011d0  22 47 65 6e 6f 74 79 70  65 22 0d 0b d6 09 f2 43  |"Genotype".....C|
000011e0  59 41 4e 0d 0b e0 1c f1  8a 30 2c 32 30 29 22 35  |YAN......0,20)"5|
000011f0  30 25 20 48 6f 6d 6f 7a  79 67 6f 75 73 20 22 0d  |0% Homozygous ".|
00001200  0b ea 1e f1 8a 30 2c 32  31 29 22 35 30 25 20 48  |.....0,21)"50% H|
00001210  65 74 65 72 6f 7a 79 67  6f 75 73 20 22 0d 0b f4  |eterozygous "...|
00001220  06 fb 31 0d 0b fe 11 f1  8a 31 38 2c 32 30 29 bd  |..1......18,20).|
00001230  58 3b bd 58 0d 0c 08 16  f1 8a 31 38 2c 32 31 29  |X;.X......18,21)|
00001240  bd 58 3b bd 28 58 2b 33  32 29 0d 0c 0d 09 f2 42  |.X;.(X+32).....B|
00001250  4c 55 45 0d 0c 12 16 f1  8a 32 2c 32 34 29 22 50  |LUE......2,24)"P|
00001260  68 65 6e 6f 74 79 70 65  22 0d 0c 1c 09 f2 43 59  |henotype".....CY|
00001270  41 4e 0d 0c 26 11 f1 8a  34 2c 32 36 29 22 41 6c  |AN..&...4,26)"Al|
00001280  6c 20 22 0d 0c 30 06 fb  31 0d 0c 3a 12 f1 8a 38  |l "..0..1..:...8|
00001290  2c 32 36 29 c0 41 24 2c  31 30 29 0d 0c 44 2d f1  |,26).A$,10)..D-.|
000012a0  8a 30 2c 32 39 29 22 50  52 45 53 53 20 53 50 41  |.0,29)"PRESS SPA|
000012b0  43 45 20 42 41 52 20 46  4f 52 20 20 20 20 20 20  |CE BAR FOR      |
000012c0  20 20 20 4d 45 4e 55 22  0d 0c 4e 0a f5 fd a5 3d  |   MENU"..N....=|
000012d0  33 32 0d 0c 62 05 e1 0d  0c 6c 0c dd f2 48 65 74  |32..b....l...Het|
000012e0  72 65 63 0d 0c 76 11 ef  31 39 2c 30 2c 34 2c 30  |rec..v..19,0,4,0|
000012f0  2c 30 2c 30 0d 0c 80 09  f2 44 52 41 57 0d 0c 8a  |,0,0.....DRAW...|
00001300  0b 58 3d 97 28 41 24 29  0d 0c 94 06 fb 31 0d 0c  |.X=.(A$).....1..|
00001310  9e 0d f1 8a 31 31 2c 36  29 bd 58 0d 0c a8 12 f1  |....11,6).X.....|
00001320  8a 31 34 2c 36 29 bd 28  58 2b 33 32 29 0d 0c b2  |.14,6).(X+32)...|
00001330  12 f1 8a 36 2c 31 31 29  bd 28 58 2b 33 32 29 0d  |...6,11).(X+32).|
00001340  0c bc 0e f1 8a 31 30 2c  31 31 29 bd 58 0d 0c c6  |.....10,11).X...|
00001350  13 f1 8a 31 31 2c 31 31  29 bd 28 58 2b 33 32 29  |...11,11).(X+32)|
00001360  0d 0c d0 13 f1 8a 31 34  2c 31 31 29 bd 28 58 2b  |......14,11).(X+|
00001370  33 32 29 0d 0c da 13 f1  8a 31 35 2c 31 31 29 bd  |32)......15,11).|
00001380  28 58 2b 33 32 29 0d 0c  e4 12 f1 8a 36 2c 31 34  |(X+32)......6,14|
00001390  29 bd 28 58 2b 33 32 29  0d 0c ee 0e f1 8a 31 30  |).(X+32)......10|
000013a0  2c 31 34 29 bd 58 0d 0c  f8 13 f1 8a 31 31 2c 31  |,14).X......11,1|
000013b0  34 29 bd 28 58 2b 33 32  29 0d 0d 02 13 f1 8a 31  |4).(X+32)......1|
000013c0  34 2c 31 34 29 bd 28 58  2b 33 32 29 0d 0d 0c 13  |4,14).(X+32)....|
000013d0  f1 8a 31 35 2c 31 34 29  bd 28 58 2b 33 32 29 0d  |..15,14).(X+32).|
000013e0  0d 16 06 fb 31 0d 0d 20  17 f1 8a 30 2c 31 29 bd  |....1.. ...0,1).|
000013f0  58 3b 22 3d 22 3b c0 41  24 2c 38 29 0d 0d 2a 1d  |X;"=";.A$,8)..*.|
00001400  f1 8a 31 31 2c 31 29 bd  28 58 2b 33 32 29 3b 22  |..11,1).(X+32);"|
00001410  3d 22 3b c0 42 24 2c 37  29 0d 0d 34 09 f2 42 4c  |=";.B$,7)..4..BL|
00001420  55 45 0d 0d 3e 15 f1 8a  32 2c 31 38 29 22 47 65  |UE..>...2,18)"Ge|
00001430  6e 6f 74 79 70 65 22 0d  0d 48 09 f2 43 59 41 4e  |notype"..H..CYAN|
00001440  0d 0d 52 1e f1 8a 30 2c  32 30 29 22 35 30 25 20  |..R...0,20)"50% |
00001450  48 65 74 65 72 6f 7a 79  67 6f 75 73 20 22 0d 0d  |Heterozygous "..|
00001460  5c 1c f1 8a 30 2c 32 31  29 22 35 30 25 20 48 6f  |\...0,21)"50% Ho|
00001470  6d 6f 7a 79 67 6f 75 73  20 22 0d 0d 66 06 fb 31  |mozygous "..f..1|
00001480  0d 0d 70 1b f1 8a 31 38  2c 32 31 29 bd 28 58 2b  |..p...18,21).(X+|
00001490  33 32 29 3b bd 28 58 2b  33 32 29 0d 0d 7a 16 f1  |32);.(X+32)..z..|
000014a0  8a 31 38 2c 32 30 29 bd  58 3b bd 28 58 2b 33 32  |.18,20).X;.(X+32|
000014b0  29 0d 0d 84 09 f2 42 4c  55 45 0d 0d 8e 16 f1 8a  |).....BLUE......|
000014c0  32 2c 32 34 29 22 50 68  65 6e 6f 74 79 70 65 22  |2,24)"Phenotype"|
000014d0  0d 0d 98 09 f2 43 59 41  4e 0d 0d a2 27 f1 8a 30  |.....CYAN...'..0|
000014e0  2c 32 36 29 22 52 61 74  69 6f 20 31 22 3b c0 41  |,26)"Ratio 1";.A|
000014f0  24 2c 35 29 3b 22 3a 31  22 3b c0 42 24 2c 35 29  |$,5);":1";.B$,5)|
00001500  0d 0d ac 06 fb 31 0d 0d  b6 2d f1 8a 30 2c 32 39  |.....1...-..0,29|
00001510  29 22 50 52 45 53 53 20  53 50 41 43 45 20 42 41  |)"PRESS SPACE BA|
00001520  52 20 46 4f 52 20 20 20  20 20 20 20 20 20 4d 45  |R FOR         ME|
00001530  4e 55 22 0d 0d c0 0a f5  fd a5 3d 33 32 0d 0d d4  |NU".......=32...|
00001540  05 e1 0d 0d de 09 dd f2  48 45 54 0d 0d e8 11 ef  |........HET.....|
00001550  31 39 2c 30 2c 34 2c 30  2c 30 2c 30 0d 0d f2 09  |19,0,4,0,0,0....|
00001560  f2 44 52 41 57 0d 0d fc  0b 58 3d 97 28 41 24 29  |.DRAW....X=.(A$)|
00001570  0d 0e 06 06 fb 31 0d 0e  10 0d f1 8a 31 31 2c 36  |.....1......11,6|
00001580  29 bd 58 0d 0e 1a 12 f1  8a 31 34 2c 36 29 bd 28  |).X......14,6).(|
00001590  58 2b 33 32 29 0d 0e 24  0d f1 8a 36 2c 31 31 29  |X+32)..$...6,11)|
000015a0  bd 58 0d 0e 2e 0e f1 8a  31 30 2c 31 31 29 bd 58  |.X......10,11).X|
000015b0  0d 0e 38 0e f1 8a 31 31  2c 31 31 29 bd 58 0d 0e  |..8...11,11).X..|
000015c0  42 0e f1 8a 31 34 2c 31  31 29 bd 58 0d 0e 4c 13  |B...14,11).X..L.|
000015d0  f1 8a 31 35 2c 31 31 29  bd 28 58 2b 33 32 29 0d  |..15,11).(X+32).|
000015e0  0e 56 12 f1 8a 36 2c 31  34 29 bd 28 58 2b 33 32  |.V...6,14).(X+32|
000015f0  29 0d 0e 60 0e f1 8a 31  30 2c 31 34 29 bd 58 0d  |)..`...10,14).X.|
00001600  0e 6a 13 f1 8a 31 31 2c  31 34 29 bd 28 58 2b 33  |.j...11,14).(X+3|
00001610  32 29 0d 0e 74 13 f1 8a  31 34 2c 31 34 29 bd 28  |2)..t...14,14).(|
00001620  58 2b 33 32 29 0d 0e 7e  13 f1 8a 31 35 2c 31 34  |X+32)..~...15,14|
00001630  29 bd 28 58 2b 33 32 29  0d 0e 88 06 fb 31 0d 0e  |).(X+32).....1..|
00001640  92 17 f1 8a 30 2c 31 29  bd 58 3b 22 3d 22 3b c0  |....0,1).X;"=";.|
00001650  41 24 2c 38 29 0d 0e 9c  1d f1 8a 31 31 2c 31 29  |A$,8)......11,1)|
00001660  bd 28 58 2b 33 32 29 3b  22 3d 22 3b c0 42 24 2c  |.(X+32);"=";.B$,|
00001670  37 29 0d 0e a6 09 f2 42  4c 55 45 0d 0e b0 15 f1  |7).....BLUE.....|
00001680  8a 32 2c 31 38 29 22 47  65 6e 6f 74 79 70 65 22  |.2,18)"Genotype"|
00001690  0d 0e ba 09 f2 43 59 41  4e 0d 0e c4 1a f1 8a 30  |.....CYAN......0|
000016a0  2c 32 30 29 22 31 20 48  6f 6d 6f 7a 79 67 6f 75  |,20)"1 Homozygou|
000016b0  73 20 22 0d 0e ce 14 fb  31 3a f1 8a 31 36 2c 32  |s ".....1:..16,2|
000016c0  30 29 bd 58 3b bd 58 0d  0e d8 22 f2 43 59 41 4e  |0).X;.X...".CYAN|
000016d0  3a f1 8a 30 2c 32 31 29  22 32 20 48 65 74 65 72  |:..0,21)"2 Heter|
000016e0  6f 7a 79 67 6f 75 73 20  22 0d 0e e2 19 fb 31 3a  |ozygous ".....1:|
000016f0  f1 8a 31 36 2c 32 31 29  bd 58 3b bd 28 58 2b 33  |..16,21).X;.(X+3|
00001700  32 29 0d 0e ec 20 f2 43  59 41 4e 3a f1 8a 30 2c  |2)... .CYAN:..0,|
00001710  32 32 29 22 31 20 48 6f  6d 6f 7a 79 67 6f 75 73  |22)"1 Homozygous|
00001720  20 22 0d 0e f6 1e fb 31  3a f1 8a 31 36 2c 32 32  | ".....1:..16,22|
00001730  29 bd 28 58 2b 33 32 29  3b bd 28 58 2b 33 32 29  |).(X+32);.(X+32)|
00001740  0d 0f 00 09 f2 42 4c 55  45 0d 0f 0a 16 f1 8a 32  |.....BLUE......2|
00001750  2c 32 34 29 22 50 68 65  6e 6f 74 79 70 65 22 0d  |,24)"Phenotype".|
00001760  0f 14 09 f2 43 59 41 4e  0d 0f 1e 27 f1 8a 30 2c  |....CYAN...'..0,|
00001770  32 36 29 22 52 61 74 69  6f 20 33 22 3b c0 41 24  |26)"Ratio 3";.A$|
00001780  2c 35 29 3b 22 3a 31 22  3b c0 42 24 2c 35 29 0d  |,5);":1";.B$,5).|
00001790  0f 28 06 fb 31 0d 0f 32  2d f1 8a 30 2c 32 39 29  |.(..1..2-..0,29)|
000017a0  22 50 52 45 53 53 20 53  50 41 43 45 20 42 41 52  |"PRESS SPACE BAR|
000017b0  20 46 4f 52 20 20 20 20  20 20 20 20 20 4d 45 4e  | FOR         MEN|
000017c0  55 22 0d 0f 3c 0a f5 fd  a5 3d 33 32 0d 0f 50 05  |U"..<....=32..P.|
000017d0  e1 0d 0f a0 0b dd f2 54  49 54 4c 45 0d 0f aa 21  |.......TITLE...!|
000017e0  f1 8a 31 30 2c 32 29 22  47 45 4e 45 54 49 43 53  |..10,2)"GENETICS|
000017f0  20 20 43 41 4c 43 55 4c  41 54 4f 52 22 0d 0f b4  |  CALCULATOR"...|
00001800  1f f1 8a 31 31 2c 34 29  22 4d 4f 4e 4f 48 59 42  |...11,4)"MONOHYB|
00001810  52 49 44 20 43 52 4f 53  53 45 53 22 0d 0f be 05  |RID CROSSES"....|
00001820  e1 0d 11 8f 0c dd f2 41  55 54 48 4f 52 0d 11 94  |.......AUTHOR...|
00001830  1c f1 8a 31 33 2c 31 34  29 22 43 6f 70 79 72 69  |...13,14)"Copyri|
00001840  67 68 74 20 31 39 38 35  22 0d 11 9e 21 f1 8a 31  |ght 1985"...!..1|
00001850  31 2c 31 30 29 22 41 75  74 68 6f 72 2d 53 2e 52  |1,10)"Author-S.R|
00001860  2e 57 45 4c 4c 49 4e 47  53 22 0d 11 a8 27 f1 8a  |.WELLINGS"...'..|
00001870  38 2c 31 32 29 22 43 42  49 4f 4c 2e 4d 49 42 49  |8,12)"CBIOL.MIBI|
00001880  4f 4c 2e 50 47 43 45 2e  44 69 70 2e 52 53 41 2e  |OL.PGCE.Dip.RSA.|
00001890  22 0d 11 b2 05 e1 0d 13  88 06 eb 31 0d 13 8d 13  |"..........1....|
000018a0  ef 31 39 2c 31 32 38 2c  34 2c 30 2c 30 2c 30 0d  |.19,128,4,0,0,0.|
000018b0  13 92 09 dd f2 45 4e 44  0d 13 9c 05 db 0d 13 a6  |.....END........|
000018c0  0a f2 54 49 54 4c 45 0d  13 ab 0b f2 41 55 54 48  |..TITLE.....AUTH|
000018d0  4f 52 0d 13 b0 22 f1 8a  39 2c 32 38 29 22 41 20  |OR..."..9,28)"A |
000018e0  53 54 45 50 57 45 4c 4c  20 50 52 4f 44 55 43 54  |STEPWELL PRODUCT|
000018f0  49 4f 4e 22 0d 13 ba 05  e1 0d 17 70 0a dd f2 42  |ION".......p...B|
00001900  4c 55 45 0d 17 7a 06 fb  30 0d 17 84 11 ef 31 39  |LUE..z..0.....19|
00001910  2c 30 2c 34 2c 30 2c 30  2c 30 0d 17 8e 05 e1 0d  |,0,4,0,0,0......|
00001920  17 a2 0a dd f2 43 59 41  4e 0d 17 ac 06 fb 33 0d  |.....CYAN.....3.|
00001930  17 b1 11 ef 31 39 2c 33  2c 30 2c 30 2c 30 2c 30  |....19,3,0,0,0,0|
00001940  0d 17 b6 05 e1 0d ff                              |.......|
00001947
28-04-89/Gencalc.m0
28-04-89/Gencalc.m1
28-04-89/Gencalc.m2
28-04-89/Gencalc.m4
28-04-89/Gencalc.m5