home *** CD-ROM | disk | FTP | other *** search
- echo off
- if %2OK == d2OK goto disk2
- if exist %1:\PEEL\PEEL.HLP goto COPYPEEL
- MD %1:\PEEL
- :COPYPEEL
- %1:
- cd\PEEL
- if exist %1:\PEEL\PEEL.COM goto DELPEEL
- goto OKPEEL
- :DELPEEL
- del %1:\PEEL\PEEL.COM
- del %1:\PEEL\PEEL.000
- :OKPEEL
- COPY a:\*.* %1:\PEEL
- if exist %1:\PEEL\PEELEDIT.MSG goto END
- genpeel %1 d2
- :disk2
- echo
- echo Insert Applications Disk 2 into the Drive A
- echo
- :loop
- pause
- if exist a:\PEELEDIT.COM goto APPSCOPY
- echo *** Incorrect Diskette! Please insert Applications Disk ***
- goto loop
- :APPSCOPY
- COPY a:\*.* %1:\PEEL
- :END
- init