%SAVEALL save all open plots to disk as -psc files

prompt = {'Enter a file name base:'};
dlg_title = 'Saving Plots to Disk';
num_lines= 1;
def     = {'myplot'};
file  = inputdlg(prompt,dlg_title);
%
    % ------ save existing plots
    %
    file = file{1};
    t=get(0,'children');
    if isempty(t),
        disp('No existing plots to save');
    else
        for i=1:max(t),
            % construct a name
            pfile = sprintf('%s%d.ps',file,i);
            buf=['print -f',int2str(i),' -dpsc ',pfile];
            eval(buf)
            disp([get(t(i),'name'), 'is saved via: '])
            disp(buf)
        end
    end