Ckab «øW ùÿÿÿL#@ [ÿÿÿÿÿÿÿCto main make "pos 0 resetrotation 5 resetrotation 6 repeat 1 [ make "stop :pos-10 addbrick push2 push1 push3 push4 position push2a squash unsquash push2b push1 push3 push4 make "pos :stop ] retract end to push1 tto "Pusher1 setpower 5 setright onfor(15) setleft onfor(15) off end to push2 tto "Pusher2 setpower 8 setleft onfor(30) setright onfor(30) off end to push2a tto "Pusher2 setpower 8 setleft onfor(20) setright onfor(5) off end to push2b tto "Pusher2 setpower 8 setleft onfor(15) setright onfor(30) off end to push3 tto "Pusher3 setpower 4 setright onfor(85) setleft onfor(85) off end to push4 tto "Pusher4 setpower 4 setright onfor(77) setleft onfor(77) off end to push push1 push2 push3 push4 end to addbrick tto "Brickstore setleft on Waituntil [Bricks = :stop] off setright onfor(1) end to addplate tto "Platestore setleft on Waituntil [Plates = :stop] off setright onfor(1) end to retract tto "Brickstore setright on Waituntil [Bricks >= 0] off tto "Platestore setright on Waituntil [Plates >= -1] off end to squash tto "squeezer setright on Waituntil [squashfeed > 44] off end to unsquash tto "squeezer setleft onfor(50) end to position tto "Positioner setleft onfor(12) addplate tto "Positioner setright onfor(12) end to rel setleft onfor(12) endBricksPlates SquashfeedPusher1 BrickStore Platestore PositionerPusher2SqueezerPusher3Pusher4Page1Page1ÿÿÿE