{ Copyright (C) 1981 by Bell Laboratories, Inc., and Whitesmiths Ltd. }
{ nargs (UCSD) -- return number of arguments }
function nargs : integer;
begin
	nargs := cmdargs
end;