EXAMPLE

/* list of file info blocks, two columned, name and size */

LONG __asm dispfunc(_a2 char **array,_a1 struct FileInfoBlock *fib)
{
   static char buf1[20],buf2[20];

   if (fib->fib_EntryType<0)
     sprintf(buf2,"\33r%ld",fib->fib_Size);
   else
     strcpy(buf2,"\33r(dir)");

   sprintf(buf1,"%ld",array[-1]);   // get the line number.

   *array++ = buf1;
   *array++ = fib->fib_FileName;
   *array   = buf2;

   return(0);
}