home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / batch / library / stackey3 / budemo.bat < prev    next >
Encoding:
DOS Batch File  |  1990-03-25  |  4.0 KB  |  140 lines
  1. :Batutil c(o) 1990 Barry Simon and Richard Wilson
  2. : Version 1.0
  3. echo off
  4. goto code
  5. :echo1
  6.  
  7.  
  8. This batch file demonstrates what you can do with BATUTIL, a shareware program
  9. to enhance your batch files.  Everything that you see, hear and do until you
  10. exit is done with DOS tools and BATUTIL.
  11.  
  12. Now hit a key to continue.
  13. :echo2
  14.  
  15. I would like to save your environment to envirn.tmp and
  16.      later restore it but that file exists
  17.    May I erase it (Y/N)?
  18. :echo3
  19. The menu below is made with BATUTIL.  Use arrow keys and <Enter> or Highlit
  20.   letters to choose; even use a mouse if you have one.
  21. :echo4
  22.  
  23. BATUTIL will report on the environment, allow interactive editing and has
  24.   batch commands.  We'll first show you your environment, then call you
  25.   into the environment editor and show you your environment again.  Don't
  26.   worry about changing the environment; we'll restore it at the end of this
  27.   batch file.
  28.  
  29. Now hit a key
  30.  
  31.  
  32. :fmain
  33. Menu demonstration
  34. Equipment determination
  35. Input from User
  36. controlling the enVironment
  37. Display tools
  38. Color demo
  39. Sounds
  40. Under the covers
  41. eXit
  42. @
  43. Explore the options available when you make menus with BATUTIL
  44. A sample of some of the hardware information you can determine with BATUTIL
  45. Input from the user includes but goes way beyond Y/N questions
  46. List, edit and otherwise manipulate the DOS environment area
  47. See what you can do to your screens with BATUTIL
  48. See all the colors in a simple panel made with BATUTIL
  49. Hear more of BATUTIL's repitoire of sounds and tunes
  50. Call up BATUTIL's help and explore how it works
  51. Come back again soon, hear!
  52. :code
  53. if not exist batutil.exe goto nobatu
  54. set cur=off
  55. BATUTIL {CL}{RO 3}{CO 5}{EC CTRLALT$S}{SO 15}{EC Associates}{GE WA1}{SO 14}{EC proudly present$_$_}{CO 12}
  56. BATUTIL {SO 18}{BP @1BB@1Ea@19t@1Au@1Ft@1Ci@1Dl}{SO 19}{FE %0 echo1}{AS}
  57. set cur=
  58. if not exist envirn.tmp goto efileOK
  59. BATUTIL {CU -}{FE %0 echo2}{CU +}{GE Y N}
  60. if errorlevel 2 goto end
  61. erase envirn.tmp >nul
  62. :efileOK
  63. BATUTIL {set cur=}{SA envirn.tmp}{KI}{set foo=bar}[@E] >nul
  64. if not errorlevel 136 goto env2smll
  65. if not %foo%==bar goto envprob
  66. set foo=
  67. rem The set a, etc is to allow a large environemt in the shells made
  68. rem  with command/c; those files starts with set a= to recover
  69. rem  the space.
  70. set a=aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
  71. set b=aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
  72. set bu$=I paid
  73. set cur=off
  74. BATUTIL {AT 0F}{CL}{FE %0 echo3}{MH BATUTIL SAMPLER}{FM %0 fmain}
  75. goto menu%rc%
  76. :mainmenu
  77. BATUTIL {AT 0F}{CL}{MH BATUTIL SAMPLER}{FM %0 fmain}
  78. goto menu%rc%
  79. :menu1
  80. %comspec%/c menudemo ok
  81. goto mainmenu
  82. :menu2
  83. %comspec%/c equip frommain
  84. goto mainmenu
  85. :menu3
  86. %comspec%/c inputdem frommain
  87. goto mainmenu
  88. :menu4
  89. BATUTIL {LO envirn.tmp}>nul
  90. set bu$=I paid
  91. BATUTIL {CL}{FE %0 echo4}{AS}{EN}{EC $_Hit a key for environment editor}{AS}{ED}
  92. BATUTIL {EN}{EC $_Hit a key to return to main menu}{AS}{KI}
  93. set a=aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
  94. set b=aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
  95. set bu$=I paid
  96. set cur=off
  97. goto mainmenu
  98. :menu5
  99. %comspec%/c showdemo
  100. goto mainmenu
  101. :menu6
  102. %comspec%/c colordem
  103. goto mainmenu
  104. :menu7
  105. %comspec%/c soundemo
  106. goto mainmenu
  107. :menu8
  108. batutil ?
  109. goto mainmenu
  110. :envprob
  111. cls
  112. echo Problem setting up environment for this demo.  Sorry.
  113. goto end
  114. :env2smll
  115. cls
  116. echo Environment too small to run this demo.  Sorry.
  117. echo   If you have DOS 3.2 or higher, type in
  118. echo      command /e:512
  119. echo    at the DOS command line, run budemo again and afterwards
  120. echo    type "exit" at the command line.
  121. echo    
  122. echo   Otherwise, you must have a directory other than the root in
  123. echo    your COMSPEC.  Change COMSPEC to something like
  124. echo       comspec=C:\command.com
  125. echo   and try budemo again.
  126. BATUTIL {LO envirn.tmp} >nul
  127. erase envirn.tmp >nul
  128. goto end
  129. :menu0
  130. :menu9
  131. BATUTIL {LO envirn.tmp} >nul
  132. erase envirn.tmp >nul
  133. batutil I
  134. goto end
  135. :nobatu
  136. echo  BATUTIL.EXE must be in the default directory for this demo to run
  137. echo   Please copy it here and rerun
  138. :end
  139.  
  140.