: PBC  Compile and Add to Library PowerBASIC SubProgram  01/11/1996-05/24/1997
: ----------------------------------------------------------------------------
: Copyright (C) 1996-1997 by Vladimir Veytsel                    www.davar.net

: 1. Name of %DOS%:\PBASIC subprogram (function or routine)
:    to be compiled and added to the MODULE.PBL library
:    "?" - Display PBC.BTM script text (Equivalent: "/").

@ECHO %TR%

 IF %1.==?. .OR. %1.==/. (LIST %_BATCHNAME ^ CLS ^ QUIT)

 IF NOT EXIST %DOS%:\PBASIC\%1.BAS (ECHO %S%%R%SubProgram %DOS%:\PBASIC\%M%%@UPPER[%1].BAS %R%doesn't exist - %M%PBC %R%cancelled%D% ^ QUIT)

 PUSHD %DOS%:\PBASIC

 %DOS%:\PWRBASIC\PBC %1 /CU /EB-/EN-/EO-/ES- /LB-/LG-/LP-/LS- /OZF

@ECHO:
 INKEY /W5 /K"[Enter]" %W%Hit %C%[Enter] %W%or %Y%wait %W%to continue...%D% %%R
 SET R=
@ECHO:

 ECHO O MODULE >  %1.PBL
 ECHO D %1     >> %1.PBL
 ECHO A %1     >> %1.PBL
 ECHO Q        >> %1.PBL
 %DOS%:\PWRBASIC\PBLIB %1.PBL

 DEL %1.PBU %1.PBL /Q

@ECHO %W%SubProg %DOS%:\PBASIC\%G%%@UPPER[%1].BAS %W%compiled & added to %DOS%:\PBASIC\%G%MODULE.PLB %W%library%D%
 POPD