#! /bin/csh -f
#
# Copyright (C) 1989, Digital Equipment Corporation
# All rights reserved.
# See the file COPYRIGHT for a full description.
#
# Last Modified On Thu Apr 12 11:09:56 1990 By muller
#      Modified On Mon Feb 26 10:36:43 1990 By kalsow



set files = ()
set options = ()

while (${#argv} > 0)
  switch ($1)
    case -*:
      set options = (${options} $1)
      breaksw
    case *:
      set files = (${files} $1)
      breaksw
    endsw
  shift
end

cd .SRC

chmod -w $files
co -u $options $files
