home *** CD-ROM | disk | FTP | other *** search
/ World of Shareware - Software Farm 2 / wosw_2.zip / wosw_2 / DATABASE / DBAT110.ZIP / MENU4.BAT < prev    next >
DOS Batch File  |  1992-01-10  |  3KB  |  133 lines
  1. @echo off
  2. :: *** dBAT Menu Demo #4 ***    :: 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. cls
  9. DBAT %0
  10. goto ENDdBAT
  11.  
  12. PROCEDURE dBAT
  13. SET COLOR TO 31
  14. @ 01,09 TO 15,69 DOUBLE
  15. @ 02,10 CLEAR TO 14,68
  16. SET COLOR TO 30
  17. @ 02,30 ?? "=> dBAT Demo Menu <="
  18. SET COLOR TO 31
  19. @ 03,09 ?? "╟───────────────────────────────────────────────────────────╢"
  20. @ 05,30 ?? "1. General Ledger"
  21. @ 06,30 ?? "2. Payroll"
  22. @ 07,30 ?? "3. Lotus 123"
  23. @ 08,30 ?? "4. Professional Write"
  24. @ 09,30 ?? "5. S/36 & PC Support Menu"
  25. @ 11,30 ?? "9. Exit Menu to DOS"
  26. @ 13,09 ?? "╟───────────────────────────────────────────────────────────╢"
  27. SET COLOR TO 158
  28. @ 14,12 ?? "Press"
  29. SET COLOR TO 31
  30. @ 14,18 ?? "number to select option . . ."
  31. @ 17,00
  32. QUIT
  33. :ENDdBAT
  34.  
  35. :RETRY
  36. :: ... !!! use any DOS menu scheme here !!! ...
  37. :: *** Note: ASK3.ZIP is available on all ClipCode supported BBS (see .DOC) ***
  38. ASK/efq "" abcdefghijklmnopqrstuvwxyz123456789\27
  39. if errorlevel 36 goto EXIT        Rem Esc
  40. if errorlevel 35 goto EXIT        Rem 9
  41. if errorlevel 34 goto retry       Rem 8
  42. if errorlevel 33 goto retry       Rem 7
  43. if errorlevel 32 goto retry       Rem 6
  44. if errorlevel 31 goto PCS         Rem 5
  45. if errorlevel 30 goto PW          Rem 4
  46. if errorlevel 29 goto LOTUS       Rem 3
  47. if errorlevel 28 goto PR          Rem 2
  48. if errorlevel 27 goto GL          Rem 1
  49. if errorlevel 26 goto retry       Rem Z
  50. if errorlevel 25 goto retry       Rem Y
  51. if errorlevel 24 goto retry       Rem X
  52. if errorlevel 23 goto retry       Rem W
  53. if errorlevel 22 goto retry       Rem V
  54. if errorlevel 21 goto retry       Rem U
  55. if errorlevel 20 goto retry       Rem T
  56. if errorlevel 19 goto retry       Rem S
  57. if errorlevel 18 goto retry       Rem R
  58. if errorlevel 17 goto retry       Rem Q
  59. if errorlevel 16 goto PARK        Rem P
  60. if errorlevel 15 goto retry       Rem O
  61. if errorlevel 14 goto retry       Rem N
  62. if errorlevel 13 goto retry       Rem M
  63. if errorlevel 12 goto retry       Rem L
  64. if errorlevel 11 goto retry       Rem K
  65. if errorlevel 10 goto retry       Rem J
  66. if errorlevel  9 goto retry       Rem I
  67. if errorlevel  9 goto retry       Rem H
  68. if errorlevel  7 goto retry       Rem G
  69. if errorlevel  6 goto retry       Rem F
  70. if errorlevel  5 goto retry       Rem E
  71. if errorlevel  4 goto retry       Rem D
  72. if errorlevel  3 goto retry       Rem C
  73. if errorlevel  2 goto retry       Rem B
  74. if errorlevel  1 goto retry       Rem A
  75. if errorlevel  0 goto retry
  76. goto EXIT
  77.  
  78. :GL
  79. :: c:
  80. :: cd \gl
  81. :: GL...
  82. echo !!! You selected General Ledger !!!
  83. pause
  84. :: cd \
  85. goto START
  86.  
  87. :PR
  88. :: c:
  89. :: cd \PR
  90. :: PR...
  91. echo !!! You selected Payroll !!!
  92. pause
  93. :: cd \
  94. goto START
  95.  
  96. :LOTUS
  97. :: c:
  98. echo !!! You selected Lotus 123 !!!
  99. pause
  100. :: cd \123
  101. :: 123
  102. :: cd \
  103. goto START
  104.  
  105. :PW
  106. :: c:
  107. :: cd \PW
  108. :: PW
  109. echo !!! You selected Professional Write !!!
  110. pause
  111. :: cd \
  112. goto START
  113.  
  114. :PCS
  115. :: c:
  116. :: cd \PCS
  117. :: Note: only a batch file menu system can load a TSR from the menu
  118. :: Note: must use CALL when running a batch file to return control to here
  119. :: call LINK36
  120. echo !!! You selected PC Support !!!
  121. pause
  122. :: cd \
  123. goto START
  124.  
  125. :PARK
  126. cls
  127. PARK
  128. goto END
  129.  
  130. :EXIT
  131. cls
  132. :END
  133.