*******************************************************************
      *                                                                 *
      *   PROGRAMA ...: BRCD028A.                                       *
      *   DESCRIPCION : Cambiar la ubicación de la ventana por          *
      *                 medio del mouse.                                *
      *                                                                 *
      *-----------------------------------------------------------------*
      *   SECCION DE ACTUALIZACION                                      *
      *-----------------------------------------------------------------*
      * Fecha       |  Modificación                      | Responsable  *
      *-----------------------------------------------------------------*
      *     /  /                                                        *
      *                                                                 *
      *******************************************************************

     fbrcd028da cf   e             workstn

      *-----------------------------------------------------------------*
      *   Principal                                                     *
      *-----------------------------------------------------------------*

     c                   dow       ' ' = ' '

      *  Mostrar la pantalla

     c                   exfmt     @rf01

      *  Terminar el proceso

     c                   if        (*in03)
     c                   leave
     c                   endif

      *  Verificar si se hizo click con el mouse

     c                   if        (*in12)

      *  Mover la ventana a la posición del cursor

     c                   eval      fil = fil1
     c                   eval      col = col1

      *  Verificar que la posición donde se hizo click este dentro
      *  de la pantalla (24x80)

     c                   if        col > 37
     c                   eval      col = 37
     c                   endif
     c                   if        fil > 17
     c                   eval      fil = 17
     c                   endif

     c                   endif

     c                   enddo

      *  Fin del programa

     c                   eval      *inlr = *on

      *-----------------------------------------------------------------*
      *   Subrutina de inicialización                                   *
      *-----------------------------------------------------------------*
     c     *inzsr        begsr

      *  Posición inicial de la ventana

     c                   eval      fil = 7
     c                   eval      col = 10

     c                   endsr