James, Armando, ukoenig
NOW RUN OK !!!!
@ n + 1.20,0.6 BUTTON oBtnPast PROMPT "<-" OF oDlg ;
FONT oFont SIZE 20,13 ACTION (cText := Alltrim(oGet:cText()),;
oGet:cText( padR(left(alltrim(cText),len(cText)-1),100,' ') ) ,;
oGet:refresh() )