on mousedown
  set the member of sprite 2 to member "sliderArmed"
  set offsetH to (the mouseH - the locH of sprite 2)
  set distFromLeftH to (the mouseH + 1 - the left of sprite 2)
  set distFromRightH to (the right of sprite 2 + 1 - the mouseH)
  set grooveWidth to (the right of sprite 1 - the left of sprite 1)
  set sliderWidth to (the right of sprite 2 - the left of sprite 2)
  set firstAnimCastMem to 1
  set lastAnimCastMem to 21

  repeat while the stillDown
    if (the mouseH > the left of sprite 1 + distFromLeftH) and
       (the mouseH < the right of sprite 1 - distFromRightH) then
      set the locH of sprite 2 to (the mouseH - offsetH)
      set the memberNum of sprite 3 to
        1 + integer((lastAnimCastMem - firstAnimCastMem + 1)
        *(the left of sprite 2 - the left of sprite 1)
        /grooveWidth)
      updateStage
    else if (the mouseH <= the left of sprite 1 + distFromLeftH) then
      set the locH of sprite 2 to
        the left of sprite 1 + integer(sliderWidth / 2) + 2
      set the memberNum of sprite 3 to firstAnimCastMem
      updateStage
    else if (the mouseH >= the right of sprite 1 - distFromRightH) then
      set the locH of sprite 2 to
        the right of sprite 1 - integer(sliderWidth / 2) - 2
      set the memberNum of sprite 3 to lastAnimCastMem
      updateStage
    end if
  end repeat

  set the member of sprite 2 to member "slider"
end 

Ett Lingoprogram för dynamisk återmatning baserat på användarens musrörelser
(se illustrationen till höger). Programmet är skrivet i Director 5.