Quite BASIC -- Mendelian Inheritance

Output

Canvas

BASIC Program

REM Mendelian Inheritance
REM Quite BASIC Biology Project
REM 
CLS
REM A is an array containing a generation of flowers
REM Each element, for example A[17] is a string that's one of:
REM "RR", "Rw", "wR", or "ww"
REM The two letters correspond to the two genes controlling flower color 
ARRAY A
REM First we populate the initial generation
FOR I = 0 TO 99
IF I < 50 THEN LET A[I] = "ww" ELSE LET A[I] = "RR"
NEXT I
LET G = 0
REM B is the next generation of flowers
ARRAY B
PRINT "Generation ";
PRINT G
REM Draw flowers on the canvas
GOSUB 5000
REM Breed the next generation!
FOR I = 0 TO 99
REM Randomly pick two flowers: M and F
LET M = A[ROUND(RAND(99) + 0.5)]
LET F = A[ROUND(RAND(99) + 0.5)]
REM Randomly select the two genes from M and F
IF RAND(1) > 0.5 THEN LET B[I] = LEFT(M, 1) ELSE LET B[I] = LEFT(F, 1)
IF RAND(1) > 0.5 THEN LET B[I] = B[I] + RIGHT(M, 1) ELSE LET B[I] = B[I] + RIGHT(F, 1)
NEXT I
REM Move the new generation to the array A
FOR I = 0 TO 99
LET A[I] = B[I]
NEXT I
LET G = G + 1
GOTO 2200
REM Subroutine -- Draw 100 flowers from the A array
LET R = 0
LET W = 0
FOR I = 0 TO 9
FOR J = 0 TO 9
REM Red is dominant so only "ww" results in white flowers
IF A[I*10 + J] = "ww" THEN GOTO 5080
PLOT I, J, "red"
LET R = R + 1
GOTO 5100
PLOT I, J, "white"
LET W = W + 1
NEXT J
NEXT I
PRINT "Red: ";
PRINT R;
PRINT "  White: ";
PRINT W
RETURN
      
  

Controls

Line:

Expr:

Value:

>QUITE BASIC
>

fun and learning for smart kids

nostalgia for the rest of us

>QUITE BASIC>

fun and learning for smart kids

nostalgia for the rest of us

>QUITE BASIC
>