/*UTFL.C›*/›#include "GLOBALS.H";›extern char msg1[], msg2[];›char d6[] = "Which drive#? <Return>= D1:";›dodir()›$(›  int ib;›  char ff[64],cx;››  printf("\n%s",d6);›  if((cx = getkey()) == '\n')›    cx = '1';›  strcpy(ff,"*.*");›  setdrive(ff,cx);›  printf("\n%s\n",ff);›  closeall();›  if((ib=copen(ff,'d'))<1)›    printf("\nCan't open %s\n",ff);›  else›  $(›    while(cgets(ff,ib)>0)›      cputs(ff,0);›    close(ib);›  $)›  printf("\n%s",msg1);›  getkey();›$)›char d2[] = "ม Abort  า Retry";›int getdrive(ff0,c)›char *ff0, c;›$(›  char cx, f0[64];›  int flag,ib;››  strcpy(f0,ff0);›  printf("\n%s\n",d6);›  if((cx = getkey()) == '\n')›    cx = '1';›  setdrive(f0,cx);›  strcpy(ff0,f0);›  flag = 1;›  while(flag)›  $(›    closeall();›    if((ib=copen(f0,c))<1)›    $(›      printf("\nCan't open %s\n",f0);›      printf("\n%s\n",d2);›      cx = toupper(getkey());›      switch(cx)›      $(›        case 'A':›          flag = 0;›        break;›        case 'R': default: ; break;›      $)›    $)›    else flag = 0;›  $)›  return(ib);›$)›setdrive(fname,drivenum)›char *fname;›char drivenum;›$(›  bump(fname,3,0);›  fname[0] = 'D';›  fname[1] = drivenum;›  fname[2] = ':';›$)›bump(string,n,ptr)›char *string;›int n, ptr;›$(›  if(string[ptr] != '\0' && string[ptr] != '\n')›    bump(string,n,ptr+1);›  string[ptr+n]=string[ptr];›$)›nexists(rx)›int rx;›$(›  CONF *rov;›  int flag;››  flag = 0;›  rov = db->lhead;›  while((rov != NULL) && !flag)›  $(›    if(rx == rov->cnum)›      flag = 1;›    else rov = rov->cnext;›  $)›  return(flag);›$)›getcnam(rx)›int rx;›$(›  CONF *rov;›  int flag;››  flag = 1;›  rov = db->lhead;›  while((rov != NULL) && flag)›  $(›    if(rx == rov->cnum)›      flag = 0;›    else›      rov = rov->cnext;›  $)›  return(rov);›$)›getsdata(r,p,pos,lim)›char *r, *p;›int pos, lim;›$(›  int j;››  for(j=0;j<lim;j++)›    r[j] = p[j+pos];›  r[lim] = '\0';›$)›getint()›$(›  char buf[8], *ptr;›  int cx;››  ptr = buf;›  getstr(ptr,7);›  cx = val(ptr);›  return cx;›$)›char  x1[] = "Select conference";›char  x3[] = "Not a valid conference number";›getconfn()›$(›  int cn;››  printf("\n%s #: ",x1);›  cn = getint();›  if(!nexists(cn)) ›  $(›    printf("\n%s\n%s\n",x3,msg2);›    cn = -1;›    getkey();›  $)›  return cn;›$)›char  y1[] = "Enter message # -->";›char  y3[] = "Out of range";›char  Y3[] = "Range is";›getmesn(lo,hi)›int lo,hi;›$(›  int cn;››  printf("\n%s %d to %-3d",Y3,lo,hi);›  printf("\n%s ",y1);›  cn = getint();›  if((cn < lo) || (cn > hi))›  $(›    printf("\n%s %d to %d\n%s",y3,lo,hi,msg2);›    cn = -1;›    getkey();›  $)›  return cn;›$)›getstr(r,lim)›char *r;›int lim;›$(›  char c;›  int j, k;››  j = k = 0;›  while(((c=getkey()) != 155) && (j < lim))›  $(›    if(c >= 32 && c <= 127)›    $(›      switch(c)›      $(›        case 126:›        if(j>k)›        $(›          putchar(c);›          j--;›        $)›        break;›        case 92: case 96: case 123: case 125:›          ;›        break;›        default:›        $(›          putchar(c);›          r[j++] = c;›        $)›        break;›      $)›    $)›  $)›  putchar('\n');›  r[j] = '\0';›$)›