{ Copyright (C) 1981 by Bell Laboratories, Inc., and Whitesmiths Ltd. }
{ help -- print diagnostic for archive }
procedure help;
begin
	error('usage: archive -[cdptux] archname [files...]')
end;