10 '*Mendelian inheritance
20 CLV:CLS
30 SRND TICK()+ANA(2)
40 ?"*P       (AA)x[aa]"
50 ?:?
60 WAIT 60
70 ?"*F1      (Aa)x(Aa)"
80 ?:?
90 WAIT 60
100 ?"*F2 (AA) (Aa) (aA) [aa]"
110 GSB 270
120 '@LOOP
130 IF !BTN(SPACE) CONT
140 BEEP
150 M=RND(2)
160 F=RND(2)
170 LC 10+M,4:?CHR$(227)
180 LC 15+F,4:?CHR$(227)
190 WAIT 30
200 D=M*2+F
210 [D]=[D]+1
220 GSB 270
230 WAIT 30
240 LC 10+M,4:?" "
250 LC 15+F,4:?" "
260 GOTO 120
270 '@PRTF2
280 A=0
290 FOR I=0 TO 3
300 LC 5+I*5,7:?[I]
310 A=A+[I]
320 NEXT
330 B=[3]
340 A=A-B
350 LC 9,9:?"(";A;")"
360 LC 19,9:?"[";B;"]"
370 RTN