ECHO OFF
CLS

SET GET=
GET !J

IF "%GET%"=="" GOTO NOGOTGET
CLS
ECHO ÿ
ECHO        Please ensure you have a bootable DOS diskette 
ECHO        in the A: drive. It should NOT be write-protected
ECHO        yet. When this disk is ready, hit Enter to proceed.
ECHO ÿ
GET   [Q] to Quit now . . . 
IF ERRORLEVEL 81 GOTO OOPSOUT

:PROCEED
CLS
ECHO ÿ
IF NOT EXIST A:\COMMAND.COM GOTO NOSYSTEM
IF NOT EXIST VRESCUE GOTO NORESCUE


ECHO    Making a new AUTOEXEC.BAT on the Rescue Diskette.
ECHO    Please stand by.
ECHO    This will take a moment . . . 
GET !P

IF EXIST A:\AUTOEXEC.BAT ERASE A:\AUTOEXEC.BAT > NUL
COPY VRESCUE A:\AUTOEXEC.BAT

ECHO   Autoexec.BAT made . . . 

IF EXIST \CONFIG.SYS COPY \CONFIG.SYS A:
IF EXIST A:CONFIG.SYS ECHO    Config.SYS copied . . . 

ECHO VC5 RESCUE DISK > A:VC5.ID

IF EXIST A:VC5.ID ECHO    Your Rescue Diskette is complete
echo ÿ
GOTO LASTEND

:FAILED
ECHO ÿ
ECHO   The attempt to make a rescue diskette has failed.
ECHO   Please initialize Victor Charlie again. The command is
ECHO               VC NEW
ECHO   Then return here to make your rescue diskette
GOTO LASTEND     

:NOSYSTEM
ECHO     The diskette in the A: drive is not a bootable DOS diskette.
ECHO     Please format or re-format a diskette, using the command.
ECHO                   " FORMAT A: /S "
ECHO     The "/S" option is a vital part of the process 
ECHO     of making a rescue disk.
ECHO ÿ
GOTO LASTEND

:NORESCUE
CLS
ECHO     You are missing a vital file called VRESCUE. This text file
ECHO     is made automatically during VINSTALLation of Victor Charlie.
ECHO     I cannot make a helpful VC5 rescue diskette without this file.
ECHO     Please re-install Victor Charlie, or see your VC5 manual for
ECHO     instructions on how to make your own rescue diskette.
ECHO     NOTE:--------------------------------------------------------
ECHO     If you did not run VC5 from its own home directory, exit
ECHO     VC5 now. Log on to the VC5 home directory and re-run.
ECHO.
ECHO     VRESCUE should be in the VC5 home directory.   ÿ
GOTO LASTEND

:OOPSOUT
CLS
ECHO      You have halted the making of the Rescue Diskette.
ECHO ÿ
GOTO LASTEND

:NOGOTGET
CLS
ECHO ÿ
ECHO    This routine requires the Victor Charlie utility
ECHO                    GET.COM
ECHO    Please copy this program from your VC installation
ECHO    diskette to this directory, and start again.
ECHO ÿ
PAUSE > NUL
ECHO ÿ   

:LASTEND
ECHO ÿ
ECHO     Please hit a key to return to the VC5 menu
PAUSE > NUL