function options_menu(nvars,species,iterations,ninst,AllInst,clims,DiffMatrix,trials)

option = 1;
while option ~= 5
    disp('1. Time plot')
    disp('2. Make movie')
    disp('3. Migration event images')
    disp('4. Close all figures')
    disp('5. Exit program')
    option = input('Pick an option: ');

    if option == 1
      [option] = make_plot(nvars,species,iterations,ninst,AllInst,trials);

    elseif option == 2
        make_movie(ninst,clims,AllInst,nvars,species,iterations)
        
    elseif option == 3
       FinalValues(nvars,DiffMatrix,species,iterations,clims)
       
    elseif option == 4
        close all;
    end
end