Find Directory a prog is called from, even if $PATH is not set

...the solution
if progpath=$(which $0 2> /dev/null)
then
prog_path=$(dirname $progpath)
else

path=$(dirname $0)
cd $path
prog_path=$PWD
fi