Para0001.Mod   Puts a color box around transfers /w indicate
Parapuke #1 @18251
Fri Jan 29 10:02:56 1993
       ีอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออธ
       ณ Mod Name: Para0001.mod                   Author: Parapuke etal  ณ
       ณ Difficulty: Cut and paste (easy)         Files : BBS.C          ณ
       ณ WWIV Vesion: 4.22                        Date  : 01-29-93       ณ
       ณ Description:  Places a colored box around your Transfer Section ณ
       ณ               along with the nunber of files in that section.   ณ
       ณ               Also has indicator to show your current directory.ณ
       ิอออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออออพ

This mod is to start the conversion of earlier mods that I have had success
with to mods which are easily usable by the sysops using WWIV v4.22.  This
is primarily a cosmetic modification that Russ Hasslage has asked for that
he saw on my system.  With the addition of the external strings, I was
running into some difficulty on just how to place this so came up with the
idea of simply doing a cut and paste of the entire void dirlist(void).  In
addition, I have not removed the color codes so change the colors to suit
your needs or desires.....

As for who exactly to credit for the original mods, I really couldn't say.
I have had this one since version 4.12 and it continues to work for me...

Now, lets begin.

Back up your source code!!!

Next, cut out the Dirlist(void) from your BBS.C source and replace it with
the following.  Compile and admire.

***************************Cut Here***********************************
void dirlist(void)
{
  int i,i1,i2,abort;
  char s[120],s1[150];

  abort=0;
  nl();
  pla(" 5Num  7Directory Name                             2Files",&abort);
  pla("3ษออออหออออออออออออออออออออออออออออออออออออออออออหออออออป ",&abort);
  i=0;
  while ((i<num_dirs) && (udir[i].subnum!=-1)) {
    dliscan1(udir[i].subnum);
    strcpy(s,"3บ 5");
    strcat(s,udir[i].keys);
    s[8]=0;
    if (s[7]==0)
      s[8]=32;
    if (udir[i].subnum<=9)
      strcat(s," ");
    strcat(s," 3บ 1");
    strcat(s,directories[udir[i].subnum].name);
    i2=56-(strlen(s));
    for (i1=0; i1<i2;i1++)
      strcat(s," ");
    strcat(s,"3บ2");
    sprintf(s1,"%53s %4d 3บ",s,numf);
    if (strcmp(udir[curdir].keys,udir[i].keys)==0)
    strcat(s1," 6< Current directory");
    pla(s1,&abort);
    closedl();
    i++;
    }
  pla("3ศออออสออออออออออออออออออออออออออออออออออออออออออสออออออผ ",&abort);
  if (i==0)
   pla("6None.",&abort);
}
********************************end cut and paste**************************