home *** CD-ROM | disk | FTP | other *** search
/ Polish Programs 2 / polishprograms2.iso / edukacja / euklides / instaluj.bat < prev    next >
DOS Batch File  |  1996-10-15  |  3KB  |  219 lines
  1. @echo off
  2. cls
  3. echo.
  4. echo            ╔══════════════════════════════════════════════╗
  5. echo            ║                  INSTALACJA                  ║
  6. echo            ║                                              ║
  7. echo            ║                   EUKLIDES                   ║
  8. echo            ╚══════════════════════════════════════════════╝
  9. echo.
  10. echo.
  11. echo Wybierz naped, w ktorym chcesz zainstalowac program:
  12. choice /C:CDEFGHIJKLMNOPQRSTUVWXYZ
  13.  
  14. if errorlevel == 24 goto Z
  15. if errorlevel == 23 goto Y
  16. if errorlevel == 22 goto X
  17. if errorlevel == 21 goto W
  18. if errorlevel == 20 goto V
  19. if errorlevel == 19 goto U
  20. if errorlevel == 18 goto T
  21. if errorlevel == 17 goto S
  22. if errorlevel == 16 goto R
  23. if errorlevel == 15 goto Q
  24. if errorlevel == 14 goto P
  25. if errorlevel == 13 goto O
  26. if errorlevel == 12 goto N
  27. if errorlevel == 11 goto M
  28. if errorlevel == 10 goto L
  29. if errorlevel == 9 goto K
  30. if errorlevel == 8 goto J
  31. if errorlevel == 7 goto I
  32. if errorlevel == 6 goto H
  33. if errorlevel == 5 goto G
  34. if errorlevel == 4 goto F
  35. if errorlevel == 3 goto E
  36. if errorlevel == 2 goto D
  37. if errorlevel == 1 goto C
  38.  
  39. cls
  40. echo Instalowanie programu do katalogu EUKLIDES
  41. echo.
  42.  
  43. :C
  44. md C:\EUKLIDES
  45. cd C:\EUKLIDES
  46. COPY *.* C:
  47. C:
  48. goto iok
  49.  
  50. :D
  51. md D:\EUKLIDES
  52. cd D:\EUKLIDES
  53. COPY *.* D:
  54. D:
  55. goto iok
  56.  
  57. :E
  58. md E:\EUKLIDES
  59. cd E:\EUKLIDES
  60. COPY *.* E:
  61. E:
  62. goto iok
  63.  
  64. :F
  65. md F:\EUKLIDES
  66. cd F:\EUKLIDES
  67. COPY *.* F:
  68. F:
  69. goto iok
  70.  
  71. :G
  72. md G:\EUKLIDES
  73. cd G:\EUKLIDES
  74. COPY *.* G:
  75. G:
  76. goto iok
  77.  
  78. :H
  79. md H:\EUKLIDES
  80. cd H:\EUKLIDES
  81. COPY *.* H:
  82. H:
  83. goto iok
  84.  
  85. :I
  86. md I:\EUKLIDES
  87. cd I:\EUKLIDES
  88. COPY *.* I:
  89. I:
  90. goto iok
  91.  
  92. :J
  93. md J:\EUKLIDES
  94. cd J:\EUKLIDES
  95. COPY *.* J:
  96. J:
  97. goto iok
  98.  
  99. :K
  100. md K:\EUKLIDES
  101. cd K:\EUKLIDES
  102. COPY *.* K:
  103. K:
  104. goto iok
  105.  
  106. :L
  107. md L:\EUKLIDES
  108. cd L:\EUKLIDES
  109. COPY *.* L:
  110. L:
  111. goto iok
  112.  
  113. :M
  114. md M:\EUKLIDES
  115. cd M:\EUKLIDES
  116. COPY *.* M:
  117. M:
  118. goto iok
  119.  
  120. :N
  121. md N:\EUKLIDES
  122. cd N:\EUKLIDES
  123. COPY *.* N:
  124. N:
  125. goto iok
  126.  
  127. :O
  128. md O:\EUKLIDES
  129. cd O:\EUKLIDES
  130. COPY *.* O:
  131. O:
  132. goto iok
  133.  
  134. :P
  135. md P:\EUKLIDES
  136. cd P:\EUKLIDES
  137. COPY *.* P:
  138. P:
  139. goto iok
  140.  
  141. :Q
  142. md Q:\EUKLIDES
  143. cd Q:\EUKLIDES
  144. COPY *.* Q:
  145. Q:
  146. goto iok
  147.  
  148. :R
  149. md R:\EUKLIDES
  150. cd R:\EUKLIDES
  151. COPY *.* R:
  152. R:
  153. goto iok
  154.  
  155. :S
  156. md S:\EUKLIDES
  157. cd S:\EUKLIDES
  158. COPY *.* S:
  159. S:
  160. goto iok
  161.  
  162. :T
  163. md T:\EUKLIDES
  164. cd T:\EUKLIDES
  165. COPY *.* T:
  166. T:
  167. goto iok
  168.  
  169. :U
  170. md U:\EUKLIDES
  171. cd U:\EUKLIDES
  172. COPY *.* U:
  173. U:
  174. goto iok
  175.  
  176. :V
  177. md V:\EUKLIDES
  178. cd V:\EUKLIDES
  179. COPY *.* V:
  180. V:
  181. goto iok
  182.  
  183. :W
  184. md W:\EUKLIDES
  185. cd W:\EUKLIDES
  186. COPY *.* W:
  187. W:
  188. goto iok
  189.  
  190. :X
  191. md X:\EUKLIDES
  192. cd X:\EUKLIDES
  193. COPY *.* X:
  194. X:
  195. goto iok
  196.  
  197. :Y
  198. md Y:\EUKLIDES
  199. cd Y:\EUKLIDES
  200. COPY *.* Y:
  201. Y:
  202. goto iok
  203.  
  204. :Z
  205. md Z:\EUKLIDES
  206. cd Z:\EUKLIDES
  207. COPY *.* Z:
  208. Z:
  209.  
  210.  
  211. :iok
  212.  
  213. cls
  214. echo Instalacja programu zakonczona.
  215. echo.
  216. echo Jesli nie chcesz uruchomic programu wcisnij [Ctrl+Break].
  217. pause
  218. call euklides.bat
  219. echo on