home *** CD-ROM | disk | FTP | other *** search
/ Hall of Fame / HallofFameCDROM.cdr / oilfield / condor.lzh / DEMOS.BAT < prev    next >
DOS Batch File  |  1991-01-12  |  5KB  |  205 lines
  1. echo off
  2. :again
  3. be demos.dat
  4.  
  5. if errorlevel 9 goto LI
  6. if errorlevel 8 goto BU
  7. if errorlevel 7 goto DD
  8. if errorlevel 6 goto GM
  9. if errorlevel 5 goto GR
  10. if errorlevel 4 goto OM
  11. if errorlevel 3 goto GW
  12. if errorlevel 2 goto PM
  13. if errorlevel 1 goto QUIT
  14.  
  15. :LI
  16. cls
  17. be rowcol 03,01 "All documentation files including this letter"
  18. be rowcol 04,01 "are displayed with LIST.COM.  You can scroll"
  19. be rowcol 05,01 "up and down with the [PgUp], [PgDn] or arrow keys."
  20. be rowcol 06,01 "Press <ESC> or <F10> when finished reading document"
  21. be rowcol 08,00 " "
  22. pause
  23. LIST CONDOR.DOC
  24. goto again
  25.  
  26. :GW
  27. cls
  28. LIST GASWATER.DOC
  29. goto again
  30.  
  31. :PM
  32. cls
  33. LIST WELLINFO.DOC
  34. goto again
  35.  
  36. :GR
  37. cls
  38. LIST RATECALC.DOC
  39. goto again
  40.  
  41. :OM
  42. cls
  43. LIST OILVOL.DOC
  44. goto again
  45.  
  46. :BU
  47. cls
  48. LIST BUILDUP.DOC
  49. cls
  50. be rowcol 03,10 "The buildup program can send graphic output"
  51. be rowcol 04,10 "to either a data file called 'PLOT' or"
  52. be rowcol 05,10 "directly to the printer"
  53. be rowcol 07,10 "Do you want graphs sent directly to printer? (Y/N)"
  54. be ask " ",ny,DEF=n
  55. cls
  56. if not errorlevel 2 goto SKIPBU0
  57. cls
  58. be rowcol 03,01 "SET YOUR PRINTER FOR GRAPHICS OUTPUT"
  59. be rowcol 07,00 " "
  60. PRINTER
  61. :SKIPBU0
  62. cls
  63. be rowcol 16,10 "A few last minute instructions ..."
  64. be rowcol 17,10 "Set your caps lock key on now"
  65. be rowcol 18,10 "Answer YES or NO questions with all capital letters"
  66. be rowcol 19,10 "In other words type in 'YES' or 'NO'"
  67. be rowcol 20,10 "Always put a space between selected points"
  68. be rowcol 21,10 "For example you might select points 'A D'"
  69. be rowcol 24,00 " "
  70. BUILDUP
  71. cls
  72. be rowcol 03,10 "If you saved any graphs to the 'PLOT' file"
  73. be rowcol 04,10 "then you need to print them now."
  74. be rowcol 05,10 "If you printed them directly to the printer"
  75. be rowcol 06,10 "then you should answer 'N' to the next question"
  76. be rowcol 08,10 "Do you want to print these graphs now? (Y/N)"
  77. be ask " ",ny,DEF=n
  78. if not errorlevel 2 goto SKIPBU1
  79. cls
  80. be rowcol 03,01 "SET YOUR PRINTER FOR GRAPHICS OUTPUT"
  81. be rowcol 07,00 " "
  82. PRINTER
  83. cls
  84. PRINT PLOT
  85. :SKIPBU1
  86. cls
  87. be rowcol 03,10 "There are two report files ready to print"
  88. be rowcol 04,10 "The first shows the basic input data"
  89. be rowcol 05,10 "The second shows the calculated results"
  90. be rowcol 07,10 "Do you want to print these reports now? (Y/N)"
  91. be ask " ",ny,DEF=n
  92. if not errorlevel 2 goto SKIPBU2
  93. cls
  94. be rowcol 03,01 "SET YOUR PRINTER FOR TEXT OUTPUT"
  95. be rowcol 07,00 " "
  96. PRINTER
  97. cls
  98. PRINT TABL
  99. cls
  100. PRINT CALC
  101. :SKIPBU2
  102. goto again
  103.  
  104. :DD
  105. cls
  106. LIST DRAWDOWN.DOC
  107. cls
  108. be rowcol 03,10 "The drawdown program can send graphic output"
  109. be rowcol 04,10 "to either a data file called 'PLOT' or"
  110. be rowcol 05,10 "directly to the printer"
  111. be rowcol 07,10 "Do you want graphs sent directly to printer? (Y/N)"
  112. be ask " ",ny,DEF=n
  113. cls
  114. if not errorlevel 2 goto SKIPDD0
  115. cls
  116. be rowcol 03,01 "SET YOUR PRINTER FOR GRAPHICS OUTPUT"
  117. be rowcol 07,00 " "
  118. PRINTER
  119. :SKIPDD0
  120. cls
  121. be rowcol 16,10 "A few last minute instructions ..."
  122. be rowcol 17,10 "Set your caps lock key on now"
  123. be rowcol 18,10 "Answer YES or NO questions with all capital letters"
  124. be rowcol 19,10 "In other words type in 'YES' or 'NO'"
  125. be rowcol 20,10 "Always put a space between selected points"
  126. be rowcol 21,10 "For example you might select points 'A D'"
  127. be rowcol 24,00 " "
  128. DRAWDOWN
  129. cls
  130. be rowcol 03,10 "If you saved any graphs to the 'PLOT' file"
  131. be rowcol 04,10 "then you need to print them now."
  132. be rowcol 05,10 "If you printed them directly to the printer"
  133. be rowcol 06,10 "then you should answer 'N' to the next question"
  134. be rowcol 08,10 "Do you want to print these graphs now? (Y/N)"
  135. be ask " ",ny,DEF=n
  136. if not errorlevel 2 goto SKIPDD1
  137. cls
  138. be rowcol 03,01 "SET YOUR PRINTER FOR GRAPHICS OUTPUT"
  139. be rowcol 07,00 " "
  140. PRINTER
  141. cls
  142. PRINT PLOT
  143. :SKIPDD1
  144. cls
  145. be rowcol 03,10 "There are two report files ready to print"
  146. be rowcol 04,10 "The first shows the basic input data"
  147. be rowcol 05,10 "The second shows the calculated results"
  148. be rowcol 07,10 "Do you want to print these reports now? (Y/N)"
  149. be ask " ",ny,DEF=n
  150. if not errorlevel 2 goto SKIPDD2
  151. cls
  152. be rowcol 03,01 "SET YOUR PRINTER FOR TEXT OUTPUT"
  153. be rowcol 07,00 " "
  154. PRINTER
  155. cls
  156. PRINT TABL
  157. cls
  158. PRINT CALC
  159. :SKIPDD2
  160. goto again
  161.  
  162. :GM
  163. cls
  164. LIST GASMODEL.DOC
  165. cls
  166. be rowcol 03,10 "The gasmodel program can send text output to either"
  167. be rowcol 04,10 "a data file called 'REPT' or directly to the printer"
  168. be rowcol 06,10 "Do you want text output sent directly to printer? (Y/N)"
  169. be ask " ",ny,DEF=n
  170. cls
  171. if not errorlevel 2 goto SKIPGM0
  172. cls
  173. be rowcol 03,01 "SET YOUR PRINTER FOR TEXT OUTPUT"
  174. be rowcol 07,00 " "
  175. PRINTER
  176. :SKIPGM0
  177. cls
  178. be rowcol 18,10 "A few last minute instructions ..."
  179. be rowcol 19,10 "Set your caps lock key on now"
  180. be rowcol 20,10 "Answer YES or NO questions with all capital letters"
  181. be rowcol 23,00 " "
  182. GASMODEL
  183. cls
  184. be rowcol 03,10 "If you saved the output to the 'REPT' file"
  185. be rowcol 04,10 "then you need to print it now."
  186. be rowcol 05,10 "If you printed the reports directly to the printer"
  187. be rowcol 06,10 "then you should answer 'N' to the next question"
  188. be rowcol 08,10 "Do you want to print these reports now? (Y/N)"
  189. be ask " ",ny,DEF=n
  190. if not errorlevel 2 goto SKIPGM1
  191. cls
  192. be rowcol 03,01 "SET YOUR PRINTER FOR TEXT OUTPUT"
  193. be rowcol 07,00 " "
  194. PRINTER
  195. cls
  196. PRINT REPT
  197. :SKIPGM1
  198. cls
  199. goto again
  200.  
  201. :QUIT
  202. cls
  203. exit
  204.  
  205.