PARAMETERS cMod


IF !EMPTY(cMod)
	b(cMod)
	RETURN
ENDIF


SET PATH TO proj,json,classes, form,prg,class, source
CLEAR
CLEAR all

IF !DIRECTORY('exe')
	MKDIR exe
ENDIF


b('ghost2')
b('compelec2')
b('config2')
b('password2')
b('invoicer')
b('report')
b('gas')
b('gserv')
b('json')



PROCEDURE b (cName)
	WAIT WINDOW 'Compilando '+cName+'...' nowait
	build exe &cName..exe from proj\&cName RECOMPILE 
ENDPROC

