while true
      x = popuplist(10,31,13,"Active˙fitters ˙All˙Fitters˙","Select by",1,0)
      if x = 0
        ppl = ptstr
        while true
          if ppl = "Active˙fitters"
            x = ChooseFitter("v")
            if x = -1
              exit while
            end if
          else
            x = ChooseFitter("a")
            if x = -1
              exit while
            end if
          end if
        end while
      else
        ReturnToMenu()
      end if
    end while