@echo off
if exist go.bat go
cls
echo - Part of FWKCS(TM) Contents_Signature System, Version 1.17.
echo - (C)Copyright Frederick W. Kantor 1989-1992. All rights reserved.
echo -
echo - Your use of the FWKCS(TM) Contents_Signature System is at solely your own
echo - risk. For safety, please have proper backups of your files.
echo -
echo - INSTALL.BAT to install the FWKCS(TM) Contents_Signature System, Ver. 1.17;
echo - for use in same directory with FWKCS117.ZIP, FWKCS.117, and FWKCS_TM.117.
echo -
echo - Note: Before you start the installation, please have available on your PATH:
echo - Phil Katz's PKUNZIP(R), Version 1.10 or later.
echo - Ben Baker's QSORT, Version 3.20.
echo - (IBM/MS) DOS 3.30-5.00, ATTRIB command.
echo - (More information provided as FWKCS.117 package is opened; see README.TXT.)
echo -
echo - If you are replacing FWKCS Ver. 1.12 or later, use REPLACE.BAT.
echo - ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
echo -
echo - Usage: INSTALL "<enter>"
if "%1" == "/*" goto end
echo -
echo - If you are missing PKUNZIP, QSORT 3.20, or ATTRIB as above, stop now!
echo - To quit, press Ctrl+C, then y ~~~~~~~~
echo -
pause
if not exist fwkcs117.zip goto nv117
if exist #@!#@!^^.@!@ del #@!#@!^^.@!@ > nul
if exist #@!#@!^^.@!@ attrib -r #@!#@!^^.@!@ > nul
if exist #@!#@!^^.@!@ del #@!#@!^^.@!@ > nul
if exist @@!#@!^^.@!@ del @@!#@!^^.@!@ > nul
if exist @@!#@!^^.@!@ attrib -r @@!#@!^^.@!@ > nul
if exist @@!#@!^^.@!@ del @@!#@!^^.@!@ > nul
pkunzip @@!#@!^^.@!@ > nul
if errorlevel 1 goto zex
goto nz
:zex
echo sort test > #@!#@!^^.@!@
qsort #@!#@!^^.@!@ @@!#@!^^.@!@ > nul
del #@!#@!^^.@!@ > nul
if not exist @@!#@!^^.@!@ goto nsrt
cls
del @@!#@!^^.@!@ > nul
if not exist fwkcstmp.117 goto n1
if exist fwkhi.com del fwkhi.com > nul
if exist fwkhi.com attrib -r fwkhi.com > nul
if exist fwkhi.com del fwkhi.com > nul
pkunzip -o fwkcstmp.117 fwkhi.com > nul
if exist fwkhi.com goto n2
:n1
if not exist fwkcs.117 goto nd
if not exist fwkcs_tm.117 goto cm
ren fwkcs_tm.117 fwkcs_tm.com > nul
fwkcs_tm < fwkcs.117 >fwkcstmp.117
if errorlevel 1 goto fbad
ren fwkcs_tm.com fwkcs_tm.117 > nul
pkunzip -o fwkcstmp.117 fwkhi.com > nul
if not exist fwkhi.com goto fz
:n2
cls
echo -
echo - Should I enter FWKCS117.ZIP's contents_signatures for future reference?
echo -
echo - Press either 0 or 1 to answer: 0 = NO. 1 = YES.
echo -
:ask1
fwkhi
if errorlevel 2 goto ask1
if not errorlevel 1 goto nocs
if exist fwkcs117.zip ren fwkcs117.zip @@!#@!^^.@!@ > nul
if exist fwkcstmp.117 ren fwkcstmp.117 fwkcs117.zip > nul
pkunzip -o fwkcs117.zip fwkcs.com > nul
fwkcs /1 fwkcs117.zip #@!#@!^^.@!@
ren fwkcs117.zip fwkcstmp.117 > nul
if exist @@!#@!^^.@!@ ren @@!#@!^^.@!@ fwkcs117.zip > nul
if not exist fwkcs.com pkunzip fwkcs117.zip fwkcs.com > nul
if exist fwkcs117.zip fwkcs /1 fwkcs117.zip >> #@!#@!^^.@!@
qsort #@!#@!^^.@!@
fwkcs #@!#@!^^.@!@ nul myowncsl.srt /ms
del #@!#@!^^.@!@ > nul
del fwkcs.com > nul
:nocs
pkunzip fwkcstmp.117 go.bat > nul
if errorlevel 51 goto fz
if errorlevel 50 goto ns
if errorlevel 1 goto fz
del fwkhi.com > nul
go
:nv117
echo -
echo - INSTALL.BAT is for use in the same directory with all these
echo - files together: FWKCS117.ZIP, FWKCS.117, and FWKCS_TM.117.
goto try
:ns
del fwkcs117.tmp > nul
echo -
echo - There is apparently not enough space here for me to work in...
echo -
echo - After you have provided more space here, or moved my files to
echo - another drive with enough space,
goto try
:fz
del fwkcs117.tmp > nul
echo -
echo - Error getting file(s).
goto try
:fbad
del fwkcs117.tmp > nul
ren fwkcs_tm.com fwkcs_tm.117 > nul
echo -
echo - FWKCS.117 appears defective or incompatible. Execution aborted.
:try
echo -
echo - Please clean up, and try again. See README.TXT.
goto end
:nz
echo -
echo - Where is Phil Katz's PKUNZIP(R)?
goto nz1
:nsrt
echo -
echo - Where is Ben Baker's QSORT Version 3.20 ?
echo -
echo - You can get it as a no_fee download from The Invention Factory BBS
echo - on your first call:
echo -
echo - generic 2400 bits/sec 212-431-1194 N 8 1
echo -
echo - Hayes (19.2K) (nominal 9600) 212-431-4508 N 8 1
echo -
echo - USR (19.2K) (nominal 9600) 212-274-8390 N 8 1
echo -
echo - CompuCom (19.2K) (nominal 9600) 212-274-1243 N 8 1
:nz1
echo -
echo - After getting this missing program,
echo -
echo - Please try again.
goto end
:cm
echo -
echo - I need FWKCS_TM.117.
echo -
echo - I quit!
goto end
:nd
echo -
echo - Nothing to do!
:end
echo -