*** demo.prg ***  
 > c:\minigui\harbour\bin\harbour -n -q -ic:\minigui\harbour\include -ic:\minigui\include -osample\obj\bcc\ sample\demo.prg 
 Harbour 3.2.0dev (r2311302136) 
 Copyright (c) 1999-2023, https://harbour.github.io/ 
  
 *** Other.prg ***  
 > c:\minigui\harbour\bin\harbour -n -q -ic:\minigui\harbour\include -ic:\minigui\include -osample\obj\bcc\ sample\Other.prg 
 Harbour 3.2.0dev (r2311302136) 
 Copyright (c) 1999-2023, https://harbour.github.io/ 
  
 *** demo.c ***  
 > c:\Borland\BCC58\bin\bcc32.exe -c -d -w -O2 -Ic:\minigui\harbour\include -Ic:\minigui\include -osample\obj\bcc\demo.obj sample\obj\bcc\demo.c 
 Borland C++ 5.82 for Win32 Copyright (c) 1993, 2005 Borland 
 sample\obj\bcc\demo.c: 
  
 *** Other.c ***  
 > c:\Borland\BCC58\bin\bcc32.exe -c -d -w -O2 -Ic:\minigui\harbour\include -Ic:\minigui\include -osample\obj\bcc\Other.obj sample\obj\bcc\Other.c 
 Borland C++ 5.82 for Win32 Copyright (c) 1993, 2005 Borland 
 sample\obj\bcc\Other.c: 
  
 > c:\Borland\BCC58\bin\brc32 -r \minigui\resources\minigui.rc -fominigui 
 Borland Resource Compiler  Version 5.40 
 Copyright (c) 1990, 1999 Inprise Corporation.  All rights reserved. 
  
 > c:\Borland\BCC58\bin\brc32 -r \minigui\resources\hbprinter.rc -fohbprinter 
 Borland Resource Compiler  Version 5.40 
 Copyright (c) 1990, 1999 Inprise Corporation.  All rights reserved. 
  
 > c:\Borland\BCC58\bin\brc32 -r \minigui\resources\miniprint.rc -fominiprint 
 Borland Resource Compiler  Version 5.40 
 Copyright (c) 1990, 1999 Inprise Corporation.  All rights reserved. 
  
 *** demo.exe ***  
 > c:\Borland\BCC58\bin\ilink32 -Gn -aa -Tpe -Lc:\minigui\harbour\lib -Lc:\minigui\lib -Lc:\Borland\BCC58\lib\psdk c0w32.obj  sample\obj\bcc\demo.obj sample\obj\bcc\Other.obj, sample\demo.exe,,  minigui.lib hbprinter.lib miniprint.lib bostaurus.lib hbwin.lib xhb.lib hbvm.lib hbrtl.lib gtgui.lib gtwin.lib hbcpage.lib hblang.lib hbrdd.lib hbmacro.lib hbpp.lib rddntx.lib rddcdx.lib rddfpt.lib hbsix.lib hbcommon.lib hbct.lib hbcplr.lib hbpcre.lib hbzlib.lib ws2_32.lib cw32.lib import32.lib iphlpapi.lib,,  minigui.res hbprinter.res miniprint.res 
 Turbo Incremental Link 5.69 Copyright (c) 1997-2005 Borland 
  
 === sample\demo.exe created successfully! === 
 

 
 [APP] 
 Utf8=Yes 
 Title=BK19. HMG 2.07. MSVC 2019. 
 Notepad=\BK19\BIN\Notepad2.exe 
 HbEdit =\BK19\BIN\HBEDIT\HbEdit.exe -pal=4 -his=0 
 ;AkelPad=\BK19\BIN\AkelPadU 
 Default=02 
 Res=.\RES 
 CmdComp=_hb_.cmd 
 CmdRun= 
 LibName=  
 [01] 
 Title=EAlarm. FDB => BASE.DBF 
 PathApp=.\PRG 
 PathExe=.\INF 
 NameExe= 
 Include=*.prg 
 Exclude= 
 Lib=.\Lib\rddletoDbf32.lib 
 [02] 
 Title=EAlarm 1.3. FDB => BASE.DBF 
 PathApp=.\PRG1_3 
 PathExe=.\INF1_3 
 NameExe= 
 Include=*.prg 
 Exclude= 
 Lib=.\Lib\rddletoDbf32.lib 
 [03] 
 Title=EAlarm 1.3. SMS and MAIL 
 PathApp=.\PRGS 
 PathExe=.\INFS 
 NameExe= 
 Include=*.prg 
 Exclude= 
 Lib=.\Lib\Hmg32_leto1.lib .\Lib\rddleto321.lib 
 [04] 
 [05] 
 [06] 
 [07] 
 [08] 
 [09] 
 [Common] 
 FontName=Arial 
 FontSize=11 
 SizeScale=100,100 
 [Window] 
 Form_1Form_1=75,42,1209,642, 
 wErrorwError=458,2,909,313, 
 [Browse] 
 brwProg=304,87,87,87,604, 
 brwEntiti=217,434,434,87, 
 brwEntAll=173,346,346,87,216, 
 [Obj] 
 1=\BK19\OBJ\ErrSysHMG_.obj %O%\%P%.obj \BK19\OBJ\MapFile.obj 
 [Lib] 
 1=kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib 
 2=shell32.lib ole32.lib oleaut32.lib uuid.lib Vfw32.lib comctl32.lib 
 3=odbc32.lib odbccp32.lib ShLwapi.lib WinMM.lib legacy_stdio_definitions.lib 
 4=ws2_32.lib WSock32.Lib ImageHlp.lib htmlhelp.lib MSImg32.lib IPHlpApi.lib 
 5=/nologo /incremental:no /pdb:%O%\%P%.pdb /SUBSYSTEM:WINDOWS 
 6=/machine:I386 /out:%W%\%P%.exe 
 7=hbdebug.lib hbvmmt.lib hbrtl.lib hblang.lib hbrdd.lib rddfpt.lib 
 8=rddntx.lib rddcdx.lib hbmacro.lib hbpp.lib hbsix.lib hbcommon.lib 
 9=hbcplr.lib hbgt.lib hbcpage.lib hbct.lib hbmemio.lib hbzlib.lib  
 10=hbmisc.lib hbwin.lib xhb.lib rddsql.lib rddbm.lib 
 11=bk32_c.lib gtwin.lib gtgui.lib hbLibXL_c.lib hbxlsxml.lib 
 12=MiniGui32_c.lib MiniGUI32_c2.lib MiniGUI32_2.lib Hmg32_dop.lib 
 13=xhb.lib hbpcre.lib 
 ;14=rddleto321.lib  
 ;15=rddletoDbf32.lib 
 [FColor] 
 1={"CLASS", "R"} 
 2={"ACCESS", "V"} 
 3={"ASSIGN", "V"} 
 4={"METHOD", "M"} 
 5={"DEFINE", "H"} 
 6={"STATIC", "B"} 
 [Entiti] 
 01=FUNC  
 02=FUNCTION  
 03=PROC  
 04=PROCEDURE  
 05=CLASS  
 06=ACCESS  
 07=ASSIGN  
 08=METHOD  
 09=DEFINE WINDOW  
 10=INIT WINDOW  
 11=INIT DIALOG  
 12=STAT FUNC  
 13=STATIC FUNC  
 14=STATIC FUNCTION  
 15=STAT PROC  
 16=STATIC PROC  
 17=STATIC PROCEDURE  
 18=HB_FUNC( 
 19=INIT PROC  
 20=INIT PROCEDURE  
 21=EXIT PROC  
 22=EXIT PROCEDURE  
 23=CASE WM_... 
 

 
 @echo off 
 if     %1.==O. goto Obj 
 if not %1.==.  goto e 
  
 rem ------------------- Start compile, link 
 :Start 
 SET BK=\BK19 
  
 SET HB=%BK%\HB32 
 SET VC=%BK%\MSVC 
 SET BIN=%HB%\bin 
  
 set HB_BK=%BK% 
 set HB_HB=%HB_BK%\hb32 
 set HB_VC=%HB_BK%\MSVC 
  
 Call %HB_VC%\vcvar.cmd 
 Call %HB_HB%\hbvar.cmd 
  
 SET BIN=%BIN%;%VCE% 
  
 rem -------------------------- Keys for Harbour.exe, cl.exe 
 SET HL=-n -m -es0 -w0 -ql  
 SET CL=/nologo /EHsc /W3 /O2 /DWIN32 /DNDEBUG /D_WINDOWS /D_MBCS 
  
 rem -------------------------- No modification variable !!! 
 SET O=.\C 
 SET C=.\C 
 SET R=.\RES 
 SET W=.\WRK 
 SET OU=%C% 
 SET ERR=N 
  
 if NOT exist %W%\_hbSets.cmd ( 
    Echo **************************************** 
    Echo *** File not found  %W%\_hbSets.cmd ! 
    Echo **************************************** 
    pause 
    exit 
 ) 
  
 rem ---------------------- Set variable Enveroment ------------------ 
 Call %W%\_hbSets.cmd 
  
 if NOT exist %P%.prg ( 
    Echo *************************************** 
    Echo *** File not found  %P%.prg ! 
    Echo *************************************** 
    pause 
    exit 
 )  
  
 for %%i in ( %P% ) Do ( 
     SET PT=%%~pi 
     SET PP=%%~ni 
     SET EX=%%~xi 
 ) 
  
 if exist %W%\%PP%.EXE  Del  %W%\%PP%.EXE  > nul 
 if exist %C%\%PP%.obj  Del  %C%\%PP%.obj  > nul 
  
 rem ------------------ FileName out protokol 
 SET OCMD=_hb_.txt 
  
 echo %P% > %OCMD% 
 echo %P% 
 echo -------------------------- 
  
 SET OBJ=%BK%\OBJ 
  
 SET LIB=%BK%\lib\;%LIB% 
 SET INCLUDE=.\Include;%BK%\MiniGui\Include;%INCLUDE% 
 SET PATH=%BIN%;%PATH% 
  
 if not exist %C%\*.tmp goto Compile 
  
 rem --------------------------- Create obj for selected project 
 :ObjCreate 
 for %%d in ( %C%\*.tmp ) Do Call %0 O %%d 
  
 if %ERR%==Y goto err 
  
 rem --------------------------- Create Lib for selected project 
 :LibCreate 
 if not exist %C%\*.obj      goto Compile 
 if not exist %W%\o_%PP%.txt goto Compile 
  
 if exist %C%\%PP%.lib  Del  %C%\%PP%.lib    > nul 
 lib.exe  /OUT:%C%\%PP%.lib  @%W%\o_%PP%.txt > nul 
  
 rem --------------------------- Create Lib for all project 
 if %LNM%.==.             goto Compile 
 if not exist %W%\o_*.txt goto Compile 
  
 for %%i in ( %LNM% ) Do ( 
     SET LCT=%%~pi 
     SET LNM=%%~ni 
     SET LEX=%%~xi 
 ) 
  
 if %LCT%.==. goto LibName 
 if not exist %LCT% md %LCT% 
 :LibName 
 if %LCT%.==. SET LCT=%C% 
 if exist %LCT%\%LNM%.lib   Del %LCT%\%LNM%.lib                     > nul 
 for %%d in ( %W%\o_*.txt ) Do  lib.exe  /OUT:%LCT%\%LNM%.lib  @%%d > nul 
  
 rem --------------------------- Compile Harbour 
 :Compile 
 HARBOUR.EXE  %HL%  -i%INCLUDE% -o%C%\  %C%\%PP%.prg  2>> %OCMD% 
 if errorlevel 1 SET ERR=Y 
  
 if %ERR%==Y goto err 
  
 cl.exe  /TC  %C%\%PP%.c  %CL%  /Fp%O%\%PP%.pch /Fo%O%\ /Fd /c  >> %OCMD% 
  
 rem --------------------------- Resource and linker 
 if exist  %R%\%PP%.RC ( 
  
    echo %R%\%PP%.rc              >> %OCMD% 
  
    pushd %R% 
 rem   RC.EXE              %PP%.RC   >> ..\%OCMD% 
    %BK%\BIN\RC\RC.EXE   %PP%.RC  >> ..\%OCMD% 
    if errorlevel 1 SET ERR=Y 
    popd 
  
    LINK.EXE /RELEASE  @%W%\L_%PP%.TXT %R%\%PP%.RES >> %OCMD% 
    if errorlevel 1 SET ERR=Y 
 ) else ( 
    LINK.EXE /RELEASE  @%W%\L_%PP%.TXT  >> %OCMD% 
    if errorlevel 1 SET ERR=Y 
 ) 
  
 :err 
 if %ERR%==Y goto Notepad 
  
 rem --------------------------- Copy EXE to project 
 if not exist %OU% md %OU%                               > nul 
 if exist %W%\%PP%.EXE copy %W%\%PP%.EXE %OU%\%NEXE%.exe > nul 
 if exist %W%\%PP%.EXE del  %W%\%PP%.EXE                 > nul 
 goto e 
  
 rem ---------------------- Start Notepad for error view 
 :Notepad 
 %BK%\BIN\prj.exe  /r  .\%OCMD%  %NINI%  %NSEC%  * 
 rem Start %NPAD% .\%OCMD% 
 goto e 
  
 rem ---------------------- Compile obj for lib selected project 
 :Obj 
 if %2.==.  goto ObjEnd 
 SET ERO=N 
 for %%i in ( %2 ) Do SET PO=%%~ni 
 for %%i in ( %2 ) Do SET EO=%%~xi 
 if not %EO%==.tmp goto ObjEnd 
 if exist %C%\%PO%.obj del %C%\%PO%.obj > nul 
  
 HARBOUR.EXE  %HL%  -i%INCLUDE% -o%C%\  @%C%\%PO%.tmp       2>> %OCMD%  
 if errorlevel 1 SET ERO=Y 
 if %ERO%==Y goto ObjEnd 
 if exist %C%\%PO%.tmp del %C%\%PO%.tmp > nul 
 cl.exe /TC %C%\%PO%.c  %CL%  /Fp%C%\%PO%.pch /Fo%C%\ /Fd /c >> %OCMD%  
 if errorlevel 1 SET ERO=Y 
 if %ERO%==Y goto ObjEnd 
  
 :ObjEnd 
 if %ERO%==Y SET ERR=Y  
 goto e 
  
 :e 
 

SET ERR=N 
 SET NPAD=\BK19\BIN\Notepad2.exe 
 SET NEXE=_ealarm 
 SET NINI=_bk32.ini 
 SET NSEC=01 
 SET OU=.\INF 
 SET P=.\PRG\_ealarm 
 SET W=.\WRK 
 SET O=.\C 
 SET C=.\C 
 SET R=.\RES 
 

 
 .\C\letofunc.obj 
 .\C\listfunc.obj 
 .\C\setsdata.obj 
 .\C\tsb_xml2xls.obj