'Topic: DB is improving, what next?
'PY
'hairy alga
'*******
cond
*50 1 =
start
520 216 rnd add .aimdx store
50 inc
stop
cond
*50 0 =
start
25 .tie store
50 inc
stop
cond
*.nrg 4000 >
start
50 .repro store
stop
cond
*.nrg 1000 >
*.eye5 0 !=
start
25 .tienum store
-1 .tieloc store
100 .tieval store
stop
end
'Devincio Paraciticus
'***************
cond
*50 20 =
start
628 .aimdx store
1 50 store
stop
cond
*.eye5 35 >
*.refeye 1 =
*50 0 =
start
25 .tie store
20 50 store
stop
cond
*50 1 =
start
0 50 store
stop
cond
eye5 0 !=
start
2 .up store
stop
cond
start
10 rnd 51 store
40 .aimdx store
stop
cond
*51 1 =
start
2 .up store
stop
cond
*.nrg 10000 >
start
10 .repro store
1 50 store
stop
cond
*.eye5 50 >
start
stop
end