10 LET Q = .01
20 PRINT "IN GENERATION", "GENE FREQENCY IS"
30 FOR G = 0 TO 30
40 PRINT G, Q
50 LET Q = Q / (1 + Q)
60 NEXT G
70 END