home *** CD-ROM | disk | FTP | other *** search
/ The CD-ROM Directory (10th Edition) / The CD-ROM Directory 10th Edition.ISO / install / inscript.ita < prev    next >
Encoding:
Text File  |  1993-06-28  |  16.1 KB  |  687 lines
  1. ; CD Answer Installation Script - Generic                               jdk
  2. ; <<CDA>> Jun 1 1993;3.2
  3.  
  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. ;TFPL 8-6-93
  38. ;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
  39. ;CONFIG ColorSet = 55
  40. ;TFPL
  41.  
  42. ;  default destination drive
  43. PARSE_PATH <$CurDir>
  44. SET def_dest = C:\
  45. IF NOT "<$Drive>"=="<insdrive>" DO SET def_def = <$Drive>
  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. ----        Istallazione di CD Answer per:\n\n
  77. ----               <prod>\n\n
  78. ----        Applicazione(i): <names>
  79. :show_banner
  80. CLEAR
  81. TEXT <screen>
  82. SET screen =
  83. WAIT
  84.  
  85. GOTO okdir
  86. :getdir
  87. CLEAR
  88. TEXT \nErrore -\n\n
  89. ----  Il path "<dstdrive><path>" non è legale!\n
  90. ----Per istallare il programma, ci vuole una unità come un
  91. ---- sottodirettorio valido.
  92. WAIT
  93. :okdir
  94. CLEAR
  95. TEXT La software di ricupero di dati deve esser istallata in un disco
  96. ---- duro o in un disco flessibile formato.  I valori standard sono unità <dstdrive>\n
  97. ----(di solito il disco duro), e un sottodirettorio chiamato <path>.\n
  98. ----Per usare questi valori, premere due volte la tastiera ┘ (Invio).  Per\n
  99. ----cambiarli, scrivere il nome della unità o del sottodirettorio dopo\n
  100. ----l'avviso corrispondente.  Quindi premere ┘ (Invio).
  101.  
  102. INPUT 6,8,5 dstdrive = Istallare nell'unità     ?
  103. INPUT 6,10,40 path   = Istallare nel direttorio ?
  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 Il direttorio "<dest>" già esiste.
  118. NEWMENU 1, 3, 68
  119. ;TFPL -8-6-93
  120. MENU Istallare la software e solo l'interfaccia italiana
  121. MENU Istallare la software e l'interfaccia per tutte le lingue
  122. ;TFPL
  123. MENU Cancellare la versione vecchia; non istallare la software nuova
  124. MENU Cambiare la configurazione; non copiare software
  125. MENU Interrompere la istallazione senza fare nessun cambio
  126. ENDCHOICES
  127.  
  128. ;TFPL -8-6-93
  129. CHOICE 1
  130. CLEAR
  131. TEXT Effacement du contenu antérieur de <dest>...
  132. FOREACH name = <names>
  133.  DEL <dest>\<name>*.*
  134. NEXT
  135. DEL <dest>\FS_*.DRV
  136. DEL <dest>\SC_*.DRV
  137. DEL <dest>\PR_*.DRV
  138. DEL <dest>\GR_*.DRV
  139. DEL <dest>\_DW_*.*
  140. DEL <dest>\ADL_MSGS.*
  141. DEL <dest>\DW.EXE
  142. DEL <dest>\UPDATE.EXE
  143. SET ch = 2
  144. GOTO okpath
  145.  
  146. ;TFPL
  147.  
  148. CHOICE 2
  149. CLEAR
  150. TEXT Cancellando il contenuto anteriore di <dest>...
  151. FOREACH name = <names>
  152. DEL <dest>\<name>*.*
  153. NEXT
  154. DEL <dest>\FS_*.DRV
  155. DEL <dest>\SC_*.DRV
  156. DEL <dest>\PR_*.DRV
  157. DEL <dest>\GR_*.DRV
  158. DEL <dest>\_DW_*.*
  159. DEL <dest>\ADL_MSGS.*
  160. DEL <dest>\DW.EXE
  161. DEL <dest>\UPDATE.EXE
  162. SET ch = 3
  163. GOTO okpath
  164.  
  165. CHOICE 3
  166. CLEAR
  167. TEXT Cancellando <dest> direttorio...
  168. FOREACH name = <names>
  169. DEL <dest>\<name>*.*
  170. NEXT
  171. DEL <dest>\FS_*.DRV
  172. DEL <dest>\SC_*.DRV
  173. DEL <dest>\PR_*.DRV
  174. DEL <dest>\GR_*.DRV
  175. DEL <dest>\_DW_*.*
  176. DEL <dest>\ADL_MSGS.*
  177. DEL <dest>\DW.EXE
  178. DEL <dest>\UPDATE.EXE
  179. IF NOT EXISTS <dest>\*.* GOTO remdest
  180. TEXT <dest> direttorio ha archivi sconosciuti; direttorio non è stato cancellato!!
  181. WAIT
  182. GOTO norem
  183. :remdest
  184. RD <dest>
  185. :norem
  186. DEL <dstdrive>\<prod>.BAT
  187. GOTO end2
  188.  
  189. CHOICE 4
  190. SET alter = Y
  191. SET confile = <dest>\_DW_.CFG
  192. GOTO okpath
  193.  
  194. CHOICE 5
  195. GOTO end2
  196. ENDCHOICES
  197.  
  198. :nopath
  199. MD <dest>
  200. IF NOT DIREXISTS <dest> GOTO getdir
  201.  
  202. ;TFPL -8-6-93
  203. TEXT New Installation
  204. NEWMENU 1, 3, 65
  205. MENU Istallare la software e solo l'interfaccia italiana
  206. MENU Istallare la software e l'interfaccia per tutte le lingue
  207. ENDCHOICES
  208.  
  209. CHOICE1
  210. SET ch = 2
  211. GOTO okpath
  212.  
  213. CHOICE2
  214. SET ch = 3
  215. GOTO okpath
  216. ENDCHOICES
  217.  
  218. :okpath
  219.  
  220. ;----------------------------------------------------------------------------
  221.  
  222. IF NOT EXISTS <confile> GOTO no_config
  223. DISP 5,14 Leggendo la configurazione...
  224. READCONFIG <confile>
  225. :no_config
  226.  
  227. ;----------------------------------------------------------------------------
  228.  
  229. HSCOUNT hs
  230. IF NOT <hs>==0 GOTO have_hs
  231.  
  232. CLEAR
  233. TEXT  Problema - Non c'è nessuna unità CD-ROM istallata.\n\n
  234. ----Si prega di usare il disco d'istallazione proporzionato por il fabbricante dell'
  235. ---- unità CD-ROM per istallare la software del device driver.  Quindi
  236. ---- ripeta questo programma d'istallazione.\n\n
  237. ----Note: Il programma d'istallazione dell'unità CD-ROM copierà alcuni
  238. ---- archivi sul disco di sistema e cambiarà gli archivi CONFIG.SYS e
  239. ---- AUTOEXEC.BAT\n
  240. ----Se Lei non ha altri programmi che usano il programma MSCDEX, si raccomanda
  241. ---- elliminare la riga che chiama questo programma di suo archivio AUTOEXEC.BAT
  242. ---- perché questa software non lo bisogna.\n\n
  243. ----Dopo aver istallato i drivers CD-ROM si deve ricominciare il sistema.
  244.  
  245. WAIT
  246. ABORT
  247.  
  248. :have_hs
  249.  
  250. SET msg =
  251. IF <hs>==1 GOTO instOne
  252.  
  253. TEXT Una selezione di <def_cdtype> drivers CD-ROM sono disponibili:\n\n
  254. ----Selezione il device driver CD-ROM <def_cdtype> di questa lista di device
  255. ----drivers disponibili usando le tastiere  y .  Quindi\n
  256. ----premere ┘ (Invio).  Premere Esc per interrompere l'istallazione.
  257. GOTO :instMore
  258.  
  259. :instOne
  260. SET msg = Un driver CD-ROM <def_cdtype> è stato istallato (guardare CONFIG.SYS):\n\n
  261.  
  262. :instMore
  263. HSDRIVER hsname = 25, 8
  264. CONFIG Driver = "<def_driver>=<hsname>"
  265. CLEAR
  266. TEXT <msg>Il driver CD-ROM <def_cdtype> selezionato si chiama "<hsname>".
  267. ----  Se questo non è corretto, premere Esc per interrompere l'istallazione e
  268. ---- controllare l'archivio CONFIG.SYS\n\n
  269. ----Questa software NON ha bisogno del programma MSCDEX.EXE (Microsoft CD-ROM
  270. ---- Extensions).  Se nessun altro programma l'ha bisogno dunque Lei può
  271. ---- elliminare questo programma del suo archivio \AUTOEXEC.BAT (dove può essere
  272. ---- stato istallato dal programma d'istallazione).
  273.  
  274. WAIT
  275.  
  276. CLEAR
  277. TEXT Copiando Interface CD-ROM <def_cdtype>...
  278. SET driver_name = <def_driver>.DRV
  279. GOSUB copy_driver
  280.  
  281. ;----------------------------------------------------------------------------
  282. :disp_choice
  283. CLEAR
  284. TEXT Presenta Alternative:\n\n
  285. ---- Usare le tastiere  e  per scegliere un tipo di schermo\n
  286. ---- e premere ┘ (Invio).
  287.  
  288. NEWMENU ? 6 46
  289. MENU Schermo Standard - Senza capacità grafica
  290. MENU Adattatore VGA
  291. MENU Adattatore MCGA
  292. MENU Adattatore EGA
  293. MENU Adattatore CGA
  294. MENU Carta Grafica Hercules
  295. MENU Olivetti, AT&T o Compaq Plasma
  296. MENU Pagina intera
  297.  
  298. IF "<$Screen:1:3>"=="VGA" DO MENU_DEFAULT 2
  299. IF "<$Screen:1:4>"=="MCGA" DO MENU_DEFAULT 3
  300. IF "<$Screen:1:3>"=="EGA" DO MENU_DEFAULT 4
  301. IF "<$Screen:1:3>"=="CGA" DO MENU_DEFAULT 5
  302. IF "<$Screen:1:3>"=="HER" DO MENU_DEFAULT 6
  303. IF "<$Screen:1:3>"=="COR" DO MENU_DEFAULT 8
  304. IF "<$Screen:1:3>"=="MDS" DO MENU_DEFAULT 8
  305.  
  306. SET Port = N
  307. SET Graphic = N
  308.  
  309. CHOICE 1
  310.  SET scr_type = SC_STD
  311.  SET Port = ?
  312. CHOICE 2
  313.  SET scr_type = SC_VGA
  314.  SET Port = ?
  315. CHOICE 3
  316.  SET scr_type = SC_MCGA
  317.  SET Port = ?
  318. CHOICE 4
  319.  SET scr_type = SC_EGA
  320.  SET Port = ?
  321. CHOICE 5
  322.  SET scr_type = SC_CGA
  323.  SET Port = ?
  324. CHOICE 6
  325.  SET scr_type = SC_HERC
  326. CHOICE 7
  327.  SET scr_type = SC_ATT
  328.  SET Port = ?
  329. CHOICE 8
  330.  SET scr_type = FP
  331. ENDCHOICES
  332.  
  333. IF NOT "<scr_type>"=="FP" GOTO not_full_page
  334.  
  335. CLEAR
  336. TEXT Presenta Alternative:\n\n
  337. ---- Usare le tastiere  e  per scegliere un tipo di schermo\n
  338. ---- e premere ┘ (Invio).
  339.  
  340. NEWMENU ? 6 46
  341. MENU Cornerstone FullPage
  342. MENU MDS Genius
  343.  
  344. IF "<$Screen:1:3>"=="COR" DO MENU_DEFAULT 1
  345. IF "<$Screen:1:3>"=="MDS" DO MENU_DEFAULT 2
  346.  
  347. CHOICE 1
  348.  SET scr_type = SC_CNRST
  349. CHOICE 2
  350.  SET scr_type = SC_MDS
  351. ENDCHOICES
  352.  
  353. :not_full_page
  354.  
  355. SET extra =
  356. IF NOT "<Port>" == "?" GOTO no_scr_opts
  357.  
  358. CLEAR
  359. TEXT Presenta Alternative Dettagliate:\n\n
  360. ---- Usare le tastiere  e  per scegliere lo schermo\n
  361. ---- e premere ┘ (Invio).
  362.  
  363. NEWMENU ? 6 46
  364.  MENU Monitore Standard di Colore o Monocromo
  365.  MENU Computer Portabile - con monitore Monocromo compreso
  366.  IF "<scr_type>"=="SC_CGA" DO MENU Schermi di Colore Più Antichi - interferenza o "neve"
  367.  
  368. IF "<$Screen:-4>"=="PORT" DO MENU_DEFAULT 2
  369.  
  370. CHOICE 2
  371.   SET extra = P
  372. CHOICE 3
  373.   SET extra = F
  374. ENDCHOICES
  375.  
  376. :no_scr_opts
  377.  
  378. CONFIG Screen = "<scr_type>=<extra>"
  379.  
  380. CLEAR
  381. TEXT Copiando il Driver dello Schermo...
  382. SET driver_name = <scr_type>.DRV
  383. GOSUB copy_driver
  384.  
  385. ;----------------------------------------------------------------------------
  386.  
  387. CLEAR
  388. TEXT Alternative di Stampante:\n\n
  389. ---- Usare le tastiere  e  per scegliere il tipo di stampante\n
  390. ---- e premere ┘ (Invio).
  391.  
  392. SET extra =
  393.  
  394. NEWMENU ? 6 46
  395. MENU HP LaserJet Serie
  396. MENU HP DeskJet Serie
  397. MENU JLaser Controller Stampante
  398. MENU Altre Stampanti
  399.  
  400. CHOICE 1
  401.   SET prn_type = PR_PCL?
  402. CHOICE 2
  403.   SET prn_type = PR_DJ?
  404. CHOICE 3
  405.   SET prn_type = PR_JL?
  406. CHOICE 4
  407.   SET prn_type = PR_STD
  408. ENDCHOICES
  409.  
  410. IF "<prn_type>" == "PR_PCL?" GOTO pr_type_1
  411. IF "<prn_type>" == "PR_DJ?" GOTO pr_type_2
  412. IF "<prn_type>" == "PR_JL?" GOTO pr_type_3
  413. IF "<prn_type>" == "PR_STD" GOTO pr_type_4
  414.  
  415. :pr_type_1
  416.  
  417.   CLEAR
  418.  
  419.   GOSUB pr_detail
  420.  
  421.   NEWMENU ? 6 46
  422.   MENU HP LaserJet(+), LaserJet 500(+), LaserJet 2000
  423.   MENU HP LaserJet Series II, IID
  424.   MENU HP LaserJet IIP(+), III(+), IIID, IIIP, IIISi
  425.  
  426.   CHOICE 1
  427.     SET extra = R
  428.   CHOICE 2
  429.     SET extra = X
  430.   CHOICE 3
  431.     SET extra = XG
  432.   ENDCHOICES
  433.  
  434.   GOSUB pr_detail
  435.  
  436.   NEWMENU ? 6 46
  437.   MENU 300 Dpi (  1Mb memoria)
  438.   MENU 150 Dpi (512Kb memoria)
  439.   MENU 75  Dpi (256Kb memoria)
  440.  
  441.   CHOICE 1
  442.     SET prn_type = PR_PCL30
  443.   CHOICE 2
  444.     SET prn_type = PR_PCL15
  445.   CHOICE 3
  446.     SET prn_type = PR_PCL75
  447.   ENDCHOICES
  448.  
  449.   GOTO pr_type_ok
  450.  
  451. :pr_type_2
  452.  
  453.   GOSUB pr_detail
  454.  
  455.   NEWMENU ? 6 46
  456.   MENU HP DeskJet(+)
  457.   MENU HP DeskJet 500
  458.   MENU HP DeskJet 500C
  459.  
  460.   CHOICE 1
  461.     SET extra = X
  462.   CHOICE 2
  463.     SET extra = XG
  464.   CHOICE 3
  465.     SET extra = XG
  466.   ENDCHOICES
  467.  
  468.   GOSUB pr_detail
  469.  
  470.   NEWMENU ? 6 46
  471.   MENU 300 Dpi
  472.   MENU 150 Dpi
  473.   MENU 75  Dpi
  474.  
  475.   CHOICE 1
  476.     SET prn_type = PR_PCL30
  477.   CHOICE 2
  478.     SET prn_type = PR_PCL15
  479.   CHOICE 3
  480.     SET prn_type = PR_PCL75
  481.   ENDCHOICES
  482.  
  483.   GOTO pr_type_ok
  484.  
  485. :pr_type_3
  486.  
  487.   GOSUB pr_detail
  488.  
  489.   NEWMENU ? 6 46
  490.   MENU HP LaserJet(+), LaserJet 500(+), LaserJet 2000
  491.   MENU HP LaserJet (tutti gli altri modelli)
  492.   MENU Canon LBP (ogni modelli)
  493.  
  494.   CHOICE 1
  495.     SET prn_type = PR_JLHP
  496.     SET extra = R
  497.   CHOICE 2
  498.     SET prn_type = PR_JLHP
  499.     SET extra = X
  500.   CHOICE 3
  501.     SET prn_type = PR_JLCAN
  502.   ENDCHOICES
  503.  
  504.   GOTO pr_type_ok
  505.  
  506. :pr_type_4
  507.  
  508.   GOSUB pr_detail
  509.  
  510.   NEWMENU ? 6 46
  511.   MENU gruppo di caratteri PC 8 (std)
  512.   MENU gruppo di caratteri 7 bit nazionale
  513.  
  514.   CHOICE 2
  515.     SET extra = 7
  516.   ENDCHOICES
  517.  
  518.   GOTO pr_type_ok
  519.  
  520. :pr_detail
  521. CLEAR
  522. TEXT Alternative Dettagliate di Stampante:\n\n
  523. ---- Usare le tastiere  e  per scegliere lo stampante\n
  524. ---- e premere ┘ (Invio).
  525. RETURN
  526.  
  527. :pr_type_ok
  528.  
  529. SET port =
  530.  
  531. NEWMENU ? 6 40
  532. MENU LPT1       Stampante Parallelo # 1
  533. MENU COM1       Stampante Seriale # 1
  534. MENU LPT2       Stampante Parallelo # 2
  535. MENU COM2       Stampante Seriale # 2
  536. MENU LPT3       Stampante Parallelo # 3
  537. MENU LPT4       Stampante Parallelo # 4
  538. MENU PRN        Stampante attuale DOS
  539.  
  540. CLEAR
  541. TEXT Alternative di Conessione di Stampante:\n\n
  542. ---- Usare le tastiere  e  per scegliere il port di stampante\n
  543. ---- e premere ┘ (Invio).
  544.  
  545. CHOICE 1
  546.  SET port = LPT1,
  547. CHOICE 2
  548.  SET port = COM1,
  549. CHOICE 3
  550.  SET port = LPT2,
  551. CHOICE 4
  552.  SET port = COM2,
  553. CHOICE 5
  554.  SET port = LPT3,
  555. CHOICE 6
  556.  SET port = LPT4,
  557. CHOICE 7
  558.  SET port = PRN,
  559. ENDCHOICES
  560.  
  561. CONFIG Printer = "<prn_type>=<port><extra>"
  562.  
  563. CLEAR
  564. TEXT Copiando il Driver dello Stampante...
  565. SET driver_name = <prn_type>.DRV
  566. GOSUB copy_driver
  567.  
  568. ;----------------------------------------------------------------------------
  569.  
  570. IF "<alter>"=="Y" GOTO done
  571.  
  572. :read_disk
  573. GOSUB need_disk
  574.  
  575. ;TFPL 8-6-93
  576. IF "<ch>"=="2" GOTO inst_only_eng
  577. IF "<ch>"=="3" GOTO inst_all
  578.  
  579. :inst_only_eng
  580. CLEAR
  581.  
  582. TEXT Istallando gli archivi dell'applicazione e l'interfaccia italiana...
  583. COPY_OPT <insdrive>\DISK<curdisk>\*.ITA <dest>
  584. COPY_OPT <insdrive>\DISK<curdisk>\*.EXE <dest>
  585. COPY_OPT <insdrive>\DISK<curdisk>\*.DRV <dest>
  586. COPY_OPT <insdrive>\DISK<curdisk>\*. <dest>
  587. COPY_OPT <ins>\_DW_MSGS.ITA <dest>
  588. COPY_OPT <ins>\ADL_MSGS.ITA <dest>
  589. GOTO adl_dw_message
  590.  
  591. :inst_all
  592. ;TFPL
  593.  
  594. CLEAR
  595. TEXT Istallando archivi d'Applicazione del Disco d'Istallazione <curdisk>...
  596. COPY_OPT <insdrive>\DISK<curdisk>\*.* <dest>
  597.  
  598. ;TFPL 8-6-93
  599. COPY_OPT <ins>\_DW_MSGS.* <dest>
  600. COPY_OPT <ins>\ADL_MSGS.* <dest>
  601. GOTO adl_dw_message
  602.  
  603. :inst_only_soft
  604. CLEAR
  605.  
  606. TEXT Installing only software files...
  607. COPY_OPT <insdrive>\DISK<curdisk>\*.EXE <dest>
  608. COPY_OPT <insdrive>\DISK<curdisk>\*.DRV <dest>
  609. COPY_OPT <insdrive>\DISK<curdisk>\????.* <dest>
  610. COPY_OPT <ins>\_DW_MSGS.* <dest>
  611. COPY_OPT <ins>\ADL_MSGS.* <dest>
  612. ;TFPL
  613. :adl_dw_message
  614. ;Copy adl and dw message files
  615. IF NOT DIREXISTS <ins> GOTO skip_message_files
  616. COPY_OPT <ins>\UPDATE.EXE <dest>
  617. :skip_message_files
  618.  
  619. CALC curdisk = <curdisk> + 1
  620. IF EXISTS <insdrive>MORE GOTO read_disk
  621.  
  622. CONFIG Language = "<def_lang>"
  623. goto DONE
  624.  
  625. :abort
  626. if "<dest>"=="" GOTO nofiles
  627. if "<alter>"=="Y" GOTO nofiles
  628. CLEAR
  629. TEXT \n\n!!! Istallazione Interrota !!!\n\n
  630. ----   Cancellando tutti gli archivi copiati...
  631. UNCOPY
  632. :nofiles
  633. CLEAR
  634. TEXT \n\n!!! Istallazione Interrota !!!\n\n
  635. goto END
  636.  
  637. :copy_driver
  638. IF EXISTS <ins>\<driver_name> GOTO ok_copy
  639. CALC curdisk = <curdisk> + 1
  640. GOSUB need_disk
  641. GOTO copy_driver
  642. :ok_copy
  643. COPY <ins>\<driver_name> <dest>
  644. RETURN
  645.  
  646. :need_disk
  647. IF DIREXISTS <insdrive>\DISK<curdisk> DO RETURN
  648. :retry_disk2
  649. CLEAR
  650. TEXT Introdurre il Disco d'Istallazione Numero <curdisk> e premere ┘ (Invio).
  651. WAIT
  652. IF DIREXISTS <insdrive>\DISK<curdisk> DO RETURN
  653.  
  654. CLEAR
  655. TEXT Il disco introdotto non è il Disco d'Istallazione Numero <curdisk> !
  656. NEWMENU ?, 3, 15
  657. MENU Ripetere
  658. MENU Interrompere
  659.  
  660. CHOICE 1
  661. GOTO retry_disk2
  662. ENDCHOICES
  663.  
  664. ABORT
  665.  
  666. :done
  667. CLEAR
  668. TEXT Attualizzando la Configurazione
  669. WRITECONFIG <dest>\_DW_.CFG
  670. IF "<alter>"=="Y" GOTO end
  671. WRITEFILE <dstdrive>\<prod>.BAT = <dstdrive>\ncd <path>\nDW\ncd \\n
  672.  
  673. CLEAR
  674. TEXT \n  Istallazione completa!\n\n
  675. ----Un archivio batch è stato fatto nel direttorio <dstdrive>\ con il nome <prod>.\n\n
  676. ----Per iniziare il programma, scrivere:\n\n
  677. ----  <prod> ┘\n\n
  678. ----Importante: Per fare funzionare bene questo commando, si deve
  679. ---- cominciare nel direttorio <dstdrive>\  o includerlo nella variabile PATH.
  680.  
  681. :end
  682. WAIT
  683.  
  684. :end2
  685. CD <$CurDir>
  686.  
  687.