home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0020 - 0029 / ibm0020-0029 / ibm0028.tar / ibm0028 / PACIOL2.ZIP / INSTALL.BAT next >
Encoding:
DOS Batch File  |  1990-10-15  |  1.5 KB  |  55 lines
  1. echo off
  2. cls
  3. if "==%1" goto PROMPT
  4. for %%f in (C:,c:,D:,d:,E:,e:,F:,f:,G:,g:,H:,h:,I:,i:,J:,j:) do if %1.==%%f. goto BEGIN
  5. for %%f in (K:,k:,L:,l:,M:,m:,N:,n:,O:,o:,P:,p:,Q:,q:,R:,r:) do if %1.==%%f. goto BEGIN
  6. for %%f in (S:,s:,T:,t:,U:,u:,V:,v:,W:,w:,X:,x:,Y:,y:,Z:,z:) do if %1.==%%f. goto BEGIN
  7. goto INVALID
  8. :BEGIN
  9. if exist PAC2000a.EXE goto PROCEED
  10. if exist a:PAC2000a.EXE goto PROMPT
  11. if exist b:PAC2000a.EXE goto PROMPT
  12. echo Insert Pacioli 2000 System Disk #1 into Drive.
  13. pause
  14. goto BEGIN
  15. :PROCEED
  16. pac2000a /e%1\PACIOLI
  17. if errorlevel 1 goto CANCEL
  18. if not exist %1\PACIOLI\PACRUN.EXE goto CANCEL
  19. :NEXT
  20. if exist PAC2000b.exe goto CONTINUE
  21. echo Insert Pacioli 2000 System Disk #2 into Drive.
  22. pause
  23. goto NEXT
  24. :CONTINUE
  25. pac2000b /e%1\Pacioli
  26. if errorlevel 1 goto CANCEL
  27. if not exist %1\PACIOLI\PAC006.EXE goto CANCEL
  28. pac2000c /e%1\PACIOLI\Comp01
  29. if errorlevel 1 goto CANCEL
  30. if not exist %1\PACIOLI\COMP01\PAC016.DAT goto CANCEL
  31. %1
  32. cd\pacioli
  33. if errorlevel 1 goto CANCEL
  34. PAC001
  35. cd\
  36. goto EXIT
  37. :INVALID
  38. echo Invalid drive specified.  Install cancelled.
  39. :PROMPT
  40. echo  
  41. echo At the "A>" or "B>" prompt enter "INSTALL <drive:>", where "<drive:>"
  42. echo is the letter of the hard disk on which PACIOLI 2000 will be placed.
  43. echo For example, if the PACIOLI 2000 System Disk is in drive "A:" and the
  44. echo target hard disk for PACIOLI 2000 is drive "C:" you would type at the
  45. echo "A>" prompt:
  46. echo  
  47. echo           INSTALL C:
  48. echo  
  49. goto EXIT
  50. :CANCEL
  51. echo  
  52. echo  
  53. echo Install cancelled.
  54. echo  
  55. :EXIT