Read me(Does anybody ever read these things?)

Description
Solves the Hardy Weinberg Equation just enter the amount of homozygous recessives (or dominants) and it solves it for you

qq the recessives
2pq heterozygous organisms
PP the dominants

displays the value and the percent of the population that has that genotype

Source code for those unlucky ones
:Input "qq IN POPULATION?",qq
:sqrt(qq) sto q
:1-q sto P
:P*P sto PP
:1-(PP+qq) sto Pq
:ClLCD
:Outpt(1,1,"NAME"
:Outpt(1,10,"VAL"
:Outpt(1,20,"%"
:Outpt(2,1,"qq="
:Outpt(2,8,qq
:Outpt(2,16,100qq
:Outpt(3,1,"2pq="
:Outpt(3,9,Pq
:Outpt(3,17,100Pq
:Outpt(4,1,"PP="
:Outpt(4,8,PP
:Outpt(4,16,100PP
:Disp qq
:Disp Pq
:Disp PP