' Hairy algae
'******************
cond
*.numties 2 <
*.eye5 35 >
*.refaimdx 1 =
start
30 .tie store
stop
cond
*.robage 1 =
start
500 256 rnd add .aimdx store
stop
cond
*.numties 1 =
*.eye5 0 =
start
90 .sharenrg store
stop
cond
*.nrg 3000 >
start
80 .repro store
stop
cond
*.numties 0 >
start
30 .readtie store
stop
cond
*.robage *.trefage <
start
90 .sharenrg store
stop
end