   rem ccall.stat
*
*
*
*
*
*
*
*
*
$catalog local
*
      $include ccall.common

      if c.libnames = '' then
         display 'No libraries loaded.'
      end else
         for i = 1 to dcount(c.libnames,@am)
            if i = 1 then
               display 'Libraries:' 'l#20' :
            end else
               display '' 'l#20' :
            end
            display c.libnames<i>
         next i
         if c.fnnames = '' then
            display 'No functions loaded.'
         end else
            for i = 1 to dcount(c.fnnames,@am)
               if i = 1 then
                  display 'Functions:' 'l#20' :
               end else
                  display '' 'l#20' :
               end
               display c.fnnames<i>
            next i
         end
      end
   end
