: PBCL  Compile and Link into EXE PowerBASIC Procedure  01/11/1996-06/21/1997
: ---------------------------------------------------------------------------
: Copyright (C) 1996-1997 by Vladimir Veytsel                   www.davar.net

: 1. Name of %DOS%:\PBASIC procedure to be compiled into EXE file
:    "?" - Display PBCL.BTM script text (Equivalent: "/").
: 2. When non-empty compress EXE using LZEXE.

@ECHO %TR%

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

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

 PUSHD %DOS%:\PBASIC

 %DOS%:\PWRBASIC\PBC %1 /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:

 IF NOT %2.==. (LZEXE %1 ^ DEL %1.OLD /Q)

@ECHO %W%Procedure %DOS%:\PBASIC\%G%%@UPPER[%1].BAS %W%compiled and linked into %DOS%:\PBASIC\%G%%@UPPER[%1].EXE%D%
 POPD