home *** CD-ROM | disk | FTP | other *** search
/ World of Shareware - Software Farm 2 / wosw_2.zip / wosw_2 / DATABASE / DBAT110.ZIP / MENU1.BAT < prev    next >
DOS Batch File  |  1992-01-10  |  4KB  |  137 lines
  1. @echo off
  2. :: *** dBAT Menu Demo #1 ***    :: Turn off the echo (use @ if DOS3.3 or +)
  3. :START
  4. ::c:
  5. ::cd \
  6. :: Note: Must pass full path to dBAT if running the batch file from another
  7. ::       ie. directory dBAT doesn't search the PATH for the batch file
  8. DBAT %0
  9. goto ENDdBAT
  10.  
  11. PROC dBAT
  12. SET COLOR TO 7              && White on black ( for colors run COLOR.COM )
  13. CLEAR                       && Clear the screen with a blue background
  14. SET COLOR TO 31             && Bright white on blue
  15. @ 00,02 TO 20,77 DOUBLE     && border double line box
  16. @ 01,03 CLEAR TO 19,76      && clear the box space
  17. @ 02,10 TO 04,69            && small single line title box
  18. SET COLOR TO 79             && bright white on red
  19. @ 03,11 CLEAR TO 03,68      && clear with color
  20. @ 03,34 ?? "MENU DEMO #1"
  21. SET COLOR TO 30
  22. @ 06,28 ?? "A...General Ledger"
  23. @ 07,28 ?? "B...Payroll"
  24. SET COLOR TO 29
  25. @ 09,28 ?? "C...Lotus 123"
  26. @ 10,28 ?? "D...Professional Write"
  27. SET COLOR TO 27
  28. @ 12,28 ?? "E...S/36 & PC Support Menu"
  29. SET COLOR TO 26
  30. @ 14,28 ?? "P...Park"
  31. SET COLOR TO 31
  32. @ 18,16 ?? "Select Option -or- Press Esc to exit Menu to DOS"
  33. SET COLOR TO
  34. @ 21,00
  35. *** use following 2 lines for centering...
  36. * @ 19,00 ?? "0123456789012345678901234567890123456789"
  37. * @ 19,40 ?? "9876543210987654321098765432109876543210"
  38. QUIT
  39. :ENDdBAT
  40. :RETRY
  41. :: *** Note: ASK3.ZIP is available on all ClipCode supported BBS (see .DOC) ***
  42. ASK/efq "" abcdefghijklmnopqrstuvwxyz123456789\27
  43. if errorlevel 36 goto EXIT        Rem Esc
  44. if errorlevel 35 goto retry       Rem 9
  45. if errorlevel 34 goto retry       Rem 8
  46. if errorlevel 33 goto retry       Rem 7
  47. if errorlevel 32 goto retry       Rem 6
  48. if errorlevel 31 goto retry       Rem 5
  49. if errorlevel 30 goto retry       Rem 4
  50. if errorlevel 29 goto retry       Rem 3
  51. if errorlevel 28 goto retry       Rem 2
  52. if errorlevel 27 goto retry       Rem 1
  53. if errorlevel 26 goto retry       Rem Z
  54. if errorlevel 25 goto retry       Rem Y
  55. if errorlevel 24 goto retry       Rem X
  56. if errorlevel 23 goto retry       Rem W
  57. if errorlevel 22 goto retry       Rem V
  58. if errorlevel 21 goto retry       Rem U
  59. if errorlevel 20 goto retry       Rem T
  60. if errorlevel 19 goto retry       Rem S
  61. if errorlevel 18 goto retry       Rem R
  62. if errorlevel 17 goto retry       Rem Q
  63. if errorlevel 16 goto PARK        Rem P
  64. if errorlevel 15 goto retry       Rem O
  65. if errorlevel 14 goto retry       Rem N
  66. if errorlevel 13 goto retry       Rem M
  67. if errorlevel 12 goto retry       Rem L
  68. if errorlevel 11 goto retry       Rem K
  69. if errorlevel 10 goto retry       Rem J
  70. if errorlevel  9 goto retry       Rem I
  71. if errorlevel  9 goto retry       Rem H
  72. if errorlevel  7 goto retry       Rem G
  73. if errorlevel  6 goto retry       Rem F
  74. if errorlevel  5 goto PCS         Rem E
  75. if errorlevel  4 goto PW          Rem D
  76. if errorlevel  3 goto LOTUS       Rem C
  77. if errorlevel  2 goto PR          Rem B
  78. if errorlevel  1 goto GL          Rem A
  79. if errorlevel  0 goto retry
  80. goto EXIT
  81.  
  82. :GL
  83. :: c:
  84. :: cd \gl
  85. :: GL...
  86. echo !!! You selected General Ledger !!!
  87. pause
  88. :: cd \
  89. goto START
  90.  
  91. :PR
  92. :: c:
  93. :: cd \PR
  94. :: PR...
  95. echo !!! You selected Payroll !!!
  96. pause
  97. :: cd \
  98. goto START
  99.  
  100. :LOTUS
  101. :: c:
  102. echo !!! You selected Lotus 123 !!!
  103. pause
  104. :: cd \123
  105. :: 123
  106. :: cd \
  107. goto START
  108.  
  109. :PW
  110. :: c:
  111. :: cd \PW
  112. :: PW
  113. echo !!! You selected Professional Write !!!
  114. pause
  115. :: cd \
  116. goto START
  117.  
  118. :PCS
  119. :: c:
  120. :: cd \PCS
  121. :: Note: only a batch file menu system can load a TSR from the menu
  122. :: Note: must use CALL when running a batch file to return control to here
  123. :: call LINK36
  124. echo !!! You selected PC Support !!!
  125. pause
  126. :: cd \
  127. goto START
  128.  
  129. :PARK
  130. cls
  131. PARK
  132. goto END
  133.  
  134. :EXIT
  135. cls
  136. :END
  137.