@echo off
echo                *** SMOG installation procedure. ***

if .%1 == . goto wrong_param

goto disk_log

:wrong_param

echo  Log into the directory where you wish to create the subdirectory
echo  for SMOG files, and then initiate the installation procedure as
echo         X:INSTALL XYZ X:
echo  (if loading from another disk)
echo              or
echo         INSTALL XYZ
echo  (if you want to create your working directory at the same disk
echo  where your INSTALL.BAT and SM_DISTR.ZIP files are situated and
echo  PKUNZIP is accessible)
echo      Here,
echo  X is the source disk drive (A, B, ... ) and
echo  XYZ is the working subdirectory that will be created for SMOG files
echo  ( for example:   A:INSTALL SMOGWORK A:    ; INSTALL GENERATE C:).
goto end

:disk_log

rem if not exist SM_DISTR.ZIP goto which_disk

rem echo To install SMOG, you must be logged onto the directory on the
rem echo DESTINATION disk where you want to create your working subdirectory,
rem echo not onto the SMOG source diskette.
rem goto end

:which_disk

if exist %1\nul goto to_dir

md %1
if errorlevel 1 goto to_dir

echo Creating working subdirectory...
cd %1
goto subdir


:to_dir
cd %1
if errorlevel 1 goto bad_dir

echo Working directory "%1" already exists. Press Ctrl-Break to quit
echo or any other ley to proceed with installation.

pause
goto subdir

:bad_dir
echo Working directory "%1" cannot be created and does not exist.
goto end


:subdir
md bases
if errorlevel 1 goto bad_base
goto instart

:bad_base
echo Subdirectory \BASES cannot be created or properly filled.
goto end

:instart
cd..

if .%2 == . goto nodirspec

copy %2SM_DISTR.ZIP %1 > nul
cd %1
echo Extracting files from archive
%2pkunzip -o SM_DISTR.ZIP > nul
if errorlevel 1 goto bad_arch
move *.std bases > nul
echo         Success!!! Welcome to SMOG!
del SM_DISTR.ZIP > nul
goto end

:nodirspec
copy SM_DISTR.ZIP %1 > nul
cd %1
echo Extracting files from archive
pkunzip -o SM_DISTR.ZIP > nul
if errorlevel 1 goto bad_arch
move *.std bases > nul
echo         Success!!! Welcome to SMOG!
del SM_DISTR.ZIP > nul

goto end

:bad_arch
if errorlevel 50 goto diskfull
echo Archive cannot be processed, installation terminated.
goto end

:diskfull
echo Disk full, cannot install program.
goto end

:bad_files
echo Some files absent from the distribution archive!
goto end

:end