home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS - Coast to Coast / simteldosarchivecoasttocoast.iso / pcmag / vol9n09.zip / POPP2.BAT < prev    next >
DOS Batch File  |  1990-03-09  |  701b  |  29 lines
  1.  
  2. :==========================================================:
  3. :                        POPP2.BAT                         :
  4. :     Retrieve path from "stack" of setpath variables.     :
  5. :==========================================================:
  6. @echo off
  7.  
  8. set N=
  9. IF NOT "%SETPATH1%"=="" SET N=%SETPATH1%
  10. IF NOT "%SETPATH2%"=="" SET N=%SETPATH2%
  11. IF NOT "%SETPATH3%"=="" SET N=%SETPATH3%
  12.  
  13. if "%N%"=="" goto ERROR
  14.    PATH %N%
  15.    set N=
  16.    IF NOT "%SETPATH1%"=="" SET N=SETPATH1
  17.    IF NOT "%SETPATH2%"=="" SET N=SETPATH2
  18.    IF NOT "%SETPATH3%"=="" SET N=SETPATH3
  19.    set %N%=
  20.    set N=
  21.    goto END
  22. :ERROR
  23.    echo.
  24.    echo POPPATH ERROR:  Path stack is empty...
  25.    echo.
  26. :END
  27.  
  28.  
  29.