Category : Databases and related files
Archive   : LCBATIMP.ZIP
Filename : LCBATIMP.BAT

@ECHO OFF
REM LC.BAT - Batch file to run LogiCat Disk Catalogger
REM by : Jesse W. Jackson
REM 443 Mali Court
REM Millersville, Md.
REM 21108
REM For DOS 3.3 or higher, if you have 3.2 or lower:
REM remove the "@" character at the beginning of the first line.
REM Replace CALL %0 ... with Command /c %0 ...
REM Required Software (available from most BBS's) :
REM LCxx - The LC program, of course!
REM STAKEYxx - stackey program (version 2.0 or higher)
REM Optional Software
REM If you do not have these, delete or REM out the lines referencing them.
REM Pushdir/Popdir - PCMagazine utility
REM Mark/Release - available from most BBS's as TSRCOMxx

:BEGIN
IF "%1"=="pass2" GOTO Pass2
pushdir

:Pass1
REM AUTOMATED LIST IMPORT- this section passes import parameters to the
REM second pass.
REM Parameters for second pass :
REM %0 This batch file, whatever you name it.
REM %1 pass2 - always DO NOT CHANGE, MUST BE LOWER case.
REM %2 Number (0-5) of 14 second waits while LC is reading import file.
REM Required because LC scans for ESC while reading the import file,
REM all other characters get lost. Therefore, you need to tell stackey
REM to Wait until it's OK to send the CR @Q sequence to exit.
REM %3 name of file to import.
REM %4 first column of file name in import file.
REM %5 last column of file name/extension in import file.
REM %6 First column of comments in import file.
REM %7 Last column of comments in import file.
REM %8 Y= replace comments N= don't replace A=Ask .
REM %1 %2 %3 %4 %5 %6 %7 %8
CALL %0 pass2 1 LST\APL.LST 01 13 34 999 N
CALL %0 pass2 1 LST\BusySig.LST 01 13 32 999 N
CALL %0 pass2 1 LST\JWJ_CAT.LST 01 13 16 999 N
CALL %0 pass2 1 LST\DataTrax.LST 01 13 34 999 N
CALL %0 pass2 1 LST\LostAtC.LST 01 13 33 999 N
CALL %0 pass2 3 LST\ProgCorn.LST 01 13 34 999 N
CALL %0 pass2 1 LST\SarComm.LST 01 13 22 999 N
CALL %0 pass2 1 LST\SubLight.LST 01 13 31 999 N
CALL %0 pass2 1 LST\SyncPoin.LST 01 13 25 999 N
CALL %0 pass2 1 LST\Solution.LST 27 39 40 999 N
CALL %0 pass2 1 LST\SWProd.LST 01 13 39 999 N
CALL %0 pass2 1 LST\TWP.LST 01 13 34 999 N
CALL %0 pass2 1 LST\WordPerf.LST 01 13 39 999 N
GOTO END

:Pass2
mark lci
stackey "@U" CR DA "%3" CR "%4" CR "%5" CR "%6" CR "%7" CR "%8" CR F0
FOR %%c IN ( 0 1 2 3 4 5 ) DO IF "%%c"=="%2" GOTO Wait%2
GOTO WAIT0
:WAIT5
stackey W255
:WAIT4
stackey W255
:WAIT3
stackey W255
:WAIT2
stackey W255
:WAIT1
stackey W255
:WAIT0
stackey CR "@Q" CR
lc
release lci
GOTO ENDSUB

:END
popdir
:ENDSUB
REM end of batch file.