function ep1oasislook(NumOfDays)
% EP1OASISLOOK - Opens the file /oasis/e2qpaq/ep1/oasis and plots temps and
% voltages

% Brian Schlining
% 29 Dec 1998

% Prompt for input if no input arguments are specified
if ~nargin
   NumOfDays = str2num(input('How many days of data would you like to view? ','s'));
end

% Set the path to the data file depending on what type of machine this function is run from
switch computer
case 'PCWIN' % Assumes the pwd is /oasis/epqac/brian/
   %FileLoc = ['..\ep1\oasis'];
   FileLoc = ['//tsunami.shore.mbari.org/oasis/eqpac/ep1/oasis'];
otherwise    % Assigns an absolute path in UNIX
   FileLoc = ['/hosts/tsunami/oasis/eqpac/ep1/oasis'];
end

loc = '0 155W';

% Open and read the file
X    = readeqpac(FileLoc, NumOfDays);

% Create the graph
figH = figure;
set(figH,'Name','OASIS diagnostics')
plot(X(:,1),X(:,2:4));
legend('Can temp [C]','OASIS battery [v]', 'ARGOS battery [v]');
ylabel('OASIS diagnostics');
xlabel('Date');
title(['OASIS diagnostics at ' loc])
set(gca,'XLim',[min(X(:,1)) now])
if NumOfDays < 50
   dtick = 6;
else
   dtick = 3;
end

datetick('x',dtick)
setfontsize(7)