#pragma TextEncoding = "Windows-1252"
#pragma rtGlobals=3		// Use modern global access method and strict wave access.
\\-Procedure 1:

\\Save graphs with their file "Name"
\\Will Override 

function SaveAllGraphsN()
    int NGraphs, i
    string graphList, currWindow
    
    GraphList = WinList("*", ";", "WIN:1")
    NGraphs = ItemsInList(GraphList)
    PathInfo home
    NewPath/C/O/Q graphs, S_path + "graphs:"
    
    for (i = 0; i < NGraphs; i += 1)
        currWindow = StringFromList(i, graphList)
        GetWindow $currWindow, wtitle
        SavePICT/O/E=-5/P=graphs/WIN=$currWindow as currWindow + ".png"
        endfor
end
------------------------------------------------------------------------------------------------------

\\-Procedure 2:

\\Save graphs with their file "Title" and ask for new name if it is repeated
\\make sure not having "/" and "Parenthesis" in your Title
\\if you are sure you don't have same titles, can use \O flag in the SavePICT line for overriding

function SaveAllGraphsT()
    int NGraphs, i
    string graphList, currWindow
    
    GraphList = WinList("*", ";", "WIN:1")
    NGraphs = ItemsInList(GraphList)
    PathInfo home
    NewPath/C/O/Q graphs, S_path + "graphs:"
    
    for (i = 0; i < NGraphs; i += 1)
        currWindow = StringFromList(i, graphList)
        GetWindow $currWindow, wtitle
        SavePICT/E=-5/P=graphs/WIN=$currWindow as CleanUpName(s_value, 1) + ".png"
    endfor
end