home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.wwiv.com
/
ftp.wwiv.com.zip
/
ftp.wwiv.com
/
pub
/
BBS
/
FWKCS117.ZIP
/
GETLOOK.BAT
< prev
next >
Wrap
DOS Batch File
|
1992-02-12
|
2KB
|
71 lines
@echo off
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 - GETLOOK.BAT to get the remote Lookup option without installing the
echo - FWKCS(TM) Contents_Signature System;
echo - for use in the same directory with FWKCS.117 and FWKCS_TM.117.
echo -
echo - Usage:
echo -
echo - GETLOOK "<enter>"
if "%1" == "/*" goto end0
echo -
echo - To quit, press Ctrl+C, then y
echo -
pause
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 fwkcstmp.117 fwkcs.com lookup.bat rcrosref.bat lookup.doc lookcref.blt register.doc -o > nul
if errorlevel 51 goto fz
if errorlevel 50 goto ns
if errorlevel 1 goto fz
goto end
:ns
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 delbad
:fz
echo -
echo - Error getting files.
:delbad
if exist fwkcs.com del fwkcs.com > nul
if exist lookup.bat del lookup.bat > nul
if exist rcrosref.bat del rcrosref.bat > nul
if exist lookup.doc del lookup.doc > nul
if exist lookcref.blt del lookcref.blt > nul
if exist register.doc del register.doc > nul
goto try
:fbad
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 end0
:cm
echo -
echo - I need FWKCS_TM.117.
echo -
echo - I quit!
goto end0
:nd
echo -
echo - Nothing to do!
:end0
echo -
:end
if exist fwkcstmp.117 del fwkcstmp.117 > nul