/*PROCESS.C›*/›#define MAXL 133›#define SX struct savex›SX $(›  int sib;›  char scx;›$);›extern int sutil();›extern int getstr();›extern int columns;›char zzz[] = ">- More -<";›process(ib,pflag,rt,ii,cnt)›int ib,pflag;›char *rt;›int ii, cnt;›$(›  char *hptr, *ptr, *rptr;›  char buff[MAXL], cc;›  int i, j, k, count, n, flag, r, m;›  int x, xx, sp, a;››  count = cnt;›  i = ii;›  rptr = rt;›  m=125;›  while((n = find(rptr,i,m)) >=0)›    rptr[n] = ' ';›  flag = r = 0;›  while((n=find(rptr,i,'γ')) >= 0)›  $(›    hptr = buff;›    m = n;›    rptr[n] = '\0';›    j = strlen(rptr+r);›    move(rptr+r,hptr,j+1);›    if(j > columns)›    $(›      a = x = 0;›      sp = -1;›      while(a <= j)›      $(›        if(x == columns)›        $(›          if(sp >= 0)›          $(›            cc = hptr[sp+1];›            hptr[sp] = '\0';›            a = a-(columns-sp) +1;›            xx = sp+1;›          $)›          else›          $(›            cc = hptr[x];›            hptr[x] = '\0';›            xx = x;›          $)›          if(flag)›          $(›            printf(ib,"%s",hptr);›            flag = 0;›          $)›          else printf(ib,"\n%s",hptr);›          if((strlen(hptr) == columns) && !pflag)›            flag = 1;›          count++;›          hptr += xx;›          hptr[0] = cc;›          sp = -1;›          x = 0;›          if((count >= 22) && !pflag)›          $(›            printf("\n%s",zzz);›            getkey();›            count = 0;›          $)›        $)›        else›        $(›          if(hptr[x] == ' ')›            sp = x;›          x++;›          a++;›        $)›      $)›    $)›    if(flag)›    $(›      printf(ib,"%s",hptr);›      flag = 0;›    $)›    else printf(ib,"\n%s",hptr);›    if((strlen(hptr) == columns) && !pflag)›      flag = 1;›    count++;›    if((count >= 22) && !pflag)›    $(›      if(flag) flag = 0;›      else printf("\n");›      printf("%s",zzz);›      getkey();›      count = 0;›    $)›    r += j;›    r++;›  $)›  if(pflag) printf(ib,"\n");›  rptr[m+1] = '\n';›$)›char bprt[] = "Print to Πrinter, Δisk, Αbort\nSelect: ";›char bprs[] = "Input filename\n--> ";›browsep(sptr)›char *sptr;›$(›  SX sxp;›  char cx, f0[64];›  int ib, j;››  printf("\n%s",bprt);›  cx = toupper(getkey());›  if(cx == 'A') return 0;›  else if(cx == 'P')›  $(›    strcpy(sptr,"P:");›    if((ib = copen(sptr,'w'))<1)›      return 0;›    else return ib;›  $)›  else›  $(›    printf("\n%s",bprs);›    sptr = f0;›    getstr(sptr,63);›    j = sutil(&sxp,sptr);›    if(j <= 0) return 0;›    else return sxp.sib;›  $)›$)›