/*SAVE.C›*/›#include "GLOBALS.H";›#define FILEMX struct tempptr›extern FILEMX $(›  DISK *headm, *endm;›$);›extern int getdrive();›extern int addmes();›extern char msg3[], pr0[];›char index[] = "QWK8.DAT";›save()›$(›  DISK *r;›  CONF *rr;›  char f0[64];›  int ib, count;››  strcpy(f0,index);›  ib = getdrive(f0,'w');›  if(ib>0)›  $(›    count = 0;›    r = db->mhead;›    while(r != NULL)›    $(›      count++;›      r = r->dnext;›    $)›    printf("\nSaving to %s\n",f0);›    r = db->mhead;›    printf(ib,"%d\n",count);›    while(r != NULL)›    $(›      printf(ib,"%d\n",r->sector);›      printf(ib,"%c",r->byte);›      printf(ib,"%d\n",r->confn);›      printf(ib,"%c",r->pers);›      printf(ib,"%d\n",r->mesn);›      r = r->dnext;›    $)›    rr = db->lhead;›    printf(ib,"%d\n",db->numc);›    while(rr != NULL)›    $(›      printf(ib,"%d\n",rr->npers);›      printf(ib,"%d\n",rr->nmes);›      printf(ib,"%d\n",rr->hi);›      printf(ib,"%d\n",rr->lo);›      rr = rr->cnext;›    $)›    close(ib);›    printf("\n%s\n",msg3);›    getkey();›  $)›$)›read()›$(›  FILEMX fr;›  char f0[64];›  int ib;››  strcpy(f0,index);›  ib = getdrive(f0,'r');›  if(ib>0)›  $(›    printf("\n%s%s\n",pr0,f0);›    readi(ib,&fr);›    close(ib);›    if(fr.headm != NULL)›      db->mhead = fr.headm;›    printf("\n%s\n",msg3);›    getkey();›  $)›$)›/*function readi()›*/›readi(iocb,f)›int iocb;›FILEMX *f;›$(›  FILEMX frec;›  DISK rec;›  CONF *rov;›  char w[12], *p;›  int j, k;›  int count;››  frec.headm = NULL;›  p = w;›  cgets(p,iocb);›  count = val(p);›  for(j=0;j<count;j++)›  $(›    cgets(p,iocb);›    rec.sector = val(p);›    rec.byte = cgetc(iocb);›    cgets(p,iocb);›    rec.confn = val(p);›    rec.pers = cgetc(iocb);›    cgets(p,iocb);›    rec.mesn = val(p);›    k = addmes(rec.sector, rec.confn, rec.mesn, rec.byte, rec.pers, &frec);›  $)›  (*f).headm = frec.headm;››  rov = db->lhead;›  cgets(p,iocb);›  count = val(p);›  for(j=0;j<count;j++)›  $(›    cgets(p,iocb);›    rov->npers = val(p);›    cgets(p,iocb);›    rov->nmes = val(p);›    cgets(p,iocb);›    rov->hi = val(p);›    cgets(p,iocb);›    rov->lo = val(p);›    rov = rov->cnext;›  $)›$)›