home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / comm / rbbs2.zip / UPGRADE.BAT < prev   
DOS Batch File  |  1990-10-28  |  12KB  |  424 lines

  1. ECHO OFF
  2. CLS
  3. IF 1028 == %1 GOTO LEVELOK
  4. ECHO ' Incorrect upgrade version -%1- specified.  Please read the following
  5. ECHO ' before trying again.
  6. :ERROR1
  7. ECHO '
  8. ECHO '  This batch file should be invoked with the command
  9. ECHO '
  10. ECHO '             UPGRADE 1028 XXXXX (SEE NOTE)
  11. ECHO '
  12. ECHO '  "1028" is the parameter passed to this .BAT file that indicates
  13. ECHO '  this is for upgrading RBBS-PC version 17.3A/0923 to 17.3B
  14. ECHO '      And that you are using the .MRG files from RBBS-MRG.ZIP
  15. ECHO '  against the unmodified source code of RBBS-PC version 17.3A/0923
  16. ECHO '
  17. ECHO '  NOTE:  Replace the XXXXX with one of the following:
  18. ECHO '
  19. ECHO ' QB1.02  if using the QuickBasic version 1.02 compiler (recommended)
  20. ECHO ' QB2.01  if using the QuickBasic version 2.01 compiler (recommended)
  21. ECHO ' QB3.00  if using the QuickBasic version 3.00 compiler (recommended)
  22. ECHO ' QB4.5  if using the QuickBasic version 4.5 compiler (acceptable)
  23. ECHO ' IBM2.00 if using the unmodified IBM version 2.00 compiler (acceptable)
  24. ECHO '    NOT Recommended are: QB1.0, QB2.00, QB4.00
  25. ECHO '
  26. ECHO ' YOU MUST USE CAPITAL LETTERS FOR ALL PARAMETERS!
  27. ECHO '
  28. GOTO END
  29. :LEVELOK
  30. IF QB1.00 == %2 GOTO COMPILER
  31. IF QB1.02 == %2 GOTO COMPILER
  32. IF QB2.00 == %2 GOTO COMPILER
  33. IF QB2.01 == %2 GOTO COMPILER
  34. IF QB3.00 == %2 GOTO COMPILER
  35. IF QB4.5 == %2 GOTO COMPILER
  36. IF IBM2.00 == %2 GOTO COMPILER
  37. ECHO ' Incorrect compiler specified!  Read the above before trying again.
  38. GOTO ERROR1
  39. :COMPILER
  40. IF TURBO == %3 GOTO TURBO1
  41. IF COMPILE == %3 GOTO COMPILE1
  42. IF LINK == %3 GOTO TURBO5
  43. CLS
  44. ECHO '  This .BAT file is supplied to assist you in upgrading the un-modified
  45. ECHO '  17.3A/0923 source code to version 17.3B
  46. ECHO '  This .BAT file makes some fundamental assumptions about your
  47. ECHO '  configuration:
  48. ECHO '     1.  BLED version 2.1 or later is available.
  49. ECHO '     2.  2.0 MB of disk storage is available to contain all the
  50. ECHO '         files necessary to apply, compile and link the revised
  51. ECHO '         version of RBBS-PC that contains these temporary fixes.
  52. ECHO '     3.  Either the QuickBASIC (versions 1.02/2.01/3.00/4.5)
  53. ECHO '         or the unmodified IBM Version 2.0 BASIC compiler is available.
  54. ECHO '
  55. ECHO '  There is no "ASSUMED" compiler in this .BAT file.
  56. ECHO '  You have selected the use of the %2 compiler options.
  57. ECHO '
  58. ECHO '  If the above assumptions are incorrect, hit Ctrl-Break to
  59. ECHO '  terminate this batch job.  Otherwise .....
  60. pause
  61. CLS
  62. ECHO '
  63. ECHO '  The UPGRADE.BAT file requires access to:
  64. ECHO '                  BDRIVEC2.OBJ  XMODEM.OBJ   RBBS-PC.BAS   RBBSDV.OBJ
  65. ECHO '  BCOMxx.LIB**    BLED.EXE      LINK.EXE**   RBBSSUB1.BAS  RBBSUTIL.OBJ
  66. ECHO ' (xx=10/20/30/45) GIVEBK31.OBJ  PC-NET.OBJ   RBBSSUB2.BAS  RBBSML.OBJ
  67. ECHO '                  ANSI17.OBJ    QBARCV6.OBJ  RBBSSUB3.BAS  10-NET.OBJ
  68. ECHO '                  RBBSHS.OBJ    BASNOV.OBJ   RBBSSUB4.BAS  FOSSCOMM.OBJ
  69. ECHO '                                             RBBSSUB5.BAS
  70. IF %2 == IBM2.00 GOTO IBM2
  71. IF %2 == QB1.02 GOTO QBB3
  72. IF %2 == QB2.01 GOTO QBB3
  73. IF %2 == QB3.00 GOTO QBB3
  74. IF %2 == QB4.5 GOTO QBB4
  75. ECHO '  BASCOM.EXE**   GWCOM.OBJ**   LKL%13.DAT  RBBS-VAR.BAS
  76. GOTO BYPASS1
  77. :QBB3
  78. ECHO '  QB.EXE**       GWCOM.OBJ**   LKL%13.DAT  RBBS-VAR.BAS
  79. GOTO BYPASS1
  80. :QBB4
  81. ECHO '  BC.EXE**                     LKL%14.DAT  RBBS-VAR.BAS
  82. GOTO BYPASS1
  83. :IBM2
  84. ECHO '  BASCOM.EXE**   IBMCOM.OBJ**                RBBS-VAR.BAS
  85. :BYPASS1
  86. ECHO '  NOTE:  ** indicates files supplied with the BASIC compiler
  87. ECHO '
  88. ECHO '  IF access to these files is not available from the drive and/or
  89. ECHO '  the DOS subdirectory that you are running this .BAT file out of
  90. ECHO '  hit Ctrl-Break to terminate this batch file.  If access to these
  91. ECHO '  files is available to UPGRADE.BAT ......
  92. pause
  93. ECHO '  The following files from RBBS-MRG.ZIP must be unarchived and put
  94. ECHO '  in the same directory as the above pre-existing files:
  95. ECHO '
  96. ECHO '    R-PC%1.MRG      Note:  The "%1" indicates that these are .MRG
  97. ECHO '    RSB1%1.MRG             files to be applied to the unmodified
  98. ECHO '    RSB2%1.MRG             source code for 17.3
  99. ECHO '    RSB3%1.MRG
  100. ECHO '    RSB4%1.MRG
  101. ECHO '    RSB5%1.MRG      RVAR%1.BAS
  102. ECHO '  If all of the above files are available as indicated above....
  103. IF EXIST R-PC%1.MRG GOTO GOTMRG
  104. ECHO '  Merge files not found.  Please put them in the default drive/path.
  105. GOTO END
  106. :GOTMRG
  107. pause
  108. ECHO '  The basic sequence of what is about to happen is:
  109. ECHO '
  110. ECHO '        Original 17.3A/0923          %1.MRG file to upgrade
  111. ECHO '         source code     BLED.CFG         to 17.3B
  112. ECHO '               !             !                !
  113. ECHO '              \!/           \!/              \!/
  114. ECHO '             +---------------------------------+
  115. ECHO '             !             BLED                !======+Modified BAS file
  116. ECHO '             +---------------------------------+              !
  117. ECHO '                                                             \!/
  118. ECHO '                                                   +--------------------+
  119. ECHO '                                                   !   BASIC compiler   !
  120. ECHO '                                                   +--------------------+
  121. ECHO '                                                              !
  122. ECHO '                +----------------------+                     \!/
  123. ECHO '                !         LINK         !+===========Modified OBJ file
  124. ECHO '                +----------------------+
  125. ECHO '                            !
  126. ECHO '                           \!/
  127. ECHO '                  Modified EXE file
  128. ECHO '
  129. ECHO ' If you have reviewed this .BAT file and agree to take the sole
  130. ECHO ' responsibility for what is about to happen .....
  131. PAUSE
  132. :TURBO1
  133. CLS
  134. ECHO ON
  135. RENAME RBBS-VAR.BAS RBBS-VAR.OLD
  136. COPY RVAR%1.BAS RBBS-VAR.BAS
  137. BLED /B/L RBBS-PC.BAS R-PC%1.MRG R-PC%1.BAS  WARNR-PC
  138. BLED /B/L RBBSSUB1.BAS RSB1%1.MRG RSB1%1.BAS WARNSUB1
  139. BLED /B/L RBBSSUB2.BAS RSB2%1.MRG RSB2%1.BAS WARNSUB2
  140. BLED /B/L RBBSSUB3.BAS RSB3%1.MRG RSB3%1.BAS WARNSUB3
  141. BLED /B/L RBBSSUB4.BAS RSB4%1.MRG RSB4%1.BAS WARNSUB4
  142. BLED /B/L RBBSSUB5.BAS RSB5%1.MRG RSB5%1.BAS WARNSUB5
  143. REM RENAME CNFG-VAR.BAS CNFG-VAR.OLD
  144. REM COPY CVAR%1.BAS CNFG-VAR.BAS
  145. REM BLED /B/L CONFIG.BAS   CNFG%1.MRG CNFG%1.BAS WARNCNFG
  146. REM BLED /B/L CNFG-SUB.BAS CSUB%1.MRG CSUB%1.BAS WARNCSUB
  147. ECHO OFF
  148. :COMPILE1
  149. IF QB1.02 == %2 GOTO QB2MAIN
  150. IF QB2.00 == %2 GOTO QB2MAIN
  151. IF QB2.01 == %2 GOTO QB2MAIN
  152. IF QB3.00 == %2 GOTO QB2MAIN
  153. IF QB4.5 == %2 GOTO QB4MAIN
  154. IF IBM2.00 == %2 GOTO IBMMAIN
  155. ECHO ON
  156. BASCOM R-PC%1.BAS,,NUL,/C:4096/O;
  157. ECHO OFF
  158. GOTO MAINEND
  159. :QB2MAIN
  160. ECHO ON
  161. QB R-PC%1.BAS,/C:4096/O/E/S;
  162. ECHO OFF
  163. GOTO MAINEND
  164. :QB4MAIN
  165. ECHO ON
  166. BC R-PC%1.BAS,,NUL,/O/C:4096/S/E/MBF;
  167. ECHO OFF
  168. GOTO MAINEND
  169. :IBMMAIN
  170. ECHO ON
  171. BASCOM R-PC%1.BAS,,NUL,/C:4096/O/N;
  172. ECHO OFF
  173. :MAINEND
  174. IF TURBO == %3 GOTO TURBO2
  175. ECHO ' If any errors were detected in this compile, terminate this batch job
  176. ECHO ' with Ctrl-Break as something is not correct.  Otherwise .....
  177. pause
  178. :TURBO2
  179. IF QB1.02 == %2 GOTO QB2SUB1
  180. IF QB2.01 == %2 GOTO QB2SUB1
  181. IF QB3.00 == %2 GOTO QB2SUB1
  182. IF QB4.5 == %2 GOTO QB4SUB1
  183. IF IBM2.00 == %2 GOTO IBMSUB1
  184. ECHO ON
  185. BASCOM RSB1%1.BAS,,NUL,/X/O;
  186. ECHO OFF
  187. GOTO SUB1END
  188. :QB2SUB1
  189. ECHO ON
  190. QB RSB1%1.BAS,/X/O;
  191. ECHO OFF
  192. GOTO SUB1END
  193. :QB4SUB1
  194. ECHO ON
  195. BC RSB1%1.BAS,,NUL,/X/O/MBF;
  196. ECHO OFF
  197. GOTO SUB1END
  198. :IBMSUB1
  199. ECHO ON
  200. BASCOM RSB1%1.BAS,,NUL,/X/O/N;
  201. ECHO OFF
  202. :SUB1END
  203. IF TURBO == %3 GOTO TURBO3
  204. ECHO ' If any errors were detected in this compile, terminate this batch job
  205. ECHO ' with Ctrl-Break as something is not correct.  Otherwise ....
  206. pause
  207. :TURBO3
  208. IF QB1.02 == %2 GOTO QB2SUB2
  209. IF QB2.01 == %2 GOTO QB2SUB2
  210. IF QB3.00 == %2 GOTO QB2SUB2
  211. IF QB4.5 == %2 GOTO QB4SUB2
  212. IF IBM2.00 == %2 GOTO IBMSUB2
  213. ECHO ON
  214. BASCOM RSB2%1.BAS,,NUL,/O;
  215. ECHO OFF
  216. GOTO SUB2END
  217. :QB2SUB2
  218. ECHO ON
  219. QB RSB2%1.BAS,/O/E;
  220. ECHO OFF
  221. GOTO SUB2END
  222. :QB4SUB2
  223. ECHO ON
  224. BC RSB2%1.BAS,,NUL,/O/E/MBF;
  225. ECHO OFF
  226. GOTO SUB2END
  227. :IBMSUB2
  228. ECHO ON
  229. BASCOM RSB2%1.BAS,,NUL,/O/N;
  230. ECHO OFF
  231. :SUB2END
  232. IF TURBO == %3 GOTO TURBO4
  233. ECHO ' If any errors were detected in this compile, terminate this batch job
  234. ECHO ' with Ctrl-Break as something is not correct.  Otherwise ....
  235. pause
  236. :TURBO4
  237. IF QB1.02 == %2 GOTO QB2SUB3
  238. IF QB2.01 == %2 GOTO QB2SUB3
  239. IF QB3.00 == %2 GOTO QB2SUB3
  240. IF QB4.5 == %2 GOTO QB4SUB3
  241. IF IBM2.00 == %2 GOTO IBMSUB3
  242. ECHO ON
  243. BASCOM RSB3%1.BAS,,NUL,/O;
  244. ECHO OFF
  245. GOTO SUB3END
  246. :QB2SUB3
  247. ECHO ON
  248. QB RSB3%1.BAS,/O/E;
  249. ECHO OFF
  250. GOTO SUB3END
  251. :QB4SUB3
  252. ECHO ON
  253. BC RSB3%1.BAS,,NUL,/O/E/MBF;
  254. ECHO OFF
  255. GOTO SUB3END
  256. :IBMSUB3
  257. ECHO ON
  258. BASCOM RSB3%1.BAS,,NUL,/O/N;
  259. ECHO OFF
  260. :SUB3END
  261. IF TURBO == %3 GOTO TURBO5
  262. ECHO ' If any errors were detected in this compile, terminate this batch job
  263. ECHO ' with Ctrl-Break as something is not correct.  Otherwise ....
  264. pause
  265. :TURBO5
  266. IF QB1.02 == %2 GOTO QB2SUB4
  267. IF QB2.01 == %2 GOTO QB2SUB4
  268. IF QB3.00 == %2 GOTO QB2SUB4
  269. IF QB4.5 == %2 GOTO QB4SUB4
  270. IF IBM2.00 == %2 GOTO IBMSUB3
  271. ECHO ON
  272. BASCOM RSB4%1.BAS,,NUL,/O;
  273. ECHO OFF
  274. GOTO SUB4END
  275. :QB2SUB4
  276. ECHO ON
  277. QB RSB4%1.BAS,/O/E;
  278. ECHO OFF
  279. GOTO SUB4END
  280. :QB4SUB4
  281. ECHO ON
  282. BC RSB4%1.BAS,,NUL,/O/E/MBF;
  283. ECHO OFF
  284. GOTO SUB4END
  285. :IBMSUB4
  286. ECHO ON
  287. BASCOM RSB4%1.BAS,,NUL,/O/N;
  288. ECHO OFF
  289. :SUB4END
  290. IF TURBO == %3 GOTO TURBO6
  291. ECHO ' If any errors were detected in this compile, terminate this batch job
  292. ECHO ' with Ctrl-Break as something is not correct.  Otherwise ....
  293. pause
  294. :TURBO6
  295. IF QB1.02 == %2 GOTO QB2SUB5
  296. IF QB2.01 == %2 GOTO QB2SUB5
  297. IF QB3.00 == %2 GOTO QB2SUB5
  298. IF QB4.5 == %2 GOTO QB4SUB5
  299. IF IBM2.00 == %2 GOTO IBMSUB5
  300. ECHO ON
  301. BASCOM RSB5%1.BAS,,NUL,/O;
  302. ECHO OFF
  303. GOTO SUB5END
  304. :QB2SUB5
  305. ECHO ON
  306. QB RSB5%1.BAS,/O/E;
  307. ECHO OFF
  308. GOTO SUB5END
  309. :QB4SUB5
  310. ECHO ON
  311. BC RSB5%1.BAS,,NUL,/O/E/MBF;
  312. ECHO OFF
  313. GOTO SUB5END
  314. :IBMSUB5
  315. ECHO ON
  316. BASCOM RSB5%1.BAS,,NUL,/O/N;
  317. ECHO OFF
  318. :SUB5END
  319. IF TURBO == %3 GOTO TURBO7
  320. ECHO ' If any errors were detected in this compile, terminate this batch job
  321. ECHO ' with Ctrl-Break as something is not correct.  Otherwise ....
  322. pause
  323. :TURBO7
  324. IF QB4.5 == %2 GOTO QBLINK
  325. IF IBM2.00 == %2 GOTO IBMLINK1
  326. ECHO ON
  327. LINK @LKL%13.DAT
  328. ECHO OFF
  329. GOTO DELETER
  330. :QBLINK
  331. ECHO ON
  332. LINK @LKL%14.DAT
  333. ECHO OFF
  334. GOTO DELETER
  335. :IBMLINK1
  336. LINK R-PC%1+RSB1%1+RSB2%1+RSB3%1+RSB4%1+RSB5%1+IBMCOM+QBARCV6+ANSI17+XMODEM+RBBSML+BDRIVEC2+PC-NET+10-NET+RBBSDV+RBBSUTIL,,,;
  337. :DELETER
  338. IF TURBO == %3 GOTO TURBO8
  339. ECHO ' If any errors were detected in this Link, terminate this batch job
  340. ECHO ' with Ctrl-Break as something is not correct.  Otherwise ....
  341. pause
  342. :TURBO8
  343. GOTO DELETER1
  344. IF QB1.02 == %2 GOTO QB2CNFG
  345. IF QB2.01 == %2 GOTO QB2CNFG
  346. IF QB3.00 == %2 GOTO QB2CNFG
  347. IF QB4.5 == %2 GOTO QB4CNFG
  348. IF IBM2.00 == %2 GOTO IBMCNFG
  349. ECHO ON
  350. BASCOM CNFG%1.BAS,,NUL,/O/E/C:4096/S;
  351. ECHO OFF
  352. GOTO CNFGEND
  353. :QB2CNFG
  354. ECHO ON
  355. QB CNFG%1.BAS,/O/E/C:4096/S;
  356. ECHO OFF
  357. GOTO CNFGEND
  358. :QB4CNFG
  359. ECHO ON
  360. BC CNFG%1.BAS,,NUL,/O/E/C:4096/S;
  361. ECHO OFF
  362. GOTO CNFGEND
  363. :IBMCNFG
  364. ECHO ON
  365. BASCOM CNFG%1.BAS,,NUL,/O/E/C:4096/S;
  366. ECHO OFF
  367. :CNFGEND
  368. IF TURBO == %3 GOTO TURBO9
  369. ECHO ' If any errors were detected in this compile, terminate this batch job
  370. ECHO ' with Ctrl-Break as something is not correct.  Otherwise ....
  371. pause
  372. :TURBO9
  373. IF QB1.02 == %2 GOTO QB2CSUB
  374. IF QB2.01 == %2 GOTO QB2CSUB
  375. IF QB3.00 == %2 GOTO QB2CSUB
  376. IF QB4.5 == %2 GOTO QB4CSUB
  377. IF IBM2.00 == %2 GOTO IBMCSUB
  378. ECHO ON
  379. BASCOM CSUB%1.BAS,,NUL,/O/E/C:4096/S;
  380. ECHO OFF
  381. GOTO CSUBEND
  382. :QB2CSUB
  383. ECHO ON
  384. QB CSUB%1.BAS,/O/E/C:4096/S;
  385. ECHO OFF
  386. GOTO CSUBEND
  387. :QB4CSUB
  388. ECHO ON
  389. BC CSUB%1.BAS,,NUL,/O/E/C:4096;
  390. ECHO OFF
  391. GOTO CSUBEND
  392. :IBMCSUB
  393. ECHO ON
  394. BASCOM CSUB%1.BAS,,NUL,/O/E/C:4096/S;
  395. ECHO OFF
  396. :CSUBEND
  397. IF TURBO == %3 GOTO TURB10
  398. ECHO ' If any errors were detected in this compile, terminate this batch job
  399. ECHO ' with Ctrl-Break as something is not correct.  Otherwise ....
  400. pause
  401. :TURBO10
  402. ECHO OFF
  403. IF QB4.5 == %2 GOTO CQB45LINK
  404. IF IBM2.00 == %2 GOTO CIBMLINK
  405. ECHO ON
  406. LINK CNFG%1+GWCOM+CSUB%1+RBBSUTIL+FOSSCOMM,,,;
  407. ECHO OFF
  408. GOTO DELETER1
  409. :CQB45LINK
  410. ECHO ON
  411. LINK CNFG%1+CSUB%1+RBBSUTIL+FOSSCOMM,,,;
  412. ECHO OFF
  413. GOTO DELETER1
  414. :CIBMLINK
  415. ECHO ON
  416. LINK CNFG%1+IBMCOM+CSUB%1+RBBSUTIL+FOSSCOMM,,,;
  417. :DELETER1
  418. CLS
  419. ECHO OFF
  420. ECHO ' Before using anything created by this .BAT file, make backup copies
  421. ECHO ' of all files that you can not easily re-create.
  422. ECHO ON
  423. :END
  424.