void send_net(net_header_rec *nh, unsigned int *list, char *text)
{
  int f;
  char s[100];

  sprintf(s,"%sP1.NET",syscfg.datadir);
  f=open(s,O_RDWR | O_BINARY | O_CREAT, S_IREAD | S_IWRITE);
  lseek(f,0L,SEEK_END);
  if (!list)
    nh->list_len=0;
  if (!text)
    nh->length=0;
  if (nh->list_len)
    nh->tosys=0;
  write(f,(void *)nh,sizeof(net_header_rec));
  if (nh->list_len)
    write(f,(void *)list,2*(nh->list_len));
  if (nh->length)
    write(f,(void *)text,nh->length);
  close(f);
}