home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PROGRAMS / UTILS / DOS_HELP / ADDPAT.ZIP / ADPATH.BC < prev    next >
Encoding:
Text File  |  1990-05-02  |  903 b   |  44 lines
  1. @echo off
  2.         if %1. = . exit
  3.         if %1 = - goto back
  4.         set oldpath=%path%
  5.         if not %9. = . goto nine
  6.         if not %8. = . goto eight
  7.         if not %7. = . goto seven
  8.         if not %6. = . goto six
  9.         if not %5. = . goto five
  10.         if not %4. = . goto four
  11.         if not %3. = . goto three
  12.         if not %2. = . goto two
  13.  
  14.         set path=%path%;%1
  15. exit
  16. :two
  17.         set path=%path%;%1;%2
  18. exit
  19. :three
  20.         set path=%path%;%1;%2;%3
  21. exit
  22. :four
  23.         set path=%path%;%1;%2;%3;%4
  24. exit
  25. :five
  26.         set path=%path%;%1;%2;%3;%4;%5
  27. exit
  28. :six
  29.         set path=%path%;%1;%2;%3;%4;%5;%6
  30. exit
  31. :seven
  32.         set path=%path%;%1;%2;%3;%4;%5;%6;%7
  33. exit
  34. :eight
  35.         set path=%path%;%1;%2;%3;%4;%5;%6;%7;%8
  36. exit
  37. :nine
  38.         set path=%path%;%1;%2;%3;%4;%5;%6;%7;%8;%9
  39. exit
  40. :back
  41.         set path=%oldpath%
  42.         set oldpath=
  43. exit
  44.