def ibody 51
def cycle 52

cond
*.robage 1 =
*.eye5 60 <
start
1 .ibody store
942 .tieang1 store
314 .tieang2 store
300 .tielen1 store
300 .tielen2 store
stop

cond
*.ibody 1 =
*.numties 2 <
start
20 .repro store
stop

cond
*.robage 0 =
*.eye5 60 >
start
.tie inc
stop

cond
*.ibody 1 =
*.fixed 0 =
start
628 .tieang1 store
628 .tieang2 store
.cycle inc
stop

cond
*.cycle 50 >
start
50 .fixpos store
0 .cycle store
stop

cond
*.fixed 0 >
start
0 .tieang1 store
0 .tieang2 store
.fixpos dec
stop

end