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