function yn = isvms()
%ISVMS  True for the VMS version of MATLAB.
%   ISVMS returns 1 for VMS versions of MATLAB and 0 otherwise.

%   Copyright (c) 1984-98 by The MathWorks, Inc.
%   $Revision: 1.5 $  $Date: 1997/11/21 23:32:04 $

yn = 0;
cname = computer;
if (length (cname) >= 7)
   % Check cname(4:7) == '_VMS', this covers VAX_VMSxx as well as AXP_VMSxx.
   if strcmp(cname(4:7),'_VMS')
       yn = 1;
   end
end
yn = logical(yn);
