'****************************************************************************
'
' App.Path / AppPath for PowerBASIC/DLL and PowerBASIC/Console
'
' entwickelt von / developed by     :  Thomas Gohel
'                           FidoNet :  Thomas Gohel@2:2410/330.1
'                           InterNet:  author@pbsound.snafu.de
'                           Homepage:  http://www.snafu.de/~pbsound/
'
'****************************************************************************

$INCLUDE "WIN32API.INC"

FUNCTION AppPath AS STRING

        DIM CommandLine AS ASCIIZ PTR
        DIM AppExe      AS STRING

        DIM i           AS INTEGER
        DIM Temp        AS STRING

        CommandLine = GetCommandLine()
        Temp = PARSE$(@CommandLine, 1)

        FOR i% = LEN(Temp$) TO 1 STEP -1
            IF RIGHT$(MID$(Temp$, 1, i%), 1) = "\" THEN EXIT FOR
        NEXT i%
        AppPath$ = MID$(Temp$, 1, i%)
        AppExe$  = MID$(Temp$, i% + 1)

END FUNCTION

FUNCTION PBMAIN() AS LONG

        PRINT ">" + AppPath$ + "<"
        WAITKEY$

END FUNCTION