home *** CD-ROM | disk | FTP | other *** search
/ Boldly Go Collection / version40.iso / TS / 15D / WEPDEMO.ZIP / MENU.BAT < prev    next >
DOS Batch File  |  1992-01-21  |  2KB  |  100 lines
  1. @echo off
  2. :START
  3. ::c:
  4. ::cd \
  5.  
  6. DBAT %0
  7. goto ENDdBAT
  8.  
  9. PROC dBAT
  10.  
  11. SET CURSOR OFF
  12. SET COLOR TO 31
  13. CLEAR
  14. @ 02,10 TO 04,69 DOUBLE
  15. SET COLOR TO 79
  16. @ 03,12 ?? "          Winning Edge Productions - Main Menu          "
  17.  
  18. SET COLOR TO 7                  && shadow
  19. @ 07,27 CLEAR TO 18,55
  20.  
  21. SET COLOR TO 112
  22. @ 24,00 CLEAR TO 27,79
  23. @ 24,01 ?? "+Enter or 1st Letter = Select Option   Esc=Cancel Menu"
  24.  
  25. @ 06,25 TO 17,53 DOUBLE         && box
  26. @ 07,26 CLEAR TO 16,52
  27. SET COLOR TO 112
  28. SET ICOLOR TO 15
  29. *@ 05,00 ?? "012345678901234567890123456789012345678--876543210987654321098765432109876543210"
  30. @ 07,26 PROMPT " I = Introduction          "
  31. @ 08,26 PROMPT " A = AIRWARE (tm) Demo     "
  32. @ 10,26 PROMPT " P = PRODUCER (tm) Demo    "
  33. @ 11,26 PROMPT " L = PlayList (tm) Demo    "
  34. @ 13,26 PROMPT " S = Shareware Offerings   "
  35. @ 14,26 PROMPT " C = Comfax (tm) Comedy    "
  36. @ 16,26 PROMPT " E = Exit                  "
  37. MENU TO
  38. QUIT
  39. *** uncomment the following line for centering...
  40. :ENDdBAT
  41.  
  42. cls
  43. If errorlevel 7 GOTO EXIT        Rem Esc
  44. if errorlevel 6 goto COMFAX
  45. if errorlevel 5 goto SHARE
  46. if errorlevel 4 goto PLAYLIST
  47. if errorlevel 3 goto PRODUCER
  48. if errorlevel 2 goto AIRWARE
  49. if errorlevel 1 goto README
  50. goto EXIT
  51.  
  52. :README
  53.  CLS
  54. ECHO   This is a demonstration disk from Winning Edge Productions.
  55. ECHO  It contains several demos and other information about the
  56. ECHO  products we offer.  If you have any additional questions, 
  57. ECHO  please feel free to call us at 804-744-3813
  58. ECHO                      .....Thanks for taking the time to look!
  59.  PAUSE
  60.  GOTO START
  61. :END
  62.  
  63. :AIRWARE
  64.  CALL AIRWARE.BAT
  65.  GOTO START
  66. :END
  67.  
  68. :SHARE
  69.  CALL SHARE.BAT
  70.  GOTO START
  71. :END
  72.  
  73. :PRODUCER
  74.  CALL PRODUCER.BAT
  75.  GOTO START
  76. :END
  77.  
  78. :COMFAX
  79.  CALL COMFAX.BAT
  80.  GOTO START
  81. :END
  82.  
  83. :PLAYLIST
  84.  CLS
  85. ECHO       We have a new program designed primarily for Music Directors
  86. ECHO  and Program Directors which helps keep track of playlists.  It 
  87. ECHO  allows for easy updating, tracking, printing, etc.  Unfortunately,
  88. ECHO  the demo is not available yet.  You can obtain the Shareware version
  89. ECHO  of it for $3.50.  Select the Shareware option from the main menu for
  90. ECHO  more information about ordering.
  91. PAUSE
  92.  GOTO START
  93. :END
  94.  
  95. :END
  96. :EXIT
  97.  CLS
  98. ECHO Thanks for visiting our Demos!
  99. :END
  100.