›/* delete a file */›int delete(name)›char * name;›$(›  char buf[80];››  fn_default(name, 0, buf);›  strcat(buf, "\n");›  return(fdelete(buf));›$)››