cond
start
1221 535 store
24 999 store
*.nrg *.body 10 mult sub .strbody store
*.refxpos *.refypos angle .setaim store
*.memval 24 sub sgn abs 41 add .tie store
1000 .sharenrg store
0 .sharewaste store
41 .deltie store
100 .fixlen store
*.memval .dn store
*.nrg 5000 sub sgn 1 add sgn 50 mult .repro store
999 .memloc store
1 rnd 1 add 2 mult 3 sub *.thisgene add .delgene store
stop