home *** CD-ROM | disk | FTP | other *** search
/ Best of German Only 1 / romside_best_of_german_only_1.iso / branchen / plangulb / entpack.exe / START.BAT < prev    next >
DOS Batch File  |  1991-10-30  |  5KB  |  186 lines
  1. echo off
  2. cls
  3. echo ╔════════════════════════════════════════════════════════════════════╗
  4. echo ║                                                                    ║
  5. echo ║                   ██▀▀▀▀▀▀▀▌  ██      ██  ██          ██           ║
  6. echo ║                   ██          ██      ██  ██          ██           ║
  7. echo ║                   ██          ██      ██  ██          ██▄▄▄▄▄▄▄    ║
  8. echo ║                   ██     ▀▀█  ██      ██  ██          ██       █   ║
  9. echo ║                   ██       █  ██      ██  ██       ▐  ██       █   ║
  10. echo ║                   ██████████  ██████████  ██████████  ██████████   ║
  11. echo ║                                                                    ║
  12. echo ║                                                                    ║
  13. echo ║   S O F T W A R E                                                  ║
  14. echo ║********************************************************************║
  15. echo ║*                                                                  *║
  16. echo ║*                          P l a n G u l b                         *║
  17. echo ║*                                                                  *║
  18. echo ║*  VERSION 1.0                              (C) 1991 G. Blumert    *║
  19. echo ║********************************************************************║
  20. echo ╚════════════════════════════════════════════════════════════════════╝
  21. echo.
  22. echo Guten Tag!
  23. echo.
  24. pause
  25. cls
  26. echo Haben Sie daran gedacht, eine Arbeitskopie dieser Diskette anzulegen
  27. echo und die Originaldiskette an einem sicheren Ort zu verwahren?
  28. echo.
  29. echo Nein? Dann jetzt ^C gedrückt und den DISKCOPY-Befehl benutzt,
  30. echo sonst weiter mit beliebiger Taste . . .
  31. echo.
  32. echo.
  33. echo Übrigens: Keine Angst - die Installation nimmt keine Änderungen an Ihrer
  34. echo Rechnerkonfiguration (CONFIG.SYS, AUTOEXEC.BAT) vor!
  35. echo.
  36. echo Die CONFIG.SYS sollte die Zeile FILES=15 (oder mehr) enthalten.
  37. echo.
  38. pause>nul
  39. cls
  40. if %1*==* goto NoParm
  41. echo Suche Verzeichnis %1
  42. if not exist PG!.EXE goto NoFile
  43. chkparm %1
  44. if errorlevel 1 goto NoBackslash
  45. if not Exist %1\nul md %1
  46. GetDir
  47. if errorlevel 6 goto g
  48. if errorlevel 5 goto f
  49. if errorlevel 4 goto e
  50. if errorlevel 3 goto d
  51. if errorlevel 2 goto c
  52. if errorlevel 1 goto b
  53. set ORIGLW=A:
  54. goto SetDir
  55. :b
  56. set ORIGLW=B:
  57. goto SetDir
  58. :c
  59. set ORIGLW=C:
  60. goto SetDir
  61. :d
  62. set ORIGLW=D:
  63. goto SetDir
  64. :e
  65. set ORIGLW=E:
  66. goto SetDir
  67. :f
  68. set ORIGLW=F:
  69. goto SetDir
  70. :g
  71. set ORIGLW=G:
  72. :SetDir
  73. setdir %1
  74. echo.
  75. echo Entpacke Programmdatei
  76. echo.
  77. %ORIGLW%\PG!
  78. echo.
  79. echo Entpacke Hilfsdateien!
  80. echo.
  81. %ORIGLW%\PGUTIL!
  82. cls
  83. echo.
  84. echo Welches Kalendarium möchten Sie benutzen?
  85. echo.
  86. echo (D)eutschland
  87. echo (Ö)sterreich
  88. echo (S)chweiz
  89. echo (G)roßbritannien
  90. echo (U)SA
  91. :GetTaste
  92. %ORIGLW%\taste
  93. if errorlevel 154 goto GetTaste
  94. if errorlevel 153 goto Austria
  95. if errorlevel 149 goto GetTaste
  96. if errorlevel 148 goto Austria
  97. if errorlevel 118 goto GetTaste
  98. if errorlevel 117 goto USA
  99. if errorlevel 116 goto GetTaste
  100. if errorlevel 115 goto Schweiz
  101. if errorlevel 104 goto GetTaste
  102. if errorlevel 103 goto England
  103. if errorlevel 101 goto GetTaste
  104. if errorlevel 100 goto Deutschland
  105. if errorlevel 86 goto GetTaste
  106. if errorlevel 85 goto USA
  107. if errorlevel 84 goto GetTaste
  108. if errorlevel 83 goto Schweiz
  109. if errorlevel 72 goto GetTaste
  110. if errorlevel 71 goto England
  111. if errorlevel 69 goto GetTaste
  112. if errorlevel 68 goto Deutschland
  113. goto GetTaste
  114. :Austria
  115. copy G_AKal.GK3 G_Kal.GK3>nul
  116. goto Weiter1
  117. :Deutschland
  118. copy G_brdkal.gk3 g_kal.gk3>nul
  119. goto Weiter1
  120. :England
  121. copy E_GBKal.gk3 g_kal.gk3>nul
  122. goto Weiter1
  123. :Schweiz
  124. copy G_CHKal.gk3 g_kal.gk3>nul
  125. goto Weiter1
  126. :USA
  127. copy E_USAKal.gk3 g_kal.gk3>nul
  128. :Weiter1
  129. echo.
  130. echo Jetzt werden Dokumentation und die kontextsensitive Hilfe formatiert.
  131. echo Das kann, je nach Rechner, etwas dauern . . .
  132. echo.
  133. pause
  134. formhlp xyz
  135. echo.
  136. echo Jetzt befindet sich auf Ihrer Platte die Datei PLANGULB.DOC, die Sie
  137. echo mit dem Befehl 
  138. echo COPY PLANGULB.DOC LPT1 
  139. echo ausdrucken können.
  140. echo.
  141. pause
  142. %ORIGLW%\MMore Reklame.txt
  143. pause
  144. %ORIGLW%\MMore share.txt
  145. set ORIGLW=
  146. pause
  147. cls
  148. echo.
  149. echo Die Installation ist jetzt abgeschlossen!
  150. echo.
  151. echo Sie starten das Programm, indem Sie
  152. echo PLANGULB (Eingabetaste) 
  153. echo eintippen.
  154. echo Auf einem System mit Farbgrafikkarte und Monochrom-Monitor oder 
  155. echo LCD-Anzeige sollten Sie zuvor den Befehl 
  156. echo MODE BW80
  157. echo eingeben, um die Lesbarkeit zu erhöhen.
  158. echo.
  159. echo Sollte es Probleme mit der Maus geben, lesen Sie bitte den Abschnitt
  160. echo "Systemvoraussetzungen" in der Dokumentation (auch "Online" über die
  161. echo Hilfefunktion von PlanGulb [Inhaltsverzeichnis] erreichbar).
  162. echo.
  163. goto Ende
  164. :NoBackslash
  165. echo Bitte fügen Sie an den Namen des Zielverzeichnisses keinen Backslash (\) an!
  166. echo.
  167. goto Ende
  168. :NoParm
  169. echo.
  170. echo Bitte geben Sie zur Installation an, in welches Verzeichnis die Dateien
  171. echo kopiert werden sollen, z. B.
  172. echo.
  173. echo START C:\PG
  174. echo.
  175. echo um PlanGulb im Unterverzeichnis PG auf Festplatte C: zu installieren.
  176. echo.
  177. goto Ende
  178. :NoFile
  179. echo Bitte wechseln Sie vor dem Aufruf dieser Stapeldatei auf das Laufwerk, in
  180. echo dem die Programmdiskette steckt, indem Sie z. B.
  181. echo A: (Eingabetaste)
  182. echo eingeben.
  183. echo.
  184. goto Ende
  185. :ende
  186.