procedure xpCommandWindow
	local lcPath, ;
	loForm, loExeption
lcPath = addbs(gcPthTmp) + 'Command.prg' 
loForm = createobject('Form')
with loForm
	.Caption  = trim('Command')
	.Width    = _screen.Width  -  50 
	.Height   = _screen.Height -  50 
	.FontName = 'Courier New'
	.FontSize =  10 
endwith

* Edit the code in a PRG window, then put the results back into CODE.
TRY
	MODIFY COMMAND (LCPATH) WINDOW (LOFORM.NAME)
	LCCOMMAND = FILETOSTR(LCPATH)
	=execscript(LCCOMMAND)
CATCH TO loExeption
	=messagebox('Ошибка выполнения', 0 + 16 )
ENDTRY
endproc