---

 DEVPOS() 
 Desplaza el cursor o el cabezal de impresión a una nueva posición, según el
 dispositivo actual
------------------------------------------------------------------------------
 Sintaxis

     DEVPOS(<nFila>, <nCol>) --> NIL

 Argumentos

     <nFila> y <nCol> son las nuevas posiciones de fila y columna
     del cursor o del cabezal de impresión.

 Devuelve

     DEVPOS() devuelve siempre NIL.

 Descripción

     DEVPOS() es una función de entorno, que sitúa el cursor en la pantalla
     o desplaza el cabezal de impresión, en función del valor actual de SET
     DEVICE. Si se ha establecido SET DEVICE TO SCREEN, DEVPOS() actúa igual
     que SETPOS(): desplaza el cursor a la situación especificada y
     actualiza ROW() y COL() con la nueva posición del cursor.

     Si se ha establecido SET DEVICE TO PRINTER, DEVPOS() desplaza el
     cabezal de impresión. Para ello, envía cierto número de caracteres de
     salto de línea y/o de salto de página a la impresora, haciendo avanzar
     el cabezal de impresión a la nueva posición. Si el valor de SET MARGIN
     actual es mayor que cero, dicho valor se añade a <nCol>. El cabezal de
     impresión se desplaza a la posición específica de <nFila> y <nCol> y
     PROW() y PCOL() se actualizan. Si <nFila> o <nCol> son menores que los
     valores PROW() y PCOL() actuales, el cabezal de impresión se desplaza
     según estas reglas:

     ■ Si <nFila> es menor que PROW(), se envía un EJECT (CHR(12))
        automático a la impresora seguido por el número de caracteres de
        salto de línea (CHR(10)) necesarios para situar el cabezal de
        impresión en la <nFila> de la página siguiente.

     ■ Si <nCol>, incluyendo el valor de SET MARGIN actual, es menor
        que PCOL(), se envían a la impresora un carácter de retorno de carro
        (CHR(13)) y el número de caracteres de espacio necesarios para
        situar la cabeza de impresión en <nCol>.

     Si desea evitar este comportamiento, utilice SETPRC() para asignar los
     nuevos valores a PROW() y PCOL() antes de utilizar DEVPOS(). Consulte
     la descripción de SETPRC() si desea más información.

     Si la salida a la impresora se redirige a un fichero utilizando el
     mandato SET PRINTER, DEVPOS() actualiza el fichero en lugar de la
     impresora.

 Ficheros   La biblioteca asociada es CLIPPER.LIB.
 To download this example - click here.

 See Also:
	@...SAY
	DEVOUT()
	PCOL()
	PROW()
	SET DEVICE

---