home *** CD-ROM | disk | FTP | other *** search
- Echo off
- IF NOT EXIST INPUT.COM GOTO WRONGDR
- cls
- echo
- ECHO Welcome to the installation procedure for Architect's Helper [TM]!
- echo
- ECOH ══════════ Software so powerful it redefines your expectations ══════════
- echo
- ECHO by Paul Sax
- echo
- ECHO Relax and enjoy yourself. Though this program is powerful,
- ECHO nothing could be easier than this installation procedure.
- echo
- ECHO Would you like to install this program on a Hard Drive?
- echo
- :YESNO
- YESNO
- CLS
- IF ERRORLEVEL 89 IF NOT ERRORLEVEL 90 GOTO YES
- IF ERRORLEVEL 78 IF NOT ERRORLEVEL 79 GOTO YES1
- GOTO YESNO
- :YESNEXT
- CLS
- ECOH For you to install this program on a hard drive, this disk must be on Drive A.
- echo
- ECHO Is this floppy on drive A now?
- echo
- YESNO
- CLS
- IF ERRORLEVEL 89 IF NOT ERRORLEVEL 90 GOTO YES
- IF ERRORLEVEL 78 IF NOT ERRORLEVEL 79 GOTO NO1
- GOTO YESNEXT
- :YES1
- CLS
- ECHO Would you like to install this program on a floppy-based system?
- echo
- YESNO
- CLS
- IF ERRORLEVEL 89 IF NOT ERRORLEVEL 90 GOTO YES2
- IF ERRORLEVEL 78 IF NOT ERRORLEVEL 79 GOTO END
- GOTO YES1
- :YES
- CLS
- echo
- ECOH ══════════ Select the Hard drive you want to install the program on: ══════════
- echo
- echo
- echo C = Drive C D = Drive D
- echo E = Drive E F = Drive F
- echo G = Drive G
- :INPUT
- echo
- echo
- INPUT (Pick a letter.)
- IF ERRORLEVEL 72 GOTO INPUT
- IF ERRORLEVEL 71 GOTO G
- IF ERRORLEVEL 70 GOTO F
- IF ERRORLEVEL 69 GOTO E
- IF ERRORLEVEL 68 GOTO D
- IF ERRORLEVEL 67 GOTO C
- IF ERRORLEVEL 67 GOTO C
- REM IF ERRORLEVEL 66 GOTO B
- REM IF ERRORLEVEL 65 GOTO A
- GOTO INPUT
- :C
- CLS
- echo
- DDR
- if ERRORLEVEL 4 INSTALL H C E:
- if ERRORLEVEL 3 INSTALL H C D:
- if ERRORLEVEL 2 INSTALL H C C:
- if ERRORLEVEL 1 INSTALL H C B:
- if ERRORLEVEL 0 INSTALL H C A:
- GOTO END
- :D
- CLS
- echo
- DDR
- if ERRORLEVEL 4 INSTALL H D E:
- if ERRORLEVEL 3 INSTALL H D D:
- if ERRORLEVEL 2 INSTALL H D C:
- if ERRORLEVEL 1 INSTALL H D B:
- if ERRORLEVEL 0 INSTALL H D A:
- GOTO END
- :E
- CLS
- echo
- DDR
- if ERRORLEVEL 4 INSTALL H E E:
- if ERRORLEVEL 3 INSTALL H E D:
- if ERRORLEVEL 2 INSTALL H E C:
- if ERRORLEVEL 1 INSTALL H E B:
- if ERRORLEVEL 0 INSTALL H E A:
- GOTO END
- :F
- CLS
- echo
- DDR
- if ERRORLEVEL 4 INSTALL H F E:
- if ERRORLEVEL 3 INSTALL H F D:
- if ERRORLEVEL 2 INSTALL H F C:
- if ERRORLEVEL 1 INSTALL H F B:
- if ERRORLEVEL 0 INSTALL H F A:
- GOTO END
- :G
- CLS
- echo
- DDR
- if ERRORLEVEL 4 INSTALL H G E:
- if ERRORLEVEL 3 INSTALL H G D:
- if ERRORLEVEL 2 INSTALL H G C:
- if ERRORLEVEL 1 INSTALL H G B:
- if ERRORLEVEL 0 INSTALL H G A:
- GOTO END
- :NO
- echo
- ECHO To install this for a floppy based system, this disk must be on Drive B.
- GOTO END
- :NO1
- CLS
- GOTO END
- :YES2
- CLS
- echo
- ECHO Beginning with version 4.0 of this program, it will not operate
- ECHO on a floppy-based system.
- echo
- GOTO END
- ECHO This disk must be on drive B to manufacture those three disks.
- ECHO Each disk must be 720 kb or greater.
- ECHO Are you in drive B now?
- echo
- YESNO
- CLS
- IF ERRORLEVEL 89 IF NOT ERRORLEVEL 90 GOTO YES3
- IF ERRORLEVEL 78 IF NOT ERRORLEVEL 79 GOTO NO3
- GOTO YES2
- :YES3
- CLS
- INSTALL F 2
- :NO3
- CLS
- echo
- echo To install this program, move this disk to drive B and re-execute 'GO' there.
- GOTO END
- :NO2
- CLS
- echo
- GOTO END
- :WRONGDR
- CLS
- echo
- echo
- ECHO Though nothing could be simpler than this install procedure, it does
- echo require that you enter the drive name, such as 'A:' or 'B:', followed
- echo by the 'Enter' key. After that, please enter 'GO' again.
- echo
- GOTO END
- :END
- echo
-