home *** CD-ROM | disk | FTP | other *** search
/ Current Shareware 1994 January / SHAR194.ISO / modem / fwklu123.zip / GETLOOK.BAT < prev    next >
DOS Batch File  |  1993-09-20  |  4KB  |  133 lines
  1. @echo off
  2. cls
  3. if exist register.key goto rk
  4. echo -
  5. echo -
  6. echo -       If you registered FWKCS(TM) Version 1.19 or later, or if you
  7. echo -       registered FWKLU(TM) Version 1.22 or later, please copy your
  8. echo -       registration keyfile into this directory, and name the
  9. echo -       keyfile REGISTER.KEY.  Then restart this GETLOOK program.
  10. echo -
  11. echo -       If you do not have an FWKCS registration key, please make sure
  12. echo -       that your computer system's date is set to today's date.
  13. echo -
  14. echo -
  15. echo -  To stop this program, press Ctrl+C, then y
  16. echo -
  17. pause
  18. cls
  19. :rk
  20. echo -
  21. echo -            Your use of this software is at solely your own risk.
  22. echo -            ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  23. echo -
  24. echo - This software is intended for use under DOS 3.30 or later, or in a suitable
  25. echo - DOS session under a multitasking system (including IBM OS/2 2.0 or later).
  26. echo -
  27. echo -    If you encounter any system conflicts when using this software,
  28. echo -    please check your system configuration (and DOS session settings).
  29. echo -
  30. echo -    If the problem remains, please advise the author at
  31. echo -
  32. echo -    Internet email address     if no reply, write to    Fred Kantor
  33. echo -    fred.kantor@factory.com                             523 West 112 Street
  34. echo -                                                        New York, NY 10025
  35. echo -
  36. if exist register.key goto rk1
  37. echo - Note: GETLOOK lets you run an unregistered copy of FWKCS, with a copy of
  38. echo -       REGISTER.FRM in the same directory with FWKCS.EXE. You can put the
  39. echo -       directory on your PATH, so that GETLOOK can call FWKCS from anywhere
  40. echo -       on your system.
  41. echo -
  42. echo - The suggested test time is two weeks. To register, see REGISTER.FRM.
  43. echo -                            ~~~~~~~~~
  44. :rk1
  45. pause
  46. cls
  47. echo - Part of FWKCS(TM) Contents_Signature System, Version 1.23.
  48. echo - (C)Copyright Frederick W. Kantor 1989-1993. All rights reserved.
  49. echo -
  50. echo - Your use of the FWKCS(TM) Contents_Signature System is at solely your own
  51. echo - risk.  For safety, please have proper backups of your files.
  52. echo -
  53. echo - GETLOOK.BAT to access the remote lookup functions in the FWKLU123.ZIP kit;
  54. echo -             for use in the same directory with FWKLU.123 and FWKLU_TM.123.
  55. echo -
  56. echo -
  57. echo - Usage:      GETLOOK "<enter>"
  58. echo -
  59. if "%1" == "/*" goto end0
  60. echo -
  61. echo -
  62. echo -  To quit, press Ctrl+C, then y
  63. echo -
  64. pause
  65. if not exist fwklu.123 goto nd
  66. if not exist fwklu_tm.123 goto cm
  67. ren fwklu_tm.123 fwklu_tm.com > nul
  68. fwklu_tm < fwklu.123 > fwklutmp.123
  69. if errorlevel 1 goto fbad
  70. ren fwklu_tm.com fwklu_tm.123 > nul
  71. pkunzip -o fwklutmp.123 fwkcs.exe fwkcs123.h0? lookup.bat rcrosref.bat lookup.doc register.doc register.frm > nul
  72. if errorlevel 51 goto fz
  73. if errorlevel 50 goto ns
  74. if errorlevel 1 goto fz
  75. if not exist register.key goto nk
  76. fwkcs /register[+register.key]
  77. fwkcs /register > nul
  78. if errorlevel 98 goto dk
  79. goto end
  80. :dk
  81. echo -
  82. echo -  Your REGISTER.KEY file was apparently defective.
  83. echo -
  84. echo -  Continuing in unregistered mode...
  85. echo -
  86. :nk
  87. fwkcs
  88. if errorlevel 99 goto end
  89. echo -
  90. echo -  Bad system date!
  91. echo -
  92. echo -  Execution aborted!
  93. echo -
  94. echo -  After you have set your computer system's date to today's date,
  95. goto delbad
  96. :ns
  97. echo -
  98. echo - Not enough space to work in. After you provide more space...
  99. goto delbad
  100. :fz
  101. echo -
  102. echo - Error getting files.
  103. :delbad
  104. if exist fwkcs.exe del fwkcs.exe > nul
  105. if exist fwkcs123.h0? del fwkcs123.h0? > nul
  106. if exist lookup.bat del lookup.bat > nul
  107. if exist rcrosref.bat del rcrosref.bat > nul
  108. if exist lookup.doc del lookup.doc > nul
  109. if exist register.doc del register.doc > nul
  110. if exist register.frm del register.frm > nul
  111. goto try
  112. :fbad
  113. ren fwklu_tm.com fwklu_tm.123 > nul
  114. echo -
  115. echo -  FWKLU.123 appears defective or incompatible. Execution aborted.
  116. :try
  117. echo -
  118. echo -  Please clean up, and try again. See README.TXT.
  119. goto end0
  120. :cm
  121. echo -
  122. echo -  I need FWKLU_TM.123.
  123. echo -
  124. echo -        I quit!
  125. goto end0
  126. :nd
  127. echo -
  128. echo -    Nothing to do!
  129. :end0
  130. echo -
  131. :end
  132. if exist fwklutmp.123 del fwklutmp.123 > nul
  133.