@echo off
if "%1" == "/*" goto sc01
cls
if exist QUERYFLA.GUP attrib -r QUERYFLA.GUP > nul
if exist QUERYFLA.GUP del QUERYFLA.GUP > nul
if exist QUERYFLA.GUP goto r1
if exist !@#^^^@@.#!@ attrib -r !@#^^^@@.#!@ > nul
echo hat > !@#^^^@@.#!@
fwkhi < !@#^^^@@.#!@
if not errorlevel 10 goto nhi
del !@#^^^@@.#!@ > nul
:sc01
cls
:usage
echo - For use with FWKCS(TM) Contents_Signature System, Version 1.12.
echo - (C)Copyright Frederick W. Kantor 1991. All rights reserved.
echo -
echo - CSAM.BAT  \CSA Contents_Signature Activity place on_line help Menu,
echo -           for information on special_purpose .BAT and .COM programs, and
echo -           for literature.
echo -
echo - CSAM.BAT is for use in the \CSA subdirectory,
echo -             re .BAT programs, .COM programs, and literature,
echo -
echo -          or elsewhere when \CSA is on PATH,
echo -             re .BAT programs and .COM programs, but not for literature.
echo -
echo - Usage:
echo -          CSAM "<enter>"
echo -
echo - Note: Any .BAT or .COM program in the FWKCS(TM) Contents_Signature System,
echo -   Version 1.12, from FWKCS112.ZIP, can be called without complete execution
echo -   by typing  NAME /* "<enter>" , where NAME is the program's name.
echo -
echo -   Except for YT, ACCESN, ACCZIP, and PCBTEST, any of these .BAT or .COM
echo -   programs provides on_line help in response to  NAME /* "<enter>" .
echo -
if "%1" == "/*" goto zend
echo - To go forward (next screen), press F. To abort (quit), press A.
:ask01
fwkhi
if errorlevel 15 goto sc02s
if errorlevel 11 goto ask01
if errorlevel 10 goto ng1
goto ask01
:sc02s
if exist QUERYFLA.GUP del QUERYFLA.GUP > nul
cls
echo - For material on a selected topic, press the corresponding numeric key...
echo -
echo -   1. Contents_Signature utilities:
echo -      GET.BAT  Y.BAT  ACCESION.BAT  ACCESZIP.BAT  LUT.BAT  PCBTEST.BAT
echo -
echo -   2. Protection: BANAV.BAT  LISTAV.BAT  TESTAV.BAT  EXCLUDE.BAT  WIPE.BAT
echo -
echo -   3. Remote searching:
echo -      LOOKUP.BAT  LOOKUP.DOC  RCROSREF.BAT  PRECHECK.BAT  PRECHECK.DOC
echo -
echo -   4. Modifying FWKCS.COM default settings:
echo -      ADD_G.BAT   ADD_Z_4.BAT   ADD_Z_56.BAT
echo -      REVERT.BAT  SETFWKCS.BAT  SETDRIVE.BAT
echo -
echo -   5. .COM program on_line help:
echo -      FWKCS.COM   FWKDG.COM   FWKDSA.COM ("DSA")   FWKHI.COM
echo -
echo -   6. Literature:
echo -      CONTENTS.112  REGISTER.DOC  WHATSNEW.112  HISTORY.112  FWKCS112.DOC
echo -      FWKCS112.REF  EXAMPLES.112  RECIPES.112   UTILS.112    SETUP.112
echo -
echo -   7. Miscellaneous:  FWKDG108.BAT  DELCSA.BAT
echo -
echo -  B = go Back 1 screen.   A = Abort (quit).
echo inter_.BAT query > QUERYFLA.GUP
:ask02s
fwkhi
if errorlevel 12 goto ask02s
if errorlevel 11 goto sc01
if errorlevel 10 goto ng1
if errorlevel 8 goto ask02s
if errorlevel 7 goto g7
if errorlevel 6 goto g6
if errorlevel 5 goto g5
if errorlevel 4 goto g4
if errorlevel 3 goto g3
if errorlevel 2 goto g2
if errorlevel 1 goto g1
goto ask02s
:sq02
echo -
echo - To browse, press B. To quit (abort), press A.
:sq0a2
fwkhi
if errorlevel 12 goto sq0a2
if errorlevel 11 goto sc02
if errorlevel 10 goto ng1
goto sq0a2
:sc02
if exist QUERYFLA.GUP del QUERYFLA.GUP > nul
:g1
cls
echo - For on_line help from each program, press the corresponding numeric key...
echo -
echo -
echo -   Contents_Signature utilities:
echo -
echo -   1. GET.BAT  for getting entries of matching material.
echo -
echo -   2. Y.BAT    for finding matching material, accessioning new material.
echo -
echo -   3. ACCESION.BAT  accessioning files.
echo -
echo -   4. ACCESZIP.BAT  accessioning zip/non_zip files, unzips zipfiles for
echo -                      virus testing.
echo -   5. LUT.BAT  Local Upload Test; a local, ASCII output, form of "PCBTEST";
echo -                 some on_line help; displays message normally sent to user.
echo -
echo -   PCBTEST.BAT  No on_line help: for machine interface. (See LUT.BAT, above.)
echo -
echo -  D = go to main Directory.  A = Abort (quit).
echo inter_.BAT query > QUERYFLA.GUP
:ask02a
fwkhi
if errorlevel 14 goto ask02a
if errorlevel 13 goto sc02s
if errorlevel 11 goto ask02a
if errorlevel 10 goto ng1
if errorlevel 6 goto ask02a
if errorlevel 5 goto n15
if errorlevel 4 goto n14
if errorlevel 3 goto n13
if errorlevel 2 goto n12
if errorlevel 1 goto n11
goto ask02
:n11
cls
call GET /* ..1.12
if not exist QUERYFLA.GUP goto sq02
echo - did not find/open GET.BAT
goto sq02
:n12
cls
call Y /* ..1.12
if not exist QUERYFLA.GUP goto sq02
echo - did not find/open Y.BAT
goto sq02
:n13
cls
call ACCESION /* ..1.12
if not exist QUERYFLA.GUP goto sq02
echo - did not find/open ACCESION.BAT
goto sq02
:n14
cls
call ACCESZIP /* ..1.12
if not exist QUERYFLA.GUP goto sq02
echo - did not find/open ACCESZIP.BAT
goto sq02
:n15
cls
call LUT /* ..1.12
if not exist QUERYFLA.GUP goto sq02
echo - did not find/open LUT.BAT
goto sq02
:sq22
echo -
echo - To browse, press B. To quit (abort), press A.
:sq2a2
fwkhi
if errorlevel 12 goto sq2a2
if errorlevel 11 goto sc22
if errorlevel 10 goto ng1
goto sq2a2
:sc22
if exist QUERYFLA.GUP del QUERYFLA.GUP > nul
:g2
cls
echo - For on_line help from each program, press the corresponding numeric key...
echo -
echo -
echo -   Protection:
echo -
echo -   1. BANAV.BAT to ban an abused zipfile_Authenticity_Verification stamp.
echo -
echo -   2. LISTAV.BAT to list an AV_stamp for future recognition as not banned.
echo -
echo -   3. TESTAV.BAT to test the status of an AV_stamp.
echo -
echo -   4. EXCLUDE.BAT to exclude material from acceptance, even if renamed.
echo -
echo -   5. WIPE.BAT to mark material for automatic deletion from non_AV zipfiles
echo -                 received as uploads; also for local processing.
echo -
echo -  D = go to main Directory.  A = Abort (quit).
echo inter_.BAT query > QUERYFLA.GUP
:ask22
fwkhi
if errorlevel 14 goto ask22
if errorlevel 13 goto sc02s
if errorlevel 11 goto ask22
if errorlevel 10 goto ng1
if errorlevel 6 goto ask22
if errorlevel 5 goto n25
if errorlevel 4 goto n24
if errorlevel 3 goto n23
if errorlevel 2 goto n22
if errorlevel 1 goto n21
goto ask22
:n21
cls
call BANAV /* ..1.12
if not exist QUERYFLA.GUP goto sq22
echo - did not find/open BANAV.BAT
goto sq22
:n22
cls
call LISTAV /* ..1.12
if not exist QUERYFLA.GUP goto sq22
echo - did not find/open LISTAV.BAT
goto sq22
:n23
cls
call TESTAV /* ..1.12
if not exist QUERYFLA.GUP goto sq22
echo - did not find/open TESTAV.BAT
goto sq22
:n24
cls
call EXCLUDE /* ..1.12
if not exist QUERYFLA.GUP goto sq22
echo - did not find/open EXCLUDE.BAT
goto sq22
:n25
cls
call WIPE /* ..1.12
if not exist QUERYFLA.GUP goto sq22
echo - did not find/open WIPE.BAT
goto sq22
:sq32
echo -
echo - To browse, press B. To quit (abort), press A.
:sq3a2
fwkhi
if errorlevel 12 goto sq3a2
if errorlevel 11 goto sc32
if errorlevel 10 goto ng1
goto sq3a2
:sc32
if exist QUERYFLA.GUP del QUERYFLA.GUP > nul
:g3
cls
echo - For on_line help from each program, press the corresponding numeric key...
echo -
echo -
echo -   Remote searching:
echo -
echo -   1. LOOKUP.BAT remote contents_signature search, regardless of name.
echo -
echo -   2. LOOKUP.DOC (call only in \CSA subdirectory).
echo -
echo -   3. RCROSREF.BAT remote follow_up on contents_signature cross_references.
echo -
echo -   4. PRECHECK.BAT to help avoid downloading material you already have.
echo -
echo -   5. PRECHECK.DOC (call only in \CSA subdirectory).
echo -
echo -
echo -  D = go to main Directory.  A = Abort (quit).
echo inter_.BAT query > QUERYFLA.GUP
:ask32
fwkhi
if errorlevel 14 goto ask32
if errorlevel 13 goto sc02s
if errorlevel 11 goto ask32
if errorlevel 10 goto ng1
if errorlevel 6 goto ask32
if errorlevel 5 goto n35
if errorlevel 4 goto n34
if errorlevel 3 goto n33
if errorlevel 2 goto n32
if errorlevel 1 goto n31
goto ask32
:n31
cls
call LOOKUP /* ..1.12
if not exist QUERYFLA.GUP goto sq32
echo - did not find/open LOOKUP.BAT
goto sq32
:n32
cls
list LOOKUP.DOC
goto sc32
:n33
cls
call RCROSREF /* ..1.12
if not exist QUERYFLA.GUP goto sq32
echo - did not find/open RCROSREF.BAT
goto sq32
:n34
cls
call PRECHECK /* ..1.12
if not exist QUERYFLA.GUP goto sq32
echo - did not find/open PRECHECK.BAT
goto sq32
:n35
cls
list PRECHECK.DOC
goto sc32
:sq42
echo -
echo - To browse, press B. To quit (abort), press A.
:sq4a2
fwkhi
if errorlevel 12 goto sq4a2
if errorlevel 11 goto sc42
if errorlevel 10 goto ng1
goto sq4a2
:sc42
if exist QUERYFLA.GUP del QUERYFLA.GUP > nul
:g4
cls
echo - For on_line help from each program, press the corresponding numeric key...
echo -
echo -
echo -   Modifying FWKCS.COM default settings:
echo -
echo -   1. ADD_G.BAT  to add the g option for use under Auxiliary Functions 5, 6.
echo -
echo -   2. ADD_Z_4.BAT  to add the z zipfiles_only option for local use.
echo -
echo -   3. ADD_Z_56.BAT  to add the z zipfiles_only option for BBS use.
echo -
echo -   4. REVERT.BAT  to revert all default settings in FWKCS.COM.
echo -
echo -   5. SETFWKCS.BAT  to set FWKCS.COM defaults 1-4,A-F.
echo -
echo -   6. SETDRIVE.BAT  to set FWKCS.COM defaults 1-4.
echo -
echo -
echo -  D = go to main Directory.  A = Abort (quit).
echo inter_.BAT query > QUERYFLA.GUP
:ask42
fwkhi
if errorlevel 14 goto ask42
if errorlevel 13 goto sc02s
if errorlevel 11 goto ask42
if errorlevel 10 goto ng1
if errorlevel 7 goto ask42
if errorlevel 6 goto n46
if errorlevel 5 goto n45
if errorlevel 4 goto n44
if errorlevel 3 goto n43
if errorlevel 2 goto n42
if errorlevel 1 goto n41
goto ask42
:n41
cls
call ADD_G /* ..1.12
if not exist QUERYFLA.GUP goto sq42
echo - did not find/open ADD_G.BAT
goto sq42
:n42
cls
call ADD_Z_4 /* ..1.12
if not exist QUERYFLA.GUP goto sq42
echo - did not find/open ADD_Z_4.BAT
goto sq42
:n43
cls
call ADD_Z_56 /* ..1.12
if not exist QUERYFLA.GUP goto sq42
echo - did not find/open ADD_Z_56.BAT
goto sq42
:n44
cls
call REVERT /* ..1.12
if not exist QUERYFLA.GUP goto sq42
echo - did not find/open REVERT.BAT
goto sq42
:n45
cls
call SETFWKCS /* ..1.12
if not exist QUERYFLA.GUP goto sq42
echo - did not find/open SETFWKCS.BAT
goto sq42
:n46
cls
call SETDRIVE /* ..1.12
if not exist QUERYFLA.GUP goto sq42
echo - did not find/open SETDRIVE.BAT
goto sq42
:sq52
echo - To browse, press B. To quit (abort), press A.
:sq5a2
fwkhi
if errorlevel 12 goto sq5a2
if errorlevel 11 goto sc52
if errorlevel 10 goto ng1
goto sq5a2
:sc52
if exist QUERYFLA.GUP del QUERYFLA.GUP > nul
:g5
cls
echo - For on_line help from each program, press the corresponding numeric key...
echo -
echo -   On_line help from .COM programs:
echo -
echo -   1. FWKCS command_line format, file_manipulation, find, get, timing.
echo -
echo -   2. FWKCS /1 options: contents_signature generation, special functions.
echo -
echo -   3. FWKCS Auxiliary Functions (terse listing), special Column_17 flags,
echo -              credits.
echo -   4. FWKCS default settings, macros;  the d:\path\filename.ext, of the copy
echo -              of FWKCS.COM which was reached, appears near bottom of display.
echo -   5. FWKCS error_levels and related messages.
echo -
echo -   6. FWKCS license and dedication.
echo -
echo -   7. FWKDG for gathering filenames on system, making system directory, etc.
echo -
echo -   8. FWKDSA ("DSA") Directory Spacing Adjust, to parse DOS directory list.
echo -
echo -   9. FWKHI Hexadecimal Input, a .COM utility for input to .BAT programs.
echo -
echo -  D = go to main Directory.  A = Abort (quit).
:ask52
fwkhi
if errorlevel 14 goto ask52
if errorlevel 13 goto sc02s
if errorlevel 11 goto ask52
if errorlevel 10 goto ng1
if errorlevel 9 goto n59
if errorlevel 8 goto n58
if errorlevel 7 goto n57
if errorlevel 6 goto n56
if errorlevel 5 goto n55
if errorlevel 4 goto n54
if errorlevel 3 goto n53
if errorlevel 2 goto n52
if errorlevel 1 goto n51
goto ask52
:n51
cls
fwkcs /*
echo  -
echo -
echo -
echo -
goto sq52
:n52
cls
fwkcs /1*
echo  -
echo -
echo -
echo -
goto sq52
:n53
cls
fwkcs /a
goto sq52
:n54
cls
fwkcs /d
echo         -
goto sq52
:n55
cls
fwkcs /e
echo   -
echo -
goto sq52
:n56
cls
fwkcs /l
echo  -
echo -
echo -
echo -
goto sq52
:n57
cls
fwkdg /*
goto sq52
:n58
cls
dsa /*
echo -
goto sq52
:n59
cls
fwkhi /*
echo -
goto sq52
:sq62
echo -
echo - To browse, press B. To quit (abort), press A.
:sq6a2
fwkhi
if errorlevel 12 goto sq6a2
if errorlevel 11 goto sc62
if errorlevel 10 goto ng1
goto sq6a2
:sc62
if exist QUERYFLA.GUP del QUERYFLA.GUP > nul
:g6
cls
echo - To see this literature, press the corresponding numeric key...
echo -
echo -
echo -   Literature (for use only in \CSA subdirectory):
echo -
echo -   0. CONTENTS.112        5. FWKCS112.REF
echo -
echo -   1. REGISTER.DOC        6. EXAMPLES.112
echo -
echo -   2. WHATSNEW.112        7. RECIPES.112
echo -
echo -   3. HISTORY.112         8. UTILS.112
echo -
echo -   4. FWKCS112.DOC        9. SETUP.112
echo -
echo -
echo -  D = go to main Directory.  A = Abort (quit).
echo inter_.BAT query > QUERYFLA.GUP
:ask62
fwkhi
if errorlevel 14 goto ask62
if errorlevel 13 goto sc02s
if errorlevel 11 goto ask62
if errorlevel 10 goto ng1
if errorlevel 9 goto n69
if errorlevel 8 goto n68
if errorlevel 7 goto n67
if errorlevel 6 goto n66
if errorlevel 5 goto n65
if errorlevel 4 goto n64
if errorlevel 3 goto n63
if errorlevel 2 goto n62
if errorlevel 1 goto n61
list CONTENTS.112
goto sc62
:n61
list REGISTER.DOC
goto sc62
:n62
list WHATSNEW.112
goto sc62
:n63
list HISTORY.112
goto sc62
:n64
list FWKCS112.DOC
goto sc62
:n65
list FWKCS112.REF
goto sc62
:n66
list EXAMPLES.112
goto sc62
:n67
list RECIPES.112
goto sc62
:n68
list UTILS.112
goto sc62
:n69
list SETUP.112
goto sc62
:sq72
echo -
echo - To browse, press B. To quit (abort), press A.
:sq7a2
fwkhi
if errorlevel 12 goto sq7a2
if errorlevel 11 goto sc72
if errorlevel 10 goto ng1
goto sq7a2
:sc72
if exist QUERYFLA.GUP del QUERYFLA.GUP > nul
:g7
cls
echo - For on_line help from each program, press the corresponding numeric key...
echo -
echo -
echo -   Miscelaneous:
echo -
echo -   1. FWKDG108.BAT to make DIRGUIDE.TXT(TM).
echo -
echo -   2. DELCSA.BAT delete and remove the \CSA Contents_Signature
echo -                   Activity place.
echo -
echo -  D = go to main Directory.  A = Abort (quit).
echo inter_.BAT query > QUERYFLA.GUP
:ask72
fwkhi
if errorlevel 14 goto ask72
if errorlevel 13 goto sc02s
if errorlevel 11 goto ask72
if errorlevel 10 goto ng1
if errorlevel 3 goto ask72
if errorlevel 2 goto n72
if errorlevel 1 goto n71
goto ask72
:n71
cls
call FWKDG108 /* ..1.12
if not exist QUERYFLA.GUP goto sq72
echo - did not find/open FWKDG108.BAT
goto sq72
:n72
cls
call DELCSA /* ..1.12
if not exist QUERYFLA.GUP goto sq72
echo - did not find/open DELCSA.BAT
goto sq72
:r1
echo - This program must have the right to create and delete, in this
echo - (sub)directory, a file called QUERYFLA.GUP.
echo -
echo - Programs this program calls must have the right to delete, in this
echo - (sub)directory, the QUERYFLA.GUP file this program creates.
echo -
echo - Please provide those creation and deletion rights,
echo -   and then please try again.
goto ng
:nhi
del !@#^^^@@.#!@ > nul
echo - Where is Dr. Fred Kantor's FWKHI.COM?
:ng
echo -
:ng1
if exist QUERYFLA.GUP del QUERYFLA.GUP > nul
:zend