function showtype
global proplist typevar
s = size(proplist); ss = max(size(typevar));
if s(1) > ss(1)
  disp('Oops! Not all variable types defined.  Here''s what we have:')
  for i = 1:ss(1)
    disp([deblank(proplist(i,:)) ' ' num2str(typevar(i))])
  end
  for i = ss(1)+1:s(1)
    disp(deblank(proplist(i,:)))
  end
else
  typevar = typevar(1:s(1));
  for i = 1:s(1)
    disp([deblank(proplist(i,:)) ' ' num2str(typevar(i))])
  end
end
