arguments = getarguments (invo_name, argc, argv, 1);
argp = arguments;
arguments = getarguments (invo_name, argc, argv, 1);
argp = arguments;
if (errno != ENOENT)
adios (file, "error on file");
cp = concat ("Create file \"", file, "\"? ", NULL);
if (errno != ENOENT)
adios (file, "error on file");
cp = concat ("Create file \"", file, "\"? ", NULL);