'****************************************************************************
'
'   Pfad und Dateiname des aktuellen Programm ermitteln in PowerBASIC 3.0/3.1
'
'   entwickelt von / developed by   :  Thomas Gohel
'
'                           Fido    :  Thomas Gohel@2:2410/330.1
'                           InterNet:  author@pbsound.snafu.de
'                           Homepage:  http://www.snafu.de/~pbsound/
'
'****************************************************************************


$COMPILE EXE

    ! mov ax, &h6200
    ! int &h21
    ! mov es, bx
    ! mov ax, word ptr es:[&h2C]
    ! mov pbvDefSeg, ax           ; undokumentiert in PowerBASIC 3.0
    FOR i% = 0 TO 1024
        IF PEEK$(i%, 4) = CHR$(0,0,1,0) THEN EXIT FOR
    NEXT i%
    WHILE PEEK(i% + 4) <> 0
        Temp$ = Temp$ + CHR$(PEEK(i% + 4))
        i% = i% + 1
    WEND
    DEF SEG
    FOR i%=LEN(Temp$) TO 1 STEP -1
        IF RIGHT$(MID$(Temp$,1,i%),1) = "\" THEN EXIT FOR
    NEXT i%
    ExeDir$ = MID$(Temp$,1,i%)
    ExeName$ = MID$(Temp$,i%+1)
    PRINT ExeDir$; ExeName$