Thanks by answering me, already I did what you indicated me, but they follow me appearing two windows, this is a program of test to see if this can be done in this version, since is the first time that it use.

clear

set sysmenu off

define window uno;
from 1,0 to 20,50;
close;
minimize;
title "Pruebas de Fox"

activate window uno

do while .t.
mnom=space(35)
mbot=0
@ 1,3 say "Nombre " get mnom
@ 3,3 get mbot function "*h Salir" size 2,10
read
if mbot=1
exit
endif
enddo
deactivate window uno
clear
quit