home *** CD-ROM | disk | FTP | other *** search
/ Share Gallery 1 / share_gal_1.zip / share_gal_1 / UT / UT214.ZIP / SEBFU40.LZH / DEMO.BAT < prev    next >
DOS Batch File  |  1991-10-03  |  4KB  |  214 lines
  1. ECHO off
  2. ENVSIZE VAR /R
  3. SETERR=%VAR%
  4. IF ERRORLEVEL 40 GOTO START
  5. ECHO This Demo Requires at least 40 bytes of free Environment Space
  6. ECHO We suggest you use the following line in your CONFIG.SYS file
  7. ECHO  
  8. ECHO SHELL=C:\COMMAND.COM /P /E:512
  9. ECHO  
  10. ECHO The '/P' is a must, the number after 'E:' may be any number from
  11. ECHO 128 (DOS default is 160) thru 32,000 (no comma). You may also specify
  12. ECHO a different drive (after the 'SHELL=') and shell, such as 4DOS.
  13. ECHO  
  14. goto xit
  15. :start
  16. TC
  17. window 1 1 25 80 /F7 /B1
  18. locate 3 12
  19. bigltr SCANLON
  20. locate 14 1
  21. bigltr ENTRPRISES
  22. wait /S2
  23. :uphalf1
  24. for %%f in (1 1 1 1 1 1 1 1 1 1 1 1) do window 1 1 25 80 /F7 /B1 /L1
  25. :present
  26. locate 15 8
  27. bigltr PRESENTS
  28. wait /S2
  29. :uphalf2
  30. for %%f in (1 1 1 1 1 1 1 1 1 1 1 1) do window 1 1 25 80 /B4 /F15 /L1
  31. :presnt2
  32. locate 15 4
  33. bigltr S E B F U
  34. wait /S2
  35. :downhlf1
  36. for %%f in (1 1 1 1 1 1 1 1 1 1 1 1 1) do window 1 1 25 80 /f0 /b4 /L1 /D1
  37. :pow1
  38. locate 2 8
  39. bigltr POWERFUL
  40. wait /S2
  41. WINDOW 9 1 25 80 /F0 /B7
  42. locate 10 1
  43. bigltr BATCH FILE
  44. WINDOW 18 1 25 80 /F0 /B1
  45. locate 18 4
  46. bigltr UTILITIES
  47. wait /S3
  48. rem set add=
  49. :part2
  50. window 1 1 25 80 /b1 /f7
  51. window 1 1 1 80 /b4 /f14
  52. LOCATE 1 10
  53. write Scanlon Enterprises   SEBFU  Version 4.0  (C) 1989,1990,1991
  54. window 4 6 24 76 /b4 /f15
  55. locate 4 6
  56. box /l19 /w69
  57. set ind=am
  58. wtime /H /VHR
  59. for %%f in (1 2 3 4 5 6 7 8 9 10 11 12) do if %hr%==%%f goto smin
  60. set ind=pm
  61. :mkpm
  62. math /Vhr /-12
  63. :smin
  64. wtime /M /VMIN
  65. locate 5 8
  66. write The System Time is :             %hr%:%min% %ind%
  67. locate 6 8
  68. write The System Date is :
  69. SET IND=
  70. SET MIN=
  71. SET HR=
  72. td /D6 40
  73. set tst=doesn't support
  74. KBTEST
  75. if errorlevel 1 set tst=supports
  76. locate 7 8
  77. write System Bios %tst% the 101 type keyboard
  78. set tst=is not
  79. cdck
  80. if errorlevel 1 set tst=is
  81. locate 8 8
  82. write The CD-ROM driver %tst% installed
  83. set tst=is not
  84. detansi
  85. if errorlevel 1 set tst=is
  86. locate 9 8
  87. write The ANSI driver %tst% installed
  88. set tst=
  89. drvck c:
  90. if not errorlevel 1 goto noc
  91. dfree C: SIZE /M
  92. locate 10 8
  93. write There are %size% Megabytes available on drive C:
  94. goto dlst
  95. :noc
  96. locate 10 8
  97. write Drive C: does not exist
  98. :dlst
  99. set size=
  100. drvlst DRIVES
  101. locate 11 8
  102. write Drives "%drives%" are available
  103. set drives=
  104. envsize SIZE
  105. locate 12 8
  106. write The DOS environment has %SIZE% bytes
  107. set size=
  108. envsize SIZE /R
  109. locate 13 8
  110. write The DOS environment has %SIZE% bytes remaining
  111. set size=
  112. GMEM /V
  113. locate 14 8
  114. WRITE Your system has %RAM% conventional ram
  115. SET RAM=
  116. GMEM /V /R
  117. LOCATE 15 8
  118. write Your system has %RAM% Bytes remaining
  119. SET RAM=
  120. gdir
  121. LOCATE 16 8
  122. write The current path is %dir%
  123. set dir=
  124. gdrive
  125. if errorlevel 0 set drv=A
  126. if errorlevel 1 set drv=B
  127. if errorlevel 2 set drv=C
  128. if errorlevel 3 set drv=D
  129. if errorlevel 4 set drv=E
  130. if errorlevel 5 set drv=F
  131. LOCATE 17 8
  132. write The current drive is %drv%:
  133. set drv=
  134. getver V
  135. write /r18/C8,The current DOS version is %VER%
  136. set VER=
  137. gsmode
  138. if errorlevel 8 goto graph
  139. if errorlevel 7 goto mono
  140. if errorlevel 4 goto graph
  141. if errorlevel 3 goto cgac
  142. if errorlevel 2 goto cgam
  143. if errorlevel 1 goto cga4c
  144. LOCATE 18 8
  145. write Your system is in 40x25 black & white
  146. goto lim
  147. :graph
  148. LOCATE 18 8
  149. write Your system is in graphics mode
  150. goto lim
  151. :mono
  152. LOCATE 18 8
  153. write Your system is in monochrome mode
  154. goto lim
  155. :cgac
  156. LOCATE 18 8
  157. write Your system is in 25x80 CGA color mode
  158. goto lim
  159. :cgam
  160. LOCATE 18 8
  161. write Your system is in 25x80 CGA black & white mode
  162. goto lim
  163. :cga4c
  164. LOCATE 18 8
  165. write Your system is in 25x40 color mode
  166. :lim
  167. limck
  168. if errorlevel 0 set lim=is not
  169. if errorlevel 1 set lim=is
  170. LOCATE 19 8
  171. write The expanded memory driver %lim% installed
  172. mouseck
  173. if errorlevel 0 set lim=is not
  174. if errorlevel 1 set lim=is
  175. LOCATE 20 8
  176. write The mouse driver %lim% installed
  177. set lim=
  178. page
  179. for %%f in (0 1 2 3 4 5 6 7 8 9) do if errorlevel %%f set pg=%%f
  180. LOCATE 18 50
  181. write video page %pg%
  182. set pg=
  183. xmsck
  184. if errorlevel 0 set ck=is not
  185. if errorlevel 1 set ck=is
  186. LOCATE 21 8
  187. write The extended memory manager %ck% installed
  188. set ck=
  189. LOCATE 23 8
  190. write Press [ENTER] to continue
  191. BEEP
  192. TC
  193. CR
  194. :part3a
  195. cls
  196. locate 1 1
  197. copy msg1 con>nul
  198. :keyw1
  199. KSTAT
  200. if errorlevel 1 goto part3
  201. wait /S2
  202. locate 1 1
  203. invert
  204. KSTAT
  205. if errorlevel 1 goto part3
  206. wait /S2
  207. goto keyw1
  208. :part3
  209. clrkey
  210. :xit
  211. set var=
  212. CURSOR
  213. CLS
  214.