home *** CD-ROM | disk | FTP | other *** search
/ The CD-ROM Directory (13th Edition) / The CD-ROM Directory 13.iso / install / inscript.deu < prev    next >
Encoding:
Text File  |  1993-11-19  |  16.7 KB  |  710 lines
  1. ; CD Answer Installation Script - Generic                          jdk,ejf,hg
  2. ; <<CDA>> Jun 1 1993;3.2
  3. ; Apr 8 1993; hs
  4. ; single/multiple disk version
  5. ;
  6. ;   To customize this install script:
  7. ;      1. Put the product name (1-8 characters) in a file called
  8. ;         'PRODNAME'. There should be no carriage return/line feed at
  9. ;         the end of the name- the file should contain just the characters
  10. ;         of the name.
  11. ;      2. Put the application name (CD Author 4 character project identifier)
  12. ;         in a file called 'APPLNAME'. Again, no other chars should be
  13. ;         the file. Multiple applications are formed by adding a space,
  14. ;         then another application identifier
  15. ;      3. Put the start-up message in a file called PRODSCRN.<language>
  16. ;         There should not be more than 10 lines.
  17. ;
  18. ;    The first disk must contain the \INSTALL directory.
  19. ;    This contains the general system files for the install
  20. ;    process and may be repeated on disk #2, etc.
  21. ;    The application specific files are kept in a directory
  22. ;    named 'DISK1'. If additional disks are required, create
  23. ;    an (empty) file on the current disk named '\MORE' and
  24. ;    put the overflow files in a directory named \DISK2 (3, 4, ...).
  25.  
  26. BREAK abort
  27.  
  28. ; install disk
  29. PARSE_PATH <$ProgDir>
  30. SET insdrive = <$Drive>
  31. SET ins = <insdrive>\INSTALL
  32. SET curdisk = 1
  33. GOSUB need_disk
  34.  
  35. ; here are some defaults:
  36.  
  37. ;  default destination drive
  38. PARSE_PATH <$CurDir>
  39. SET def_dest = C:\
  40. IF NOT "<$Drive>"=="<insdrive>" DO SET def_def = <$Drive>
  41.  
  42. ;TFPL - 7-6-93
  43. ;CONFIG Colors = 0 2 0 30 0 30 0 30 0 112 0 143 0 79 0 79 0 48 0 15 0 30 0 79 0 143 1 30
  44. ;CONFIG ColorSet = 55
  45. ;TFPL
  46.  
  47. ;  default CD-ROM interface (FS_HSGEN {High Sierra} or FS_ISGEN {ISO})
  48. SET def_cdtype = High Sierra
  49. SET def_driver = FS_HSGEN
  50. IF EXISTS <insdrive>\INSTALL\<def_driver>.* GOTO ok_driver
  51. SET def_cdtype = ISO
  52. SET def_driver = FS_ISGEN
  53. :ok_driver
  54.  
  55. ;  language
  56. SET def_lang = <$Language>
  57.  
  58. ; application name(s) (4 char ident(s) on CD-ROM)
  59. READFILE names = <ins>\APPLNAME.
  60.  
  61. ; product name (application name for batch file, subdirectory name)
  62. READFILE prod = <ins>\PRODNAME.
  63.  
  64. ; default dest drive and directory
  65. PARSE_PATH <def_dest><prod>.CD
  66. SET dstdrive = <$Drive>
  67. SET path = <$Dir>
  68. CD <dstdrive>\
  69.  
  70. ; read and display Application Installation Screen
  71. IF NOT EXISTS <insdrive>\INSTALL\PRODSCRN.<def_lang> GOTO no_banner
  72. READFILE screen = <insdrive>\INSTALL\PRODSCRN.<def_lang>
  73. GOTO show_banner
  74. :no_banner
  75. SET screen =
  76. ----        CD Answer Installation für:\n\n
  77. ----               <prod>\n\n
  78. ----        Applikation(en): <names>
  79. :show_banner
  80. CLEAR
  81. TEXT <screen>
  82. SET screen =
  83. WAIT
  84.  
  85. GOTO okdir
  86. :getdir
  87. CLEAR
  88. TEXT \nFehler:\n\n
  89. ----Der Pfad "<dstdrive><path>" ist nicht zulässig!\n
  90. ----Es muß eine Laufwerksangabe sowie ein gültiger Unterverzeichnisname
  91. ---- vorhanden sein, um die Software zu installieren.
  92. WAIT
  93. :okdir
  94. CLEAR
  95. TEXT Die Retrieval-Software muß auf einer Festplatte oder auf eine\n
  96. ----formatierte Floppy Diskette installiert werden. Die Standard-\n
  97. ----angaben sind Laufwerk C: (normalerweise die Festplatte) und\n
  98. ----Unterverzeichnis <path>. Um diese Angaben zu wählen,\n
  99. ----die ┘ (Eingabe) Taste zweimal betätigen.  Um sie zu ändern, die\n
  100. ----gewünschten Parameter nach Aufforderung eingeben.\n
  101.  
  102. INPUT 6,8,5 dstdrive  = Installieren auf Laufwerk        ?
  103. INPUT 6,10,40 path    = Installieren in Unterverzeichnis ?
  104. SET dest = <dstdrive><path>
  105. SET confile = <ins>\_DW_.CFG
  106.  
  107. IF "<dstdrive>"=="" GOTO getdir
  108. IF "<path>"=="\" GOTO getdir
  109. IF "<path>"=="" GOTO getdir
  110. IF NOT DIREXISTS <dstdrive>\ GOTO getdir
  111.  
  112. CD <dstdrive>\
  113.  
  114. IF NOT DIREXISTS <dest> GOTO nopath
  115. IF NOT EXISTS <dest>\DW.EXE GOTO nopath
  116. CLEAR
  117. TEXT Das Unterverzeichnis "<dest>" existiert bereits.
  118. NEWMENU 1,3,67
  119. ;TFPL -7-6-93
  120. MENU neue Version und nur Oberfläche installieren
  121. MENU neue Version und alle Sprachoberflächen installieren
  122. ;TFPL
  123. MENU Alte Version löschen; neue Version NICHT installieren
  124. MENU Konfiguration ändern; Software nicht kopieren
  125. MENU Installation abbrechen ohne Änderungen
  126. ENDCHOICES
  127. ;TFPL 7-6-93
  128. CHOICE 1
  129. CLEAR
  130. TEXT Vorhandene <dest> wird gelöscht...
  131. FOREACH name = <names>
  132.  DEL <dest>\<name>*.*
  133. NEXT
  134. DEL <dest>\FS_*.DRV
  135. DEL <dest>\SC_*.DRV
  136. DEL <dest>\PR_*.DRV
  137. DEL <dest>\GR_*.DRV
  138. DEL <dest>\_DW_*.*
  139. DEL <dest>\ADL_MSGS.*
  140. DEL <dest>\DW.EXE
  141. DEL <dest>\UPDATE.EXE
  142. SET ch = 2
  143. GOTO okpath
  144. ;TFPL
  145.  
  146. CHOICE 2
  147. CLEAR
  148. TEXT Vorhandene <dest> wird gelöscht...
  149. FOREACH name = <names>
  150.  DEL <dest>\<name>*.*
  151. NEXT
  152. DEL <dest>\FS_*.DRV
  153. DEL <dest>\SC_*.DRV
  154. DEL <dest>\PR_*.DRV
  155. DEL <dest>\GR_*.DRV
  156. DEL <dest>\_DW_*.*
  157. DEL <dest>\ADL_MSGS.*
  158. DEL <dest>\DW.EXE
  159. DEL <dest>\UPDATE.EXE
  160. SET ch = 3
  161. GOTO okpath
  162.  
  163. CHOICE 3
  164. CLEAR
  165. TEXT Verzeichnis <dest> wird gelöscht...
  166. FOREACH name = <names>
  167.  DEL <dest>\<name>*.*
  168. NEXT
  169. DEL <dest>\FS_*.DRV
  170. DEL <dest>\SC_*.DRV
  171. DEL <dest>\PR_*.DRV
  172. DEL <dest>\GR_*.DRV
  173. DEL <dest>\_DW_*.*
  174. DEL <dest>\ADL_MSGS.*
  175. DEL <dest>\DW.EXE
  176. DEL <dest>\UPDATE.EXE
  177. IF NOT EXISTS <dest>\*.* GOTO remdest
  178. TEXT <dest> Verzeichnis hat unbekannte Dateien. Verzeichnis nicht entfernt!!
  179. WAIT
  180. GOTO norem
  181. :remdest
  182. RD <dest>
  183. :norem
  184. DEL <dstdrive>\<prod>.BAT
  185. GOTO end2
  186.  
  187. CHOICE 4
  188. SET alter = Y
  189. SET confile = <dest>\_DW_.CFG
  190. GOTO okpath
  191.  
  192. CHOICE 5
  193. GOTO end2
  194. ENDCHOICES
  195.  
  196. :nopath
  197. MD <dest>
  198. IF NOT DIREXISTS <dest> GOTO getdir
  199. ;TFPL 7-6-93
  200.  
  201. TEXT New Installation
  202. NEWMENU 1, 3, 64
  203. MENU neue Version und nur Oberfläche installieren
  204. MENU neue Version und alle Sprachoberflächen installieren
  205. ENDCHOICES
  206.  
  207. CHOICE1
  208. SET ch = 2
  209. GOTO okpath
  210.  
  211. CHOICE2
  212. SET ch = 3
  213. GOTO okpath
  214. ENDCHOICES
  215.  
  216. :okpath
  217.  
  218. ;----------------------------------------------------------------------------
  219.  
  220. IF NOT EXISTS <confile> GOTO no_config
  221. DISP 5,14 Konfiguration wird gelesen...
  222. READCONFIG <confile>
  223. :no_config
  224.  
  225. ;----------------------------------------------------------------------------
  226.  
  227. HSCOUNT hs
  228. IF NOT <hs>==0 GOTO have_hs
  229.  
  230. CLEAR
  231. TEXT FEHLER: Es ist kein CD-ROM Treiber installiert.\n\n
  232. ----Bitte benutzen Sie die vom Hersteller mitgelieferte Installations-\n
  233. ----diskette, um Ihre spezielle Treiber-Software zu installieren,
  234. ---- und wiederholen Sie anschließend dieses Installationsprogramm.\n\n
  235. ----HINWEIS: Durch die Installation des CD-ROM Treibers werden
  236. ---- Dateien auf Ihre Festplatte übertragen und die CONFIG.SYS und die
  237. ---- AUTOEXEC.BAT Dateien verändert. Wenn Sie keine Programme haben,
  238. ---- die das MSCDEX Programm
  239. ---- verwenden, empfehlen wir, MSCDEX aus Ihrer
  240. ---- AUTOEXEC.BAT Datei zu entfernen; diese Software benötigt dieses Programm
  241. ---- nicht.\n\n
  242. ----MERKE: Nach der Installation des CD-ROM Treibers neu booten !!
  243. WAIT
  244. ABORT
  245.  
  246. :have_hs
  247. ;TFPL 19-11-93
  248. GOTO get_hs_letter
  249.  
  250.  
  251. SET msg =
  252. IF <hs>==1 GOTO instOne
  253.  
  254. TEXT Die folgenden <def_cdtype> Treiber sind vorhanden:\n\n
  255. ----Selektieren Sie den <def_cdtype> Gerätetreiber aus der Liste vorhandener
  256. ---- Gerätetreiber mit den  und  Tasten und betätigen Sie ┘ (Eingabe).
  257. ----Betätigen Sie Esc um die Installation abzubrechen.
  258. GOTO :instMore
  259.  
  260. :instOne
  261. SET msg = Ein <def_cdtype> Treiber ist installiert (siehe CONFIG.SYS):\n\n
  262.  
  263. :instMore
  264. HSDRIVER hsname = 25, 6
  265. CONFIG Driver = "<def_driver>=<hsname>"
  266. CLEAR
  267. TEXT <msg>Der selektierte <def_cdtype> Treiber hat den Namen "<hsname>".
  268. ---- Wenn dieser nicht gültig sein soll, betätigen Sie Esc, um die Installation
  269. ---- abzubrechen und überprüfen Sie die CONFIG.SYS Datei.\n\n
  270. ----Diese Software benötigt das Programm MSCDEX.EXE (Microsoft
  271. ---- CD-ROM Extensions) NICHT. Wenn keine anderen Anwendungen dieses Programm
  272. ---- benötigen, können Sie es aus der \AUTOEXEC.BAT Datei entfernen.\n\n
  273. ----Bemerkung: Manche Installationsprogramme fügen das Microsoft CD-ROM Extensions
  274. ---- automatisch in die \AUTOEXEC.BAT Datei ein.
  275. WAIT
  276.  
  277. CLEAR
  278. TEXT <def_cdtype> Treiber wird kopiert...
  279. SET driver_name = <def_driver>.DRV
  280. GOSUB copy_driver
  281. ;TFPL 19-11-93
  282. :get_hs_letter
  283. CLEAR
  284. :tfpl_drive
  285. GOTO tfp1
  286. :drive_error
  287. TEXT Error: The database is not available on the specified drive...\n\n
  288. :tfp1
  289. TEXT \n\n
  290. ----Geben Sie bitte den Buchstaben lhres CD-ROM Laufwerks ein\n
  291. ----(in der Regel "D")...
  292.  
  293. INPUT 2,10,1 inst_drive = CD-ROM ?
  294. IF "inst_drive"=="" GOTO drive_error
  295. IF NOT DIREXISTS <inst_drive>:\ GOTO drive_error
  296. IF NOT EXISTS <inst_drive>:\TTLEDD00 GOTO drive_error
  297.  
  298. ;SET instdrive = <inst_drive>:\
  299. CONFIG Driver = "<inst_drive>:\"
  300. ;CONFIG MaskPath = "<inst_drive>:\DISK1"
  301.  
  302. ;----------------------------------------------------------------------------
  303. :disp_choice
  304. CLEAR
  305. TEXT Bildschirm Möglichkeiten:\n\n
  306. ----Selektieren Sie den Bildschirmtyp mit den  and  Tasten und
  307. ---- betätigen Sie ┘ (Return)
  308.  
  309. NEWMENU ? 6 46
  310. MENU Standard Bildschirm - Keine Grafik
  311. MENU VGA Karte
  312. MENU MCGA Karte
  313. MENU EGA Karte
  314. MENU CGA Karte
  315. MENU Hercules Grafikkarte
  316. MENU Olivetti, AT&T oder Compaq Plasma
  317. MENU Ganzseiten Bildschirme
  318.  
  319. IF "<$Screen:1:3>"=="VGA" DO MENU_DEFAULT 2
  320. IF "<$Screen:1:4>"=="MCGA" DO MENU_DEFAULT 3
  321. IF "<$Screen:1:3>"=="EGA" DO MENU_DEFAULT 4
  322. IF "<$Screen:1:3>"=="CGA" DO MENU_DEFAULT 5
  323. IF "<$Screen:1:3>"=="HER" DO MENU_DEFAULT 6
  324. IF "<$Screen:1:3>"=="COR" DO MENU_DEFAULT 8
  325. IF "<$Screen:1:3>"=="MDS" DO MENU_DEFAULT 8
  326.  
  327. SET Port = N
  328. SET Graphic = N
  329.  
  330. CHOICE 1
  331.  SET scr_type = SC_STD
  332.  SET Port = ?
  333. CHOICE 2
  334.  SET scr_type = SC_VGA
  335.  SET Port = ?
  336. CHOICE 3
  337.  SET scr_type = SC_MCGA
  338.  SET Port = ?
  339. CHOICE 4
  340.  SET scr_type = SC_EGA
  341.  SET Port = ?
  342. CHOICE 5
  343.  SET scr_type = SC_CGA
  344.  SET Port = ?
  345. CHOICE 6
  346.  SET scr_type = SC_HERC
  347. CHOICE 7
  348.  SET scr_type = SC_ATT
  349.  SET Port = ?
  350. CHOICE 8
  351.  SET scr_type = FP
  352. ENDCHOICES
  353.  
  354. IF NOT "<scr_type>"=="FP" GOTO not_full_page
  355.  
  356. CLEAR
  357. TEXT Bildschirm Möglichkeiten:\n
  358. ----Selektieren Sie den Bildschirmtyp mit den  and  Tasten und
  359. ---- betätigen Sie ┘ (Return)
  360.  
  361. NEWMENU ? 6 46
  362. MENU Cornerstone FullPage
  363. MENU MDS Genius
  364.  
  365. IF "<$Screen:1:3>"=="COR" DO MENU_DEFAULT 1
  366. IF "<$Screen:1:3>"=="MDS" DO MENU_DEFAULT 2
  367.  
  368. CHOICE 1
  369.  SET scr_type = SC_CNRST
  370. CHOICE 2
  371.  SET scr_type = SC_MDS
  372. ENDCHOICES
  373.  
  374. :not_full_page
  375.  
  376. SET extra =
  377. IF NOT "<Port>" == "?" GOTO no_scr_opts
  378.  
  379. CLEAR
  380. TEXT Weitere Bildschirm Möglichkeiten:\n\n
  381. ----Selektieren Sie den Bildschirmtyp mit den  and  Tasten und
  382. ---- betätigen Sie ┘ (Return)
  383.  
  384. NEWMENU ? 6 46
  385.  MENU Standard Bildschirm - monochrome oder farbig
  386.  MENU Tragbarer Rechner   - eingebauter monochrome Bildschirm
  387.  IF "<scr_type>"=="SC_CGA" DO MENU CGA                 - alter Farbmonitor "Flimmern"
  388.  
  389. IF "<$Screen:-4>"=="PORT" DO MENU_DEFAULT 2
  390.  
  391. CHOICE 2
  392.   SET extra = P
  393. CHOICE 3
  394.   SET extra = F
  395. ENDCHOICES
  396.  
  397. :no_scr_opts
  398.  
  399. CONFIG Screen = "<scr_type>=<extra>"
  400.  
  401. CLEAR
  402. TEXT Bildschirmtreiber wird kopiert...
  403. SET driver_name = <scr_type>.DRV
  404. GOSUB copy_driver
  405.  
  406. ;----------------------------------------------------------------------------
  407.  
  408. CLEAR
  409. TEXT Drucker Auswahl:\n
  410. ---- Selektieren Sie den Druckertyp mit den  und  Tasten und\n
  411. ---- bestätigen Sie mit ┘ (Return)
  412.  
  413. SET extra =
  414.  
  415. NEWMENU ? 6 46
  416. MENU HP LaserJet Familie
  417. MENU HP DeskJet Familie
  418. MENU JLaser Drucker Controller
  419. MENU Anderer Drucker
  420.  
  421. CHOICE 1
  422.   SET prn_type = PR_PCL?
  423. CHOICE 2
  424.   SET prn_type = PR_DJ?
  425. CHOICE 3
  426.   SET prn_type = PR_JL?
  427. CHOICE 4
  428.   SET prn_type = PR_STD
  429. ENDCHOICES
  430.  
  431. IF "<prn_type>" == "PR_PCL?" GOTO pr_type_1
  432. IF "<prn_type>" == "PR_DJ?" GOTO pr_type_2
  433. IF "<prn_type>" == "PR_JL?" GOTO pr_type_3
  434. IF "<prn_type>" == "PR_STD" GOTO pr_type_4
  435.  
  436. :pr_type_1
  437.  
  438.   CLEAR
  439.  
  440.   GOSUB pr_detail
  441.  
  442.   NEWMENU ? 6 46
  443.   MENU HP LaserJet(+), LaserJet 500(+), LaserJet 2000
  444.   MENU HP LaserJet Series II, IID
  445.   MENU HP LaserJet IIP(+), III(+), IIID, IIIP, IIISi
  446.  
  447.   CHOICE 1
  448.     SET extra = R
  449.   CHOICE 2
  450.     SET extra = X
  451.   CHOICE 3
  452.     SET extra = XG
  453.   ENDCHOICES
  454.  
  455.   GOSUB pr_detail
  456.  
  457.   NEWMENU ? 6 46
  458.   MENU 300 Dpi (  1Mb Speicher)
  459.   MENU 150 Dpi (512Kb Speicher)
  460.   MENU 75  Dpi (256Kb Speicher)
  461.  
  462.   CHOICE 1
  463.     SET prn_type = PR_PCL30
  464.   CHOICE 2
  465.     SET prn_type = PR_PCL15
  466.   CHOICE 3
  467.     SET prn_type = PR_PCL75
  468.   ENDCHOICES
  469.  
  470.   GOTO pr_type_ok
  471.  
  472. :pr_type_2
  473.  
  474.   GOSUB pr_detail
  475.  
  476.   NEWMENU ? 6 46
  477.   MENU HP DeskJet(+)
  478.   MENU HP DeskJet 500
  479.   MENU HP DeskJet 500C
  480.  
  481.   CHOICE 1
  482.     SET extra = X
  483.   CHOICE 2
  484.     SET extra = XG
  485.   CHOICE 3
  486.     SET extra = XG
  487.   ENDCHOICES
  488.  
  489.   GOSUB pr_detail
  490.  
  491.   NEWMENU ? 6 46
  492.   MENU 300 Dpi
  493.   MENU 150 Dpi
  494.   MENU 75  Dpi
  495.  
  496.   CHOICE 1
  497.     SET prn_type = PR_PCL30
  498.   CHOICE 2
  499.     SET prn_type = PR_PCL15
  500.   CHOICE 3
  501.     SET prn_type = PR_PCL75
  502.   ENDCHOICES
  503.  
  504.   GOTO pr_type_ok
  505.  
  506. :pr_type_3
  507.  
  508.   GOSUB pr_detail
  509.  
  510.   NEWMENU ? 6 46
  511.   MENU HP LaserJet(+), LaserJet 500(+), LaserJet 2000
  512.   MENU HP LaserJet (alle anderen Modelle)
  513.   MENU Canon LBP (alle Modelle)
  514.  
  515.   CHOICE 1
  516.     SET prn_type = PR_JLHP
  517.     SET extra = R
  518.   CHOICE 2
  519.     SET prn_type = PR_JLHP
  520.     SET extra = X
  521.   CHOICE 3
  522.     SET prn_type = PR_JLCAN
  523.   ENDCHOICES
  524.  
  525.   GOTO pr_type_ok
  526.  
  527. :pr_type_4
  528.  
  529.   GOSUB pr_detail
  530.  
  531.   NEWMENU ? 6 46
  532.   MENU 8-bit Zeichensatz (standard)
  533.   MENU 7-bit National Zeichensatz
  534.  
  535.   CHOICE 2
  536.     SET extra = 7
  537.   ENDCHOICES
  538.  
  539.   GOTO pr_type_ok
  540.  
  541. :pr_detail
  542. CLEAR
  543. TEXT Drucker Option:\n
  544. ----   Selektieren Sie die Druckeroption mit den  und  Tasten und\n
  545. ---- bestätigen Sie ┘ (Return)
  546. RETURN
  547.  
  548. :pr_type_ok
  549.  
  550. SET port =
  551.  
  552. NEWMENU ? 6 40
  553. MENU LPT1       Paralleler Drucker # 1
  554. MENU COM1       Serieller Drucker  # 1
  555. MENU LPT2       Paralleler Drucker # 2
  556. MENU COM2       Serieller Drucker  # 2
  557. MENU LPT3       Paralleler Drucker # 3
  558. MENU LPT4       Paralleler Drucker # 4
  559. MENU PRN        Aktueller DOS-Drucker
  560.  
  561. CLEAR
  562. TEXT Drucker Verbindung/Schnittstelle Port Option:\n
  563. ----   Selektieren Sie die Druckerportoption mit den  und  Tasten und\n
  564. ---- bestätigen Sie mit ┘ (Return)
  565.  
  566. CHOICE 1
  567.  SET port = LPT1,
  568. CHOICE 2
  569.  SET port = COM1,
  570. CHOICE 3
  571.  SET port = LPT2,
  572. CHOICE 4
  573.  SET port = COM2,
  574. CHOICE 5
  575.  SET port = LPT3,
  576. CHOICE 6
  577.  SET port = LPT4,
  578. CHOICE 7
  579.  SET port = PRN,
  580. ENDCHOICES
  581.  
  582. CONFIG Printer = "<prn_type>=<port><extra>"
  583.  
  584. CLEAR
  585. TEXT Druckertreiber wird kopiert...
  586. SET driver_name = <prn_type>.DRV
  587. GOSUB copy_driver
  588.  
  589. ;----------------------------------------------------------------------------
  590.  
  591. IF "<alter>"=="Y" GOTO done
  592.  
  593. :read_disk
  594. GOSUB need_disk
  595. ;TFPL 3-6-93
  596. IF "<ch>"=="2" GOTO inst_only_eng
  597. IF "<ch>"=="3" GOTO inst_all
  598.  
  599. :inst_only_eng
  600. CLEAR
  601.  
  602. TEXT Anwendungsdateien und Oberfläche installieren
  603. COPY_OPT <insdrive>\DISK<curdisk>\*.DEU <dest>
  604. COPY_OPT <insdrive>\DISK<curdisk>\*.EXE <dest>
  605. COPY_OPT <insdrive>\DISK<curdisk>\*.DRV <dest>
  606. COPY_OPT <insdrive>\DISK<curdisk>\*. <dest>
  607. COPY_OPT <ins>\_DW_MSGS.DEU <dest>
  608. COPY_OPT <ins>\ADL_MSGS.DEU <dest>
  609. GOTO adl_dw_message
  610.  
  611.  
  612. :inst_all
  613. ;TFPL
  614.  
  615. CLEAR
  616. TEXT Anwendungsprogramme werden kopiert...
  617. COPY_OPT <insdrive>\DISK<curdisk>\*.* <dest>
  618. ;TFPL 7-6-93
  619.  
  620. COPY_OPT <ins>\_DW_MSGS.* <dest>
  621. COPY_OPT <ins>\ADL_MSGS.* <dest>
  622.  
  623. GOTO adl_dw_message
  624.  
  625. :inst_only_soft
  626. CLEAR
  627.  
  628. TEXT Installing only software files...
  629. COPY_OPT <insdrive>\DISK<curdisk>\*.EXE <dest>
  630. COPY_OPT <insdrive>\DISK<curdisk>\*.DRV <dest>
  631. COPY_OPT <insdrive>\DISK<curdisk>\????.* <dest>
  632. COPY_OPT <ins>\_DW_MSGS.* <dest>
  633. COPY_OPT <ins>\ADL_MSGS.* <dest>
  634. ;TFPL
  635.  
  636. ;Copy adl and dw message files
  637. :adl_dw_message
  638. IF NOT DIREXISTS <ins> GOTO skip_message_files
  639. COPY_OPT <ins>\UPDATE.EXE <dest>
  640. :skip_message_files
  641.  
  642. CALC curdisk = <curdisk> + 1
  643. IF EXISTS <insdrive>MORE GOTO read_disk
  644.  
  645. CONFIG Language = "<def_lang>"
  646. goto DONE
  647.  
  648. :abort
  649. if "<dest>"=="" GOTO nofiles
  650. if "<alter>"=="Y" GOTO nofiles
  651. CLEAR
  652. TEXT \n\n!!! Installation abgebrochen !!!\n\n
  653. ----   Kopierte Dateien werden entfernt...
  654. UNCOPY
  655. :nofiles
  656. CLEAR
  657. TEXT \n\n!!! Installation abgebrochen !!!\n\n
  658. goto END
  659.  
  660. :copy_driver
  661. IF EXISTS <ins>\<driver_name> GOTO ok_copy
  662. CALC curdisk = <curdisk> + 1
  663. GOSUB need_disk
  664. GOTO copy_driver
  665. :ok_copy
  666. COPY <ins>\<driver_name> <dest>
  667. RETURN
  668.  
  669. :need_disk
  670. IF DIREXISTS <insdrive>\DISK<curdisk> DO RETURN
  671. :retry_disk2
  672. CLEAR
  673. TEXT Installationsdiskette Nummer <curdisk> bitte einlegen und ┘ betätigen.
  674. WAIT
  675. IF DIREXISTS <insdrive>\DISK<curdisk> DO RETURN
  676.  
  677. CLEAR
  678. TEXT Die eingelegte Installationsdiskette Nummer <curdisk> ist ungültig!
  679. NEWMENU ?, 3, 15
  680. MENU Wiederversuchen
  681. MENU Abbrechen
  682.  
  683. CHOICE 1
  684. GOTO retry_disk2
  685. ENDCHOICES
  686.  
  687. ABORT
  688.  
  689. :done
  690. CLEAR
  691. TEXT Konfiguration wird aktuallisiert
  692. WRITECONFIG <dest>\_DW_.CFG
  693. IF "<alter>"=="Y" GOTO end
  694. WRITEFILE <dstdrive>\<prod>.BAT = <dstdrive>\ncd <path>\nDW\ncd \\n
  695.  
  696. CLEAR
  697. TEXT \n  Installation beendet!\n\n
  698. ----Eine Stapeldatei wurde im <dstdrive>\ Verzeichnis angelegt
  699. ---- mit dem Namen <prod>.\n\n
  700. ----Um die <prod> Anwendung aufzurufen:\n\n
  701. ----              <prod> ┘ eingeben\n\n
  702. ----Wichtig: Damit dieser Befehl wie angegeben funktioniert, müssen Sie
  703. ---- sich im <dstdrive>\ Verzeichnis befinden oder das Verzeichnis <dstdrive>\
  704. ---- muß in der PATH-Variable angegeben sein.
  705. :end
  706. WAIT
  707.  
  708. :end2
  709. CD <$CurDir>
  710.