% FILENAME : LD_CASE.M
% BY : RENO CIPOLLA
% DATE : January 1995
% Version 2.0
% COPYRIGHT 1995
%  This program is called by MACTUNE  to load a previously 
%  saved workspace
%**************************************************************


while 1
 disp('')
 prevcase = input(' Enter file you wish to load (eg. filename.mat): ','s');
 if isempty(prevcase), break; end
    
 if (exist(prevcase)) >= 2
    disp([' LOADING.... ', prevcase])        
    eval(['load ',prevcase])
    disp('  ')
    pause (3);
    break
 else

 
     disp(' ') 
     disp(' ') 
     disp(' File does not exist, press enter to continue ... ')
     pause
     break
 end   
end
