Clipper/FiveWin - Formatar campos de 255 caracteres

Pido, por favor, para obtener la seguiente información: ¿Cómo puedo
hacer un algorítimo para visualizar en la pantalla los campos de 255
caracteres sin "salir de la tela", así como en el antiguo, pero bueno,
Dbase III.

Muy atentamente y desde ya mucho obrigado

Hola:
Para que no se te "salga de la tela" debes indicarle el largo a visualizar
por ejemplo
Para visualizar :
@ x, y say subs( field->mensajes,1 30 )
Para editar :
mivar := field->mensajes
@ x, y get mivar picture "@S30"
Ojala te sirva.
Saludos desde Chile
Luis Vasquez :-)

Me gustaría mucho tener una cópia de Clipper 52. Tengo solamente de Summer e 5.01

Mandame un correo

Hola, por algunas palabras de tu carta, deduzco que eres de Brasil, yo entiendo y escribo los dos idiomas, portugués y español. Viví 2 años en Curitiba, mi padre era de allá( Alcídio Borges Nogueira )
La solución sería utilizar la función MemoEdit. Una vez editado, el string queda con las marcas de avance de línea "incrustadas"; si se quiere eliminarlas, hay que buscar y extraer los caracteres Ascii 141.
Mando un ejemplo
***********************************************************
*
PROCEDURE Ed_DesArt( text1 )
*
LOCAL scr_3
*
scr_3 := SaveScreen( 0, 0, MaxRow(), MaxCol() )
Scroll( 22, 3, 23, 77 ); SetPos( 22, 3 )
DevOut( Padr( " Esc = Sale s/modif Ctrl+W = Confirma Modif", 74 ),;
var_cor2 )
DispBox( 11, 0, 16, 79, bord_caj1 )
DevPos( 12, 35 ) ; DevOut( "Descripc. del Art¡culo", "I" )
text1 := MemoEdit( text1, 14, 2, 15, 78, .T. )
RestScreen( 0, 0, Maxrow(), Maxcol(), scr_3 )
*
RETURN( text1 )
*
***********************************************************
*
* Deta_Lpre: Detalle Listado
* -------------------------------------
*
PROCEDURE Deta_Lpre
*
LOCAL posi, reng1, reng2
*
* Se elimina el CHR(141 ) , y se distribuye en renglones el texto largo
* antes de imprimir, en este caso, 75 posiciones
posi := 0
rest := reng1 := reng2 := ""
*
IF Prow() >= 58
Cabe_Lpre()
ENDIF
*
DevPos( Prow() + 1, 2 )
DevOut( ARTI->codigo )%0