home *** CD-ROM | disk | FTP | other *** search
/ PC Plus 58 / ISSUE_58_JUL_1991 / PCPLUS.BAT < prev   
Encoding:
DOS Batch File  |  1991-01-01  |  4.1 KB  |  175 lines
  1. ECHO OFF
  2. :MENU
  3. !\58 1
  4. !\GET
  5. IF ERRORLEVEL 59 IF NOT ERRORLEVEL 60 GOTO HELP
  6. IF ERRORLEVEL 60 IF NOT ERRORLEVEL 61 GOTO FEAT
  7. IF ERRORLEVEL 61 IF NOT ERRORLEVEL 62 GOTO GAME
  8. IF ERRORLEVEL 62 IF NOT ERRORLEVEL 63 GOTO UTIL
  9. IF ERRORLEVEL 63 IF NOT ERRORLEVEL 64 GOTO MAGA
  10. IF ERRORLEVEL 64 IF NOT ERRORLEVEL 65 GOTO SHOR
  11. IF ERRORLEVEL  1 IF NOT ERRORLEVEL  2 GOTO QUIT
  12. GOTO MENU
  13.  
  14.  
  15. :HELP
  16. FOR %%A IN (1 2) DO !\58 %%A
  17. :HELP2
  18. !\GET
  19. IF ERRORLEVEL 75 IF NOT ERRORLEVEL 76 GOTO SHOR
  20. IF ERRORLEVEL 77 IF NOT ERRORLEVEL 78 GOTO FEAT
  21. IF ERRORLEVEL 28 IF NOT ERRORLEVEL 29 GOTO MENU
  22. GOTO HELP2
  23.  
  24.  
  25. :FEAT
  26. FOR %%A IN (1 3) DO !\58 %%A
  27. :FEAT2
  28. !\GET
  29. IF ERRORLEVEL 75 IF NOT ERRORLEVEL 76 GOTO HELP
  30. IF ERRORLEVEL 77 IF NOT ERRORLEVEL 78 GOTO GAME
  31. IF ERRORLEVEL 62 IF NOT ERRORLEVEL 63 GOTO FEAT4
  32. IF ERRORLEVEL 63 IF NOT ERRORLEVEL 64 GOTO FEAT5
  33. IF ERRORLEVEL 64 IF NOT ERRORLEVEL 65 GOTO FEAT6
  34. IF ERRORLEVEL 65 IF NOT ERRORLEVEL 66 GOTO FEAT7
  35. IF ERRORLEVEL 66 IF NOT ERRORLEVEL 67 GOTO FEAT8
  36. IF ERRORLEVEL 67 IF NOT ERRORLEVEL 68 GOTO FEAT9
  37. IF ERRORLEVEL 68 IF NOT ERRORLEVEL 69 GOTO MENU
  38. IF ERRORLEVEL  1 IF NOT ERRORLEVEL  2 GOTO MENU
  39. GOTO FEAT2
  40. :FEAT4
  41. CLS
  42. ECHO expanding ALITEZIP onto B:
  43. ALITE\ALITEZIP B:\
  44. GOTO FEAT11
  45. :FEAT5
  46. MD C:\ALITE
  47. CLS
  48. ECHO expanding ALITEZIP into directory C:\ALITE
  49. ALITE\ALITEZIP C:\ALITE
  50. GOTO FEAT11
  51. :FEAT6
  52. MD D:\ALITE
  53. CLS
  54. ECHO expanding ALITEZIP into directory D:\ALITE
  55. ALITE\ALITEZIP D:\ALITE
  56. GOTO FEAT11
  57. :FEAT7
  58. CLS
  59. ECHO expanding ALITEMAN onto B:
  60. ALITE\ALITEMAN B:\
  61. GOTO FEAT11
  62. :FEAT8
  63. MD C:\ALITE
  64. CLS
  65. ECHO expanding ALITEMAN into directory C:\ALITE
  66. ALITE\ALITEMAN C:\ALITE
  67. GOTO FEAT11
  68. :FEAT9
  69. MD D:\ALITE
  70. CLS
  71. ECHO expanding ALITEMAN into directory D:\ALITE
  72. ALITE\ALITEMAN D:\ALITE
  73. :FEAT11
  74. ECHO FINISHED - note any irregularities, and then proceed.
  75. ECHO (press any key)
  76. !\GET
  77. GOTO FEAT
  78.  
  79.  
  80. :GAME
  81. FOR %%A IN (1 4) DO  !\58 %%A
  82. :GAME2
  83. !\GET
  84. IF ERRORLEVEL 75 IF NOT ERRORLEVEL 76 GOTO FEAT
  85. IF ERRORLEVEL 77 IF NOT ERRORLEVEL 78 GOTO UTIL
  86. IF ERRORLEVEL 65 IF NOT ERRORLEVEL 66 GOTO GAMER
  87. IF ERRORLEVEL 66 IF NOT ERRORLEVEL 67 GOTO GAMEP
  88. IF ERRORLEVEL 28 IF NOT ERRORLEVEL 29 GOTO MENU
  89. IF ERRORLEVEL  1 IF NOT ERRORLEVEL  2 GOTO MENU
  90. GOTO GAME2
  91. :GAMER
  92. !\PLWAIT
  93. !\PBS-VIEW GAMES\FELIX.DOC
  94. GOTO GAME
  95. :GAMEP
  96. !\PLWAIT
  97. GAMES\FELIX
  98. GOTO GAME
  99.  
  100. :UTIL
  101. FOR %%A IN (1 5) DO !\58 %%A
  102. :UTIL2
  103. !\GET
  104. IF ERRORLEVEL 75 IF NOT ERRORLEVEL 76 GOTO GAME
  105. IF ERRORLEVEL 77 IF NOT ERRORLEVEL 78 GOTO MAGA
  106. IF ERRORLEVEL 65 IF NOT ERRORLEVEL 66 GOTO UTILR
  107. IF ERRORLEVEL 66 IF NOT ERRORLEVEL 67 GOTO UTILP
  108. IF ERRORLEVEL 28 IF NOT ERRORLEVEL 29 GOTO MENU
  109. IF ERRORLEVEL  1 IF NOT ERRORLEVEL  2 GOTO MENU
  110. GOTO UTIL2
  111. :UTILR
  112. !\PLWAIT
  113. !\PBS-VIEW INDEX\INDEX.DOC
  114. GOTO UTIL
  115. :UTILP
  116. !\PLWAIT
  117. CD INDEX
  118. INDEX
  119. CD ..
  120. GOTO UTIL
  121.  
  122. :MAGA
  123. FOR %%A IN (1 6) DO !\58 %%A
  124. :MAGA2
  125. !\GET
  126. IF ERRORLEVEL 75 IF NOT ERRORLEVEL 76 GOTO UTIL
  127. IF ERRORLEVEL 77 IF NOT ERRORLEVEL 78 GOTO SHOR
  128. IF ERRORLEVEL  1 IF NOT ERRORLEVEL  2 GOTO MENU
  129. IF ERRORLEVEL 28 IF NOT ERRORLEVEL 29 GOTO MENU
  130. GOTO MAGA2
  131.  
  132. :SHOR
  133. FOR %%A IN (1 7) DO !\58 %%A
  134. :SHOR2
  135. !\GET
  136. IF ERRORLEVEL 75 IF NOT ERRORLEVEL 76 GOTO MAGA
  137. IF ERRORLEVEL 77 IF NOT ERRORLEVEL 78 GOTO HELP
  138. IF ERRORLEVEL 65 IF NOT ERRORLEVEL 66 GOTO SHORP
  139. IF ERRORLEVEL 66 IF NOT ERRORLEVEL 67 GOTO SHORC
  140. IF ERRORLEVEL 67 IF NOT ERRORLEVEL 68 GOTO SHORU
  141. IF ERRORLEVEL 68 IF NOT ERRORLEVEL 69 GOTO SHORD
  142. IF ERRORLEVEL 28 IF NOT ERRORLEVEL 29 GOTO MENU
  143. IF ERRORLEVEL  1 IF NOT ERRORLEVEL  2 GOTO MENU
  144. GOTO SHOR2
  145. :SHORP
  146. !\PLWAIT
  147. !\PBS-VIEW SHORTIES\SHORTIES.DOC
  148. GOTO SHOR
  149. :SHORC
  150. !\PLWAIT
  151. CLS
  152. SHORTIES\CLOCK    This line can say anything - but for now PRESS ANY KEY
  153. GOTO SHOR
  154. :SHORU
  155. SHORTIES\SOUND 3000 1 40 3000
  156. GOTO SHOR2
  157. :SHORD
  158. SHORTIES\SOUND 1 3000 40 3000
  159. GOTO SHOR2
  160.  
  161.  
  162. :QUIT
  163. IF EXIST EXTRA.BAT !\58 9
  164. IF NOT EXIST EXTRA.BAT !\58 8
  165. :QUIT2
  166. !\GET
  167. IF ERRORLEVEL 21 IF NOT ERRORLEVEL 22 GOTO QUITD
  168. IF ERRORLEVEL 49 IF NOT ERRORLEVEL 50 GOTO MENU
  169. IF ERRORLEVEL 45 IF NOT ERRORLEVEL 46 IF EXIST EXTRA.BAT EXTRA
  170. IF ERRORLEVEL  1 IF NOT ERRORLEVEL  2 GOTO MENU
  171. GOTO QUIT2
  172. :QUITD
  173. CLS
  174. ECHO GOODBYE from SuperDisk 58 (July 1991)
  175.