PROCEDURE PAGE
to air
tto "pump onfor 150
end

to button
air
tto "lift up onfor 3 tto [motorh pump] setright onfor 60
second
drop?
air
robot
end

to second
;This is what happens second after the lift goes up.
waituntil [angle5 < 1] tto "hand close onfor 3 wait 20 tto "lift down onfor 3
end

to drop?
waituntil [angle5 > 2.5] tto "soundd onfor 5 wait 30 tto "hand open onfor 3 wait 10
end

to grab
tto "rhand rclose onfor 4
end

to drop
tto "rhand ropen onfor 4
end
 

to rget
tto "rarm get on waituntil [angle8 > 25.5] off
end

to rput
tto "rarm put on waituntil [angle8 < 2] off
end

to robot
tto "motorh onfor 30
grab rput drop rget
tto "motorh onfor 180
end

to noise
;can this start a comment? YES
tone 60 5 ;This is how to make a comment
end
 Back