home *** CD-ROM | disk | FTP | other *** search
/ The SelectWare System Volume 2 #3 / The_SelectWare_System_Series_1_Volume_2_Number_3_Selectware.iso / ash10020 / rfdemo.bat < prev    next >
DOS Batch File  |  1988-06-22  |  6KB  |  192 lines
  1. echo off
  2. cls
  3.       r210
  4.       sg_mem 185
  5.       if errorlevel 1 goto nomem
  6.       goto mem_ok
  7. :nomem
  8.       cls
  9.       echo Sorry, there isn't enough memory currently available
  10.       echo to run the RAPIDFILE demonstration.  You need at least 185k bytes free.
  11.       goto finis
  12. :mem_ok
  13.       sg_dmode
  14.       if errorlevel 8 goto cdisplay
  15.       if errorlevel 7 goto mono
  16.       goto cdisplay
  17. :mono
  18.       cls
  19.       rem r221
  20.       echo  
  21.       echo  
  22.       echo         You can set up this demonstration to run automatically.
  23.       echo  
  24.       echo       Wait 15 seconds without pressing a key and the demonstration
  25.       echo                        will move along on its own.
  26.       echo  
  27.       echo         Or...you can press any key now to view this demonstration
  28.       echo                            at your own pace.
  29.       echo  
  30.       sg_askw 15 c         
  31.       if errorlevel 255 goto mtime
  32.       goto mcontrol
  33. :mtime
  34.       cls
  35.       r222
  36.       _dbtime -mem 70 -xlate 0F0F1F0F1770137030700E0F1E0F7870747040705F70F0F00A0F0C0F2A0F -macros
  37.       goto mreplay
  38. :mcontrol
  39.       cls
  40.       r222
  41.       _dbTime -mem 70 -xlate 0F0F1F0F1770137030700E0F1E0F7870747040705F70F0F00A0F0C0F2A0F -macros -notimeout
  42. :mreplay
  43.       echo  
  44.       echo   Thank you for watching this demonstration of RapidFile from Ashton-Tate
  45.       echo  
  46.       echo         The demonstration will restart automatically in 10 seconds.
  47.       echo  
  48.       echo                  You can press  S  to stop the demo now.
  49.       echo  
  50.       echo                     Or, press any key to restart now.
  51.       echo  
  52.       sg_askw 10 s                               
  53.       if errorlevel 255 goto mono
  54. :chk1
  55.       if errorlevel 2 goto mono
  56.       if errorlevel 1 goto end
  57.       if errorlevel 0 goto mono
  58. :cdisplay
  59.       r210
  60.       echo  
  61.       echo               Can you see  Red  &  Blue  in the box below?
  62.       echo  
  63.       sg_askw 15 yn                      Press  Y  (if you can) or  N :
  64.       if errorlevel 255 goto timeout1
  65. :chk2
  66.       if errorlevel 3 goto nope
  67.       if errorlevel 2 goto bw
  68.       if errorlevel 1 goto color
  69.       if errorlevel 0 goto nope
  70. :nope
  71.       cls
  72.       r210
  73.       echo  
  74.       echo Please, press only the letter  Y  or  N
  75.       echo  
  76.       sg_askw 60 yn .......Type  Y  if you can see Red & Blue,  N  if not :
  77.       if errorlevel 255 goto timeout1
  78.       goto chk2
  79. :timeout1
  80.       echo  
  81.       echo  
  82.       sg_askw 2 a               ...assuming a color monitor.
  83. :color
  84.       cls
  85.       loop rfloop
  86.       rem r221
  87.       echo  
  88.       echo  
  89.       echo         You can set up this demonstration to run automatically.
  90.       echo  
  91.       echo       Wait 15 seconds without pressing a key and the demonstration
  92.       echo                        will move along on its own.
  93.       echo  
  94.       echo  
  95.       echo         Or...you can press any key now to view this demonstration
  96.       echo                            at your own pace.
  97.       echo  
  98.       sg_askw 15 c         
  99.       if errorlevel 255 goto ctime
  100.       goto ccontrol
  101. :ctime
  102.       cls
  103.       r222
  104.       _dbtime -mem 70 -macros
  105.       goto creplay
  106. :ccontrol
  107.       cls
  108.       r222
  109.       _dbtime -notimeout -mem 70 -macros
  110. :creplay
  111.       echo  
  112.       echo   Thank you for watching this demonstration of RapidFile from Ashton-Tate
  113.       echo  
  114.       echo         The demonstration will restart automatically in 10 seconds.
  115.       echo  
  116.       echo                  You can press  S  to stop the demo now.
  117.       echo  
  118.       echo                     Or, press any key to restart now.
  119.       echo  
  120.       sg_askw 10 s                               
  121.       if errorlevel 255 goto color
  122. :chk3
  123.       if errorlevel 2 goto color
  124.       if errorlevel 1 goto end
  125.       if errorlevel 0 goto color
  126. :bw
  127.       cls
  128.       loop rfloop
  129.       rem r221
  130.       echo  
  131.       echo  
  132.       echo         You can set up this demonstration to run automatically.
  133.       echo  
  134.       echo       Wait 15 seconds without pressing a key and the demonstration
  135.       echo                        will move along on its own.
  136.       echo  
  137.       echo  
  138.       echo         Or...you can press any key now to view this demonstration
  139.       echo                            at your own pace.
  140.       echo  
  141.       sg_askw 15 c         
  142.       if errorlevel 255 goto btime
  143.       goto bcontrol
  144. :btime
  145.       cls
  146.       r222
  147.       _dbtime -mem 70 -xlate 0F0F1F0F1770137030700E0F1E0F7870747040705F70F0F00A0F0C0F2A0F -macros
  148.       goto breplay
  149. :bcontrol
  150.       cls
  151.       r222
  152.       _dbtime -mem 70 -xlate 0F0F1F0F1770137030700E0F1E0F7870747040705F70F0F00A0F0C0F2A0F -macros -notimeout
  153. :breplay
  154.       echo  
  155.       echo   Thank you for watching this demonstration of RapidFile from Ashton-Tate
  156.       echo  
  157.       echo         The demonstration will restart automatically in 10 seconds.
  158.       echo  
  159.       echo                  You can press  S  to stop the demo now.
  160.       echo  
  161.       echo                     Or, press any key to restart now.
  162.       echo  
  163.       sg_askw 10 s                               
  164.       if errorlevel 255 goto bw
  165. :chk4
  166.       if errorlevel 2 goto bw
  167.       if errorlevel 1 goto end
  168.       if errorlevel 0 goto bw
  169. :end
  170. echo off
  171. cls
  172. echo  
  173. echo          Thank you for watching this demonstration of RapidFile
  174. echo  
  175. echo  
  176. echo           In the U.S., for the name of the dealer nearest you
  177. echo  
  178. echo                           Call 800-437-4329
  179. echo  
  180. echo  
  181. echo                For the sales desk in the United Kingdom
  182. echo  
  183. echo                           Call [0628] 33123
  184. echo  
  185. echo       ------------------------------------------------------------
  186. echo  
  187. echo          To restart the demo:
  188. echo  
  189. echo                  Type RFDEMO  and press ─┘
  190. echo  
  191. :finis
  192.