: PBE  PowerBASIC Development Environment Interface      11/15/1995-11/22/1997
: ----------------------------------------------------------------------------
: Copyright (C) 1995-1997 by Vladimir Veytsel                    www.davar.net

: 1. Specif of PowerBASIC program to be debugged (created if non-existent):
:    <dsk>:\<dir>\<file>  - Debug (or create) program <dsk>:\<dir>\<file>.BAS
:    <dir>\<file>         - Debug (or create) program %DOS%:\<dir>\<file>.BAS
:    <file>               - Debug (or create) program %DOS%:\PBASIC\<file>.BAS
:    Empty                - Enter PBASIC debugger without any specific program
:    "?"                  - Display PBE.BTM script text (Equivalent: "/")

@ECHO %TR%

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

 PUSHD %DOS%:\PBASIC

 IF %1.==. (%DOS%:\PWRBASIC\PB ^ GOTO Finish)

 IFF %@INDEX[%1,\] LT 0 THEN
     %DOS%:\PWRBASIC\PB %DOS%:\PBASIC\%1
 ELSE
     IFF %@INDEX[%1,:] LT 0 THEN
         %DOS%:\PWRBASIC\PB %DOS%:\%1
     ELSE
         %DOS%:\PWRBASIC\PB %1
     ENDIFF
 ENDIFF

:Finish

 POPD