home *** CD-ROM | disk | FTP | other *** search
/ Media Share 9 / MEDIASHARE_09.ISO / dbase / fwkcs120.zip / GETLOOK.BAT < prev    next >
DOS Batch File  |  1993-05-28  |  2KB  |  76 lines
  1. @echo off
  2. cls
  3. echo - Part of FWKCS(TM) Contents_Signature System, Version 1.20.
  4. echo - (C)Copyright Frederick W. Kantor 1989-1993. All rights reserved.
  5. echo -
  6. echo - Your use of the FWKCS(TM) Contents_Signature System is at solely your own
  7. echo - risk.  For safety, please have proper backups of your files.
  8. echo -
  9. echo - GETLOOK.BAT to get the remote Lookup option without installing the
  10. echo -             FWKCS(TM) Contents_Signature System;
  11. echo -             for use in the same directory with FWKCS.120 and FWKCS_TM.120.
  12. echo -
  13. echo - Usage:
  14. echo -
  15. echo -        GETLOOK "<enter>"
  16. if "%1" == "/*" goto end0
  17. echo -
  18. echo -  To quit, press Ctrl+C, then y
  19. echo -
  20. pause
  21. if not exist fwkcs.120 goto nd
  22. if not exist fwkcs_tm.120 goto cm
  23. ren fwkcs_tm.120 fwkcs_tm.com > nul
  24. fwkcs_tm < fwkcs.120 >fwkcstmp.120
  25. if errorlevel 1 goto fb
  26. ren fwkcs_tm.com fwkcs_tm.120 > nul
  27. pkunzip -o fwkcstmp.120 fwkcs.exe fwkcs120.h0? fwkcs120.ref lookup.bat > nul
  28. if errorlevel 51 goto fz
  29. if errorlevel 50 goto ns
  30. if errorlevel 1 goto fz
  31. pkunzip -o fwkcstmp.120 rcrosref.bat lookup.doc lookcref.blt register.doc register.frm > nul
  32. if errorlevel 51 goto fz
  33. if errorlevel 50 goto ns
  34. if errorlevel 1 goto fz
  35. goto end
  36. :ns
  37. echo -
  38. echo - There is apparently not enough space here for me to work in...
  39. echo -
  40. echo - After you have provided more space here, or moved my files to
  41. echo -   another drive with enough space,
  42. goto delbad
  43. :fz
  44. echo -
  45. echo - Error getting files.
  46. :delbad
  47. if exist fwkcs.exe del fwkcs.exe > nul
  48. if exist fwkcs120.h0? del fwkcs120.h0? > nul
  49. if exist lookup.bat del lookup.bat > nul
  50. if exist rcrosref.bat del rcrosref.bat > nul
  51. if exist lookup.doc del lookup.doc > nul
  52. if exist lookcref.blt del lookcref.blt > nul
  53. if exist register.doc del register.doc > nul
  54. goto try
  55. :fb
  56. ren fwkcs_tm.com fwkcs_tm.120 > nul
  57. echo -
  58. echo -  FWKCS.120 appears defective or incompatible. Execution aborted.
  59. :try
  60. echo -
  61. echo -  Please clean up, and try again. See README.TXT.
  62. goto end0
  63. :cm
  64. echo -
  65. echo -  I need FWKCS_TM.120.
  66. echo -
  67. echo -        I quit!
  68. goto end0
  69. :nd
  70. echo -
  71. echo -    Nothing to do!
  72. :end0
  73. echo -
  74. :end
  75. if exist fwkcstmp.120 del fwkcstmp.120 > nul
  76.