home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The World of Computer Software
/
World_Of_Computer_Software-02-386-Vol-2of3.iso
/
b
/
bc-ntke1.zip
/
DOIT.BAT
< prev
next >
Wrap
DOS Batch File
|
1992-06-25
|
6KB
|
277 lines
;echo off
echo RBBS batch file to upgrade RBBS v17.4 with .MRGs using QB3.0
:Start
if not exist D:\QB3\BLED.EXE goto NoBLED
:CBled0
if not exist CVAR%1.BAS goto CBled1
if exist CNFG-VAR.BAS del CNFG-VAR.BAS
ren CVAR%1.BAS CNFG-VAR.BAS
:CBled1
if not exist CONFIG.BAS goto CBled2
if not exist CNFG%1.MRG goto CBled2
D:\QB3\BLED /B/L CONFIG.BAS CNFG%1.MRG CNFG%1.BAS
del CONFIG.BAS
del CNFG%1.MRG
ren CNFG%1.BAS CONFIG.BAS
:CBled2
if not exist CNFG-SUB.BAS goto RBled0
if not exist CSUB%1.MRG goto RBled0
D:\QB3\BLED /B/L CNFG-SUB.BAS CSUB%1.MRG CSUB%1.BAS
del CNFG-SUB.BAS
del CSUB%1.MRG
ren CSUB%1.BAS CNFG-SUB.BAS
:RBled0
if not exist RVAR%1.BAS goto RBled1
if exist RBBS-VAR.BAS del RBBS-VAR.BAS
ren RVAR%1.BAS RBBS-VAR.BAS
:RBled1
if not exist RBBS-PC.BAS goto RBled2
if not exist R-PC%1.MRG goto RBled2
D:\QB3\BLED /B/L RBBS-PC.BAS R-PC%1.MRG R-PC%1.BAS
del RBBS-PC.BAS
del R-PC%1.MRG
ren R-PC%1.BAS RBBS-PC.BAS
:RBled2
if not exist RBBSSUB1.BAS goto RBled3
if not exist RSB1%1.MRG goto RBled3
D:\QB3\BLED /B/L RBBSSUB1.BAS RSB1%1.MRG RSB1%1.BAS
del RBBSSUB1.BAS
del RSB1%1.MRG
ren RSB1%1.BAS RBBSSUB1.BAS
:RBled3
if not exist RBBSSUB2.BAS goto RBled4
if not exist RSB2%1.MRG goto RBled4
D:\QB3\BLED /B/L RBBSSUB2.BAS RSB2%1.MRG RSB2%1.BAS
del RBBSSUB2.BAS
del RSB2%1.MRG
ren RSB2%1.BAS RBBSSUB2.BAS
:RBled4
if not exist RBBSSUB3.BAS goto RBled5
if not exist RSB3%1.MRG goto RBled5
D:\QB3\BLED /B/L RBBSSUB3.BAS RSB3%1.MRG RSB3%1.BAS
del RBBSSUB3.BAS
del RSB3%1.MRG
ren RSB3%1.BAS RBBSSUB3.BAS
:RBled5
if not exist RBBSSUB4.BAS goto RBled6
if not exist RSB4%1.MRG goto RBled6
D:\QB3\BLED /B/L RBBSSUB4.BAS RSB4%1.MRG RSB4%1.BAS
del RBBSSUB4.BAS
del RSB4%1.MRG
ren RSB4%1.BAS RBBSSUB4.BAS
:RBled6
if not exist RBBSSUB5.BAS goto ABled1
if not exist RSB5%1.MRG goto ArgTest
D:\QB3\BLED /B/L RBBSSUB5.BAS RSB5%1.MRG RSB5%1.BAS
del RBBSSUB5.BAS
del RSB5%1.MRG
ren RSB5%1.BAS RBBSSUB5.BAS
:ArgTest
shift
if %1==Y goto RBBSTest
if %1==y goto RBBSTest
if %1==N goto End
if %1==n goto End
if %1?==? goto End
goto CBled0
:RBBSTest
if not exist RBBS-PC.BAS goto NoPC
if not exist RBBSSUB1.BAS goto NoSUB1
if not exist RBBSSUB2.BAS goto NoSUB2
if not exist RBBSSUB3.BAS goto NoSUB3
if not exist RBBSSUB4.BAS goto NoSUB4
if not exist RBBSSUB5.BAS goto NoSUB5
if not exist RBBS-VAR.BAS goto NoRVAR
if not exist QB.EXE goto NoQB
if not exist BCOM30.LIB goto NoBCOM
if not exist LINK.EXE goto NoLINK
if not exist GWCOM.OBJ goto NoGWCOM
if not exist 10-NET.OBJ goto No10
if not exist BDRIVEC2.OBJ goto NoBD
if not exist FOSSCOMM.OBJ goto NoFOSS
if not exist GIVEBK31.OBJ goto NoGIVE
if not exist PC-NET.OBJ goto NoPCNET
if not exist QBARCV7.OBJ goto NoQBARCV
if not exist RBBSDV.OBJ goto NoDV
if not exist RBBSML.OBJ goto NoML
if not exist RBBSUTIL.OBJ goto NoUTIL
if not exist XMODEM.OBJ goto NoXMOD
if not exist RBBSHS.OBJ goto NoHS
if not exist BASNOV.OBJ goto NoNOV
if not exist ANSI18.OBJ goto NoANSI
:RCompile
echo Compiling RBBS-PC.BAS...
D:\QB3\QB RBBS-PC.BAS,RBBS-PC,NUL,/O/E/S/C:4096;
echo Compiling RBBSSUB1.BAS...
D:\QB3\QB RBBSSUB1.BAS,RBBSSUB1,NUL,/X/O;
echo Compiling RBBSSUB2.BAS...
D:\QB3\QB RBBSSUB2.BAS,RBBSSUB2,NUL,/O/E;
echo Compiling RBBSSUB3.BAS...
D:\QB3\QB RBBSSUB3.BAS,RBBSSUB3,NUL,/O/E;
echo Compiling RBBSSUB4.BAS...
D:\QB3\QB RBBSSUB4.BAS,RBBSSUB4,NUL,/O/E;
echo Compiling RBBSSUB5.BAS...
D:\QB3\QB RBBSSUB5.BAS,RBBSSUB5,NUL,/O/E;
:DoLink
if exist LINK3.DAT del LINK3.DAT
echo RBBS-PC+ >> LINK3.DAT
echo RBBSSUB1+ >> LINK3.DAT
echo RBBSSUB2+ >> LINK3.DAT
echo RBBSSUB3+ >> LINK3.DAT
echo RBBSSUB4+ >> LINK3.DAT
echo RBBSSUB5+ >> LINK3.DAT
echo GWCOM.OBJ+ >> LINK3.DAT
echo QBARCV6+ >> LINK3.DAT
echo ANSI17+ >> LINK3.DAT
echo XMODEM+ >> LINK3.DAT
echo RBBSML+ >> LINK3.DAT
echo BDRIVEC2+ >> LINK3.DAT
echo PC-NET+ >> LINK3.DAT
echo 10-NET+ >> LINK3.DAT
echo RBBSUTIL+ >> LINK3.DAT
echo RBBSDV+ >> LINK3.DAT
echo GIVEBK31+ >> LINK3.DAT
echo RBBSHS+ >> LINK3.DAT
echo BASNOV+ >> LINK3.DAT
echo FOSSCOMM, >> LINK3.DAT
echo RBBS-PC, >> LINK3.DAT
echo NUL, >> LINK3.DAT
echo D:\QB3\BCOM30.LIB /STACK:2048 /EXEPACK >> LINK3.DAT
LINK @LINK3.DAT
:CCompile
if not exist CONFIG.BAS goto End
if not exist CNFG-SUB.BAS goto NoCSUB
if not exist CNFG-VAR.BAS goto NoCVAR
echo Compiling CONFIG.BAS...
D:\QB3\QB CONFIG.BAS,CONFIG,NUL,/O/E/C:4096/S;
echo Compiling CNFG-SUB.BAS...
D:\QB3\QB CNFG-SUB.BAS,CNFG-SUB,NUL,/O/E/C:4096/S;
LINK CONFIG+CNFG-SUB+RBBSUTIL+FOSSCOMM,CONFIG,NUL,D:\QB3\BCOM30.LIB/EXEPACK;
goto End
:NoQB
echo Missing D:\QB3\QB.EXE... Aborted.
goto End
:NoLINK
echo Missing D:\QB3\LINK.EXE... Aborted.
goto End
:NoBLED
echo Missing D:\QB3\BLED.EXE... Aborted.
goto End
:NoGWCOM
echo Missing D:\QB3\GWCOM.OBJ... Aborted.
goto End
:No10
echo Missing 10-NET.OBJ... Aborted.
goto End
:NoANSI
echo Missing ANSI18.OBJ... Aborted.
goto End
:NoBD
echo Missing BDRIVEC2.OBJ... Aborted.
goto End
:NoFOSS
echo Missing FOSSCOMM.OBJ... Aborted.
goto End
:NoGIVE
echo Missing GIVEBK31.OBJ... Aborted.
goto End
:NoPCNET
echo Missing PC-NET.OBJ... Aborted.
goto End
:NoQBARCV
echo Missing QBARCV7.OBJ... Aborted.
goto End
:NoDV
echo Missing RBBSDV.OBJ... Aborted.
goto End
:NoML
echo Missing RBBSML.OBJ... Aborted.
goto End
:NoUTIL
echo Missing RBBSUTIL.OBJ... Aborted.
goto End
:NoXMOD
echo Missing XMODEM.OBJ... Aborted.
goto End
:NoHS
echo Missing RBBSHS.OBJ... Aborted.
goto End
:NoNOV
echo Missing BASNOV.OBJ... Aborted.
goto End
:NoPC
echo Missing RBBS-PC.BAS... Aborted.
goto End
:NoSUB1
echo Missing RBBSSUB1.BAS... Aborted.
goto End
:NoSUB2
echo Missing RBBSSUB2.BAS... Aborted.
goto End
:NoSUB3
echo Missing RBBSSUB3.BAS... Aborted.
goto End
:NoSUB4
echo Missing RBBSSUB4.BAS... Aborted.
goto End
:NoSUB5
echo Missing RBBSSUB5.BAS... Aborted.
goto End
:NoRVAR
echo Missing RBBS-VAR.BAS... Aborted.
goto End
:NoCNFG
echo Missing CONFIG.BAS... Aborted.
goto End
:NoCSUB
echo Missing CNFG-SUB.BAS... Aborted.
goto End
:NoCVAR
echo Missing CNFG-VAR.BAS... Aborted.
goto End
:NoBCOM
echo Missing D:\QB3\BCOM30.LIB... Aborted.
goto End
:End