z_tela:=Janela(3,0,22,79,"Comando Direto no ECF") 
Set( 20, "SCREEN" ) 
zCmd=space(80)
DevPos(5,2);DevOut("Comando: " );SetPos( Row(), Col()+1 ) ; AAdd( GetList, _GET_( zCmd, "zCmd", "@s40",, ):display() ) 
ReadModal(GetList) ; GetList := {}
zCmd=alltrim(zCmd)
Ecf_Cmd("CMD",zCmd)
Alert("Enviado Comando: "+zCmd,,"B/W")
fechajan(@z_tela)