home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / PROG / BASIC / BASWIND8.ZIP / MAKELIB.BAT < prev    next >
Encoding:
DOS Batch File  |  1990-09-14  |  6.1 KB  |  212 lines
  1. ECHO OFF
  2. CLS
  3. ECHO          QuickBASIC WINDOW TOOLS Version 8.0 , SEPT 1990
  4. ECHO  
  5. ECHO  BY: James P. Morgan, 5226 Via Hacienda #115, Orlando Fl, 32809, U.S.A.
  6. ECHO  
  7.  
  8. REM You need to be in the same directory as QuickBasic 4.5 or have
  9. REM a PATH= pointing to its sub-directory.
  10. REM
  11. ECHO 
  12. ECHO  
  13. ECHO ** Creating the .OBJ files of BASWIND for the '.SUB' sub-programs.
  14. ECHO  
  15.  
  16. BC BARMENU.SUB/O/S;   >$$WIND.TXT
  17.  
  18. REM you can add any ERRORLEVEL checking as you see fit
  19.  
  20. BC CALENDAR.SUB  /O/S; >>$$WIND.TXT
  21. IF ERRORLEVEL 1 ECHO ERROR during compile of .SUB  modules
  22. IF ERRORLEVEL 1 GOTO ABORT
  23.  
  24. BC CALENDR3.SUB  /O/S; >>$$WIND.TXT
  25. IF ERRORLEVEL 1 ECHO ERROR during compile of .SUB  modules
  26. IF ERRORLEVEL 1 GOTO ABORT
  27.  
  28. BC CAUTION.SUB   /O/S; >>$$WIND.TXT
  29. IF ERRORLEVEL 1 ECHO ERROR during compile of .SUB  modules
  30. IF ERRORLEVEL 1 GOTO ABORT
  31.  
  32. BC FULLMENU.SUB  /O/S; >>$$WIND.TXT
  33. IF ERRORLEVEL 1 ECHO ERROR during compile of .SUB  modules
  34. IF ERRORLEVEL 1 GOTO ABORT
  35.  
  36. BC KEYCAL.SUB    /O/S; >>$$WIND.TXT
  37. IF ERRORLEVEL 1 ECHO ERROR during compile of .SUB  modules
  38. IF ERRORLEVEL 1 GOTO ABORT
  39.  
  40. BC MAKEWIND.SUB  /O/S; >>$$WIND.TXT
  41. IF ERRORLEVEL 1 ECHO ERROR during compile of .SUB  modules
  42. IF ERRORLEVEL 1 GOTO ABORT
  43.  
  44. BC MENU123.SUB   /O/S; >>$$WIND.TXT
  45. IF ERRORLEVEL 1 ECHO ERROR during compile of .SUB  modules
  46. IF ERRORLEVEL 1 GOTO ABORT
  47.  
  48. BC POPDIR.SUB    /O/S; >>$$WIND.TXT
  49. IF ERRORLEVEL 1 ECHO ERROR during compile of .SUB  modules
  50. IF ERRORLEVEL 1 GOTO ABORT
  51.  
  52. BC POPLIST.SUB   /O/S; >>$$WIND.TXT
  53. IF ERRORLEVEL 1 ECHO ERROR during compile of .SUB  modules
  54. IF ERRORLEVEL 1 GOTO ABORT
  55.  
  56. BC POPMENU.SUB   /O/S; >>$$WIND.TXT
  57. IF ERRORLEVEL 1 ECHO ERROR during compile of .SUB  modules
  58. IF ERRORLEVEL 1 GOTO ABORT
  59.  
  60. BC QUESTION.SUB  /O/S; >>$$WIND.TXT
  61. IF ERRORLEVEL 1 ECHO ERROR during compile of .SUB  modules
  62. IF ERRORLEVEL 1 GOTO ABORT
  63.  
  64. BC ROW25.SUB     /O/S; >>$$WIND.TXT
  65. IF ERRORLEVEL 1 ECHO ERROR during compile of .SUB  modules
  66. IF ERRORLEVEL 1 GOTO ABORT
  67.  
  68. BC SCROLL.SUB    /O/S; >>$$WIND.TXT
  69. IF ERRORLEVEL 1 ECHO ERROR during compile of .SUB  modules
  70. IF ERRORLEVEL 1 GOTO ABORT
  71.  
  72. BC SETQUAD.SUB   /O/S; >>$$WIND.TXT
  73. IF ERRORLEVEL 1 ECHO ERROR during compile of .SUB  modules
  74. IF ERRORLEVEL 1 GOTO ABORT
  75.  
  76. BC TAGDIR.SUB    /O/S; >>$$WIND.TXT
  77. IF ERRORLEVEL 1 ECHO ERROR during compile of .SUB  modules
  78. IF ERRORLEVEL 1 GOTO ABORT
  79.  
  80. BC TAGLIST.SUB   /O/S; >>$$WIND.TXT
  81. IF ERRORLEVEL 1 ECHO ERROR during compile of .SUB  modules
  82. IF ERRORLEVEL 1 GOTO ABORT
  83.  
  84. BC TITLE.SUB     /O/S; >>$$WIND.TXT
  85. IF ERRORLEVEL 1 ECHO ERROR during compile of .SUB  modules
  86. IF ERRORLEVEL 1 GOTO ABORT
  87.  
  88. BC WAIT.SUB      /O/S; >>$$WIND.TXT
  89. IF ERRORLEVEL 1 ECHO ERROR during compile of .SUB  modules
  90. IF ERRORLEVEL 1 GOTO ABORT
  91.  
  92. BC WARNING.SUB   /O/S; >>$$WIND.TXT
  93. IF ERRORLEVEL 1 ECHO ERROR during compile of .SUB  modules
  94. IF ERRORLEVEL 1 GOTO ABORT
  95.  
  96. BC QUERY.SUB     /O/S; >>$$WIND.TXT
  97. IF ERRORLEVEL 1 ECHO ERROR during compile of .SUB  modules
  98. IF ERRORLEVEL 1 GOTO ABORT
  99.  
  100. ECHO 
  101. ECHO  
  102. ECHO ** Creating/Replacing the WINDQB45 object library from the object modules.
  103. ECHO  
  104.  
  105. pause
  106. REM LIB does a 'replace' of the module , so dont worry about an 'error'
  107. REM message the first time you 'add/replace' a module.
  108. LIB windqb45-+BARMENU;  >>$$WIND.TXT
  109. LIB windqb45-+CALENDAR; >>$$WIND.TXT
  110. LIB windqb45-+CALENDR3; >>$$WIND.TXT
  111. LIB windqb45-+CAUTION;  >>$$WIND.TXT
  112. LIB windqb45-+FULLMENU; >>$$WIND.TXT
  113. LIB windqb45-+KEYCAL;   >>$$WIND.TXT
  114. LIB windqb45-+MAKEWIND; >>$$WIND.TXT
  115. LIB windqb45-+MENU123;  >>$$WIND.TXT
  116. LIB windqb45-+POPDIR;   >>$$WIND.TXT
  117. LIB windqb45-+POPLIST;  >>$$WIND.TXT
  118. LIB windqb45-+POPMENU;  >>$$WIND.TXT
  119. LIB windqb45-+QUESTION; >>$$WIND.TXT
  120. LIB windqb45-+ROW25;    >>$$WIND.TXT
  121. LIB windqb45-+SCROLL;   >>$$WIND.TXT
  122. LIB windqb45-+SETQUAD;  >>$$WIND.TXT
  123. LIB windqb45-+TAGDIR;   >>$$WIND.TXT
  124. LIB windqb45-+TAGLIST;  >>$$WIND.TXT
  125. LIB windqb45-+TITLE;    >>$$WIND.TXT
  126. LIB windqb45-+WAIT;     >>$$WIND.TXT
  127. LIB windqb45-+WARNING;  >>$$WIND.TXT
  128. LIB windqb45-+QUERY;    >>$$WIND.TXT
  129.  
  130. REM Delete the .OBJ modules as part of cleanup, you will need to delete a
  131. REM WINDQB45.BAK also, that was created by LIB.
  132.  
  133. ECHO 
  134. ECHO  
  135. ECHO ** Deleting the .OBJ modules created by the standalone QuickBasic compiler
  136. ECHO  
  137. pause
  138. DEL BARMENU.OBJ    >NUL
  139. DEL CALENDAR.OBJ   >NUL
  140. DEL CALENDR3.OBJ   >NUL
  141. DEL CAUTION.OBJ    >NUL
  142. DEL FULLMENU.OBJ   >NUL
  143. DEL KEYCAL.OBJ     >NUL
  144. DEL MAKEWIND.OBJ   >NUL
  145. DEL MENU123.OBJ    >NUL
  146. DEL POPDIR.OBJ     >NUL
  147. DEL POPLIST.OBJ    >NUL
  148. DEL POPMENU.OBJ    >NUL
  149. DEL QUESTION.OBJ   >NUL
  150. DEL ROW25.OBJ      >NUL
  151. DEL SCROLL.OBJ     >NUL
  152. DEL SETQUAD.OBJ    >NUL
  153. DEL TAGDIR.OBJ     >NUL
  154. DEL TAGLIST.OBJ    >NUL
  155. DEL TITLE.OBJ      >NUL
  156. DEL WAIT.OBJ       >NUL
  157. DEL WARNING.OBJ    >NUL
  158. DEL QUERY.OBJ      >NUL
  159.  
  160. REM You need to be in the same directory as MASM or have a
  161. REM PATH= pointing to its sub-directory.
  162. REM
  163. ECHO 
  164. ECHO  
  165. ECHO ** Creating the .OBJ files of BASWIND from the '.ASM' programs.
  166. ECHO  
  167.  
  168. pause
  169.  
  170. MASM DIR;               >>$$WIND.TXT
  171. MASM FASTPRT;           >>$$WIND.TXT
  172. MASM INT86;             >>$$WIND.TXT
  173. MASM MOUSE;             >>$$WIND.TXT
  174. MASM NEWSCRN;           >>$$WIND.TXT
  175. MASM RESTWIND;          >>$$WIND.TXT
  176. MASM SAVEWIND;          >>$$WIND.TXT
  177.  
  178. ECHO 
  179. ECHO  
  180. ECHO ** Creating/Replacing the WINDQ45 object library from the object modules.
  181. ECHO  
  182.  
  183. REM LIB does a 'replace' of the module , so dont worry about an 'error'
  184. REM message the first time you 'add/replace' a module.
  185. lib windqb45-+dir;      >>$$WIND.TXT
  186. lib windqb45-+fastprt;  >>$$WIND.TXT
  187. lib windqb45-+int86;    >>$$WIND.TXT
  188. lib windqb45-+mouse;    >>$$WIND.TXT
  189. lib windqb45-+newscrn;  >>$$WIND.TXT
  190. lib windqb45-+restwind; >>$$WIND.TXT
  191. lib windqb45-+savewind; >>$$WIND.TXT
  192.  
  193. ECHO 
  194. ECHO  
  195. ECHO ** Deleting the .OBJ modules created by the MASM assembler
  196. ECHO  
  197. pause
  198. DEL DIR.OBJ        >NUL
  199. DEL FASTPRT.OBJ    >NUL
  200. DEL INT86.OBJ      >NUL
  201. DEL MOUSE.OBJ      >NUL
  202. DEL NEWSCRN.OBJ    >NUL
  203. DEL RESTWIND.OBJ   >NUL
  204. DEL SAVEWIND.OBJ   >NUL
  205. CLS
  206. GOTO END
  207.  
  208. :ABORT
  209. ECHO 
  210. ECHO Error occured, please check the $$WIND.TXT file !!!
  211. :END
  212.