UserCmd

PROC UserCmd
* Creare formular cu caracteristicile unei ferestre PRG.
loForm = CreateObject('Form')
With loForm
.Caption = [Proceduri Utilizator]
.Width = _Screen.Width - 50
.Height = _Screen.Height - 50
.FontName = 'Courier New'
.FontSize = 10
EndWith

MODIFY COMMAND usercmd.prg WINDOW (loForm.Name)
EXECSCRIPT(FILETOSTR([usercmd.prg]))