Clipper/FiveWin - Cuantos ficheros tengo abiertos?

FUNCTION MAIN()

   LOCAL nTablas

   USE Tabla1   NEW

   USE Tabla2   NEW

   nTablas := ContarAbiertas()

   ? nTablas // Para este ejemplo, te va a mostrar: 2

   Inkey(0)

RETURN NIL

 //.....................................................................................  

FUNCTION ContarAbiertas()

   LOCAL nI

   LOCAL nCant := 0

   FOR nI := 0 TO 250

      SELECT (nI)

      IF Used()

         // ? ALIAS( nI ) <- te muestra el nombre de la tabla.

         nCant++

      ENDIF

   NEXT

RETURN nCant