home *** CD-ROM | disk | FTP | other *** search
/ The CD-ROM Directory (13th Edition) / The CD-ROM Directory 13.iso / install / inscript.ita < prev    next >
Encoding:
Text File  |  1993-11-19  |  16.7 KB  |  711 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 Installare il software e solo l'interfaccia italiana
  121. MENU INSTALLARE il software e l'interfaccia per tutte le lingue
  122. ;TFPL
  123. MENU Cancellare la versione vecchia;non installare il software nuovo
  124. MENU Cambiare la configurazione;non copiare il software
  125. MENU Interrompere l'installazione 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. ;TFPL 19-11-93
  250. GOTO get_hs_letter
  251.  
  252. SET msg =
  253. IF <hs>==1 GOTO instOne
  254.  
  255. TEXT Una selezione di <def_cdtype> drivers CD-ROM sono disponibili:\n\n
  256. ----Selezione il device driver CD-ROM <def_cdtype> di questa lista di device
  257. ----drivers disponibili usando le tastiere  y .  Quindi\n
  258. ----premere ┘ (Invio).  Premere Esc per interrompere l'istallazione.
  259. GOTO :instMore
  260.  
  261. :instOne
  262. SET msg = Un driver CD-ROM <def_cdtype> è stato istallato (guardare CONFIG.SYS):\n\n
  263.  
  264. :instMore
  265. HSDRIVER hsname = 25, 8
  266. CONFIG Driver = "<def_driver>=<hsname>"
  267. CLEAR
  268. TEXT <msg>Il driver CD-ROM <def_cdtype> selezionato si chiama "<hsname>".
  269. ----  Se questo non è corretto, premere Esc per interrompere l'istallazione e
  270. ---- controllare l'archivio CONFIG.SYS\n\n
  271. ----Questa software NON ha bisogno del programma MSCDEX.EXE (Microsoft CD-ROM
  272. ---- Extensions).  Se nessun altro programma l'ha bisogno dunque Lei può
  273. ---- elliminare questo programma del suo archivio \AUTOEXEC.BAT (dove può essere
  274. ---- stato istallato dal programma d'istallazione).
  275.  
  276. WAIT
  277.  
  278. CLEAR
  279. TEXT Copiando Interface CD-ROM <def_cdtype>...
  280. SET driver_name = <def_driver>.DRV
  281. GOSUB copy_driver
  282.  
  283. ;TFPL 19-11-93
  284. :get_hs_letter
  285. CLEAR
  286. :tfpl_drive
  287. GOTO tfp1
  288. :drive_error
  289. TEXT Error: The database is not available on the specified drive...\n\n
  290. :tfp1
  291. TEXT \n\n
  292. ----Scrivete la lettera del vostro lettore\n
  293. ----(di solito "D")...
  294.  
  295. INPUT 2,10,1 inst_drive = CD-ROM ?
  296. IF "inst_drive"=="" GOTO drive_error
  297. IF NOT DIREXISTS <inst_drive>:\ GOTO drive_error
  298. IF NOT EXISTS <inst_drive>:\TTLEDD00 GOTO drive_error
  299.  
  300. ;SET instdrive = <inst_drive>:\
  301. CONFIG Driver = "<inst_drive>:\"
  302. ;CONFIG MaskPath = "<inst_drive>:\DISK1"
  303.  
  304.  
  305. ;----------------------------------------------------------------------------
  306. :disp_choice
  307. CLEAR
  308. TEXT Presenta Alternative:\n\n
  309. ---- Usare le tastiere  e  per scegliere un tipo di schermo\n
  310. ---- e premere ┘ (Invio).
  311.  
  312. NEWMENU ? 6 46
  313. MENU Schermo Standard - Senza capacità grafica
  314. MENU Adattatore VGA
  315. MENU Adattatore MCGA
  316. MENU Adattatore EGA
  317. MENU Adattatore CGA
  318. MENU Carta Grafica Hercules
  319. MENU Olivetti, AT&T o Compaq Plasma
  320. MENU Pagina intera
  321.  
  322. IF "<$Screen:1:3>"=="VGA" DO MENU_DEFAULT 2
  323. IF "<$Screen:1:4>"=="MCGA" DO MENU_DEFAULT 3
  324. IF "<$Screen:1:3>"=="EGA" DO MENU_DEFAULT 4
  325. IF "<$Screen:1:3>"=="CGA" DO MENU_DEFAULT 5
  326. IF "<$Screen:1:3>"=="HER" DO MENU_DEFAULT 6
  327. IF "<$Screen:1:3>"=="COR" DO MENU_DEFAULT 8
  328. IF "<$Screen:1:3>"=="MDS" DO MENU_DEFAULT 8
  329.  
  330. SET Port = N
  331. SET Graphic = N
  332.  
  333. CHOICE 1
  334.  SET scr_type = SC_STD
  335.  SET Port = ?
  336. CHOICE 2
  337.  SET scr_type = SC_VGA
  338.  SET Port = ?
  339. CHOICE 3
  340.  SET scr_type = SC_MCGA
  341.  SET Port = ?
  342. CHOICE 4
  343.  SET scr_type = SC_EGA
  344.  SET Port = ?
  345. CHOICE 5
  346.  SET scr_type = SC_CGA
  347.  SET Port = ?
  348. CHOICE 6
  349.  SET scr_type = SC_HERC
  350. CHOICE 7
  351.  SET scr_type = SC_ATT
  352.  SET Port = ?
  353. CHOICE 8
  354.  SET scr_type = FP
  355. ENDCHOICES
  356.  
  357. IF NOT "<scr_type>"=="FP" GOTO not_full_page
  358.  
  359. CLEAR
  360. TEXT Presenta Alternative:\n\n
  361. ---- Usare le tastiere  e  per scegliere un tipo di schermo\n
  362. ---- e premere ┘ (Invio).
  363.  
  364. NEWMENU ? 6 46
  365. MENU Cornerstone FullPage
  366. MENU MDS Genius
  367.  
  368. IF "<$Screen:1:3>"=="COR" DO MENU_DEFAULT 1
  369. IF "<$Screen:1:3>"=="MDS" DO MENU_DEFAULT 2
  370.  
  371. CHOICE 1
  372.  SET scr_type = SC_CNRST
  373. CHOICE 2
  374.  SET scr_type = SC_MDS
  375. ENDCHOICES
  376.  
  377. :not_full_page
  378.  
  379. SET extra =
  380. IF NOT "<Port>" == "?" GOTO no_scr_opts
  381.  
  382. CLEAR
  383. TEXT Presenta Alternative Dettagliate:\n\n
  384. ---- Usare le tastiere  e  per scegliere lo schermo\n
  385. ---- e premere ┘ (Invio).
  386.  
  387. NEWMENU ? 6 46
  388.  MENU Monitore Standard di Colore o Monocromo
  389.  MENU Computer Portabile - con monitore Monocromo compreso
  390.  IF "<scr_type>"=="SC_CGA" DO MENU Schermi di Colore Più Antichi - interferenza o "neve"
  391.  
  392. IF "<$Screen:-4>"=="PORT" DO MENU_DEFAULT 2
  393.  
  394. CHOICE 2
  395.   SET extra = P
  396. CHOICE 3
  397.   SET extra = F
  398. ENDCHOICES
  399.  
  400. :no_scr_opts
  401.  
  402. CONFIG Screen = "<scr_type>=<extra>"
  403.  
  404. CLEAR
  405. TEXT Copiando il Driver dello Schermo...
  406. SET driver_name = <scr_type>.DRV
  407. GOSUB copy_driver
  408.  
  409. ;----------------------------------------------------------------------------
  410.  
  411. CLEAR
  412. TEXT Alternative di Stampante:\n\n
  413. ---- Usare le tastiere  e  per scegliere il tipo di stampante\n
  414. ---- e premere ┘ (Invio).
  415.  
  416. SET extra =
  417.  
  418. NEWMENU ? 6 46
  419. MENU HP LaserJet Serie
  420. MENU HP DeskJet Serie
  421. MENU JLaser Controller Stampante
  422. MENU Altre Stampanti
  423.  
  424. CHOICE 1
  425.   SET prn_type = PR_PCL?
  426. CHOICE 2
  427.   SET prn_type = PR_DJ?
  428. CHOICE 3
  429.   SET prn_type = PR_JL?
  430. CHOICE 4
  431.   SET prn_type = PR_STD
  432. ENDCHOICES
  433.  
  434. IF "<prn_type>" == "PR_PCL?" GOTO pr_type_1
  435. IF "<prn_type>" == "PR_DJ?" GOTO pr_type_2
  436. IF "<prn_type>" == "PR_JL?" GOTO pr_type_3
  437. IF "<prn_type>" == "PR_STD" GOTO pr_type_4
  438.  
  439. :pr_type_1
  440.  
  441.   CLEAR
  442.  
  443.   GOSUB pr_detail
  444.  
  445.   NEWMENU ? 6 46
  446.   MENU HP LaserJet(+), LaserJet 500(+), LaserJet 2000
  447.   MENU HP LaserJet Series II, IID
  448.   MENU HP LaserJet IIP(+), III(+), IIID, IIIP, IIISi
  449.  
  450.   CHOICE 1
  451.     SET extra = R
  452.   CHOICE 2
  453.     SET extra = X
  454.   CHOICE 3
  455.     SET extra = XG
  456.   ENDCHOICES
  457.  
  458.   GOSUB pr_detail
  459.  
  460.   NEWMENU ? 6 46
  461.   MENU 300 Dpi (  1Mb memoria)
  462.   MENU 150 Dpi (512Kb memoria)
  463.   MENU 75  Dpi (256Kb memoria)
  464.  
  465.   CHOICE 1
  466.     SET prn_type = PR_PCL30
  467.   CHOICE 2
  468.     SET prn_type = PR_PCL15
  469.   CHOICE 3
  470.     SET prn_type = PR_PCL75
  471.   ENDCHOICES
  472.  
  473.   GOTO pr_type_ok
  474.  
  475. :pr_type_2
  476.  
  477.   GOSUB pr_detail
  478.  
  479.   NEWMENU ? 6 46
  480.   MENU HP DeskJet(+)
  481.   MENU HP DeskJet 500
  482.   MENU HP DeskJet 500C
  483.  
  484.   CHOICE 1
  485.     SET extra = X
  486.   CHOICE 2
  487.     SET extra = XG
  488.   CHOICE 3
  489.     SET extra = XG
  490.   ENDCHOICES
  491.  
  492.   GOSUB pr_detail
  493.  
  494.   NEWMENU ? 6 46
  495.   MENU 300 Dpi
  496.   MENU 150 Dpi
  497.   MENU 75  Dpi
  498.  
  499.   CHOICE 1
  500.     SET prn_type = PR_PCL30
  501.   CHOICE 2
  502.     SET prn_type = PR_PCL15
  503.   CHOICE 3
  504.     SET prn_type = PR_PCL75
  505.   ENDCHOICES
  506.  
  507.   GOTO pr_type_ok
  508.  
  509. :pr_type_3
  510.  
  511.   GOSUB pr_detail
  512.  
  513.   NEWMENU ? 6 46
  514.   MENU HP LaserJet(+), LaserJet 500(+), LaserJet 2000
  515.   MENU HP LaserJet (tutti gli altri modelli)
  516.   MENU Canon LBP (ogni modelli)
  517.  
  518.   CHOICE 1
  519.     SET prn_type = PR_JLHP
  520.     SET extra = R
  521.   CHOICE 2
  522.     SET prn_type = PR_JLHP
  523.     SET extra = X
  524.   CHOICE 3
  525.     SET prn_type = PR_JLCAN
  526.   ENDCHOICES
  527.  
  528.   GOTO pr_type_ok
  529.  
  530. :pr_type_4
  531.  
  532.   GOSUB pr_detail
  533.  
  534.   NEWMENU ? 6 46
  535.   MENU gruppo di caratteri PC 8 (std)
  536.   MENU gruppo di caratteri 7 bit nazionale
  537.  
  538.   CHOICE 2
  539.     SET extra = 7
  540.   ENDCHOICES
  541.  
  542.   GOTO pr_type_ok
  543.  
  544. :pr_detail
  545. CLEAR
  546. TEXT Alternative Dettagliate di Stampante:\n\n
  547. ---- Usare le tastiere  e  per scegliere lo stampante\n
  548. ---- e premere ┘ (Invio).
  549. RETURN
  550.  
  551. :pr_type_ok
  552.  
  553. SET port =
  554.  
  555. NEWMENU ? 6 40
  556. MENU LPT1       Stampante Parallelo # 1
  557. MENU COM1       Stampante Seriale # 1
  558. MENU LPT2       Stampante Parallelo # 2
  559. MENU COM2       Stampante Seriale # 2
  560. MENU LPT3       Stampante Parallelo # 3
  561. MENU LPT4       Stampante Parallelo # 4
  562. MENU PRN        Stampante attuale DOS
  563.  
  564. CLEAR
  565. TEXT Alternative di Conessione di Stampante:\n\n
  566. ---- Usare le tastiere  e  per scegliere il port di stampante\n
  567. ---- e premere ┘ (Invio).
  568.  
  569. CHOICE 1
  570.  SET port = LPT1,
  571. CHOICE 2
  572.  SET port = COM1,
  573. CHOICE 3
  574.  SET port = LPT2,
  575. CHOICE 4
  576.  SET port = COM2,
  577. CHOICE 5
  578.  SET port = LPT3,
  579. CHOICE 6
  580.  SET port = LPT4,
  581. CHOICE 7
  582.  SET port = PRN,
  583. ENDCHOICES
  584.  
  585. CONFIG Printer = "<prn_type>=<port><extra>"
  586.  
  587. CLEAR
  588. TEXT Copiando il Driver dello Stampante...
  589. SET driver_name = <prn_type>.DRV
  590. GOSUB copy_driver
  591.  
  592. ;----------------------------------------------------------------------------
  593.  
  594. IF "<alter>"=="Y" GOTO done
  595.  
  596. :read_disk
  597. GOSUB need_disk
  598.  
  599. ;TFPL 8-6-93
  600. IF "<ch>"=="2" GOTO inst_only_eng
  601. IF "<ch>"=="3" GOTO inst_all
  602.  
  603. :inst_only_eng
  604. CLEAR
  605.  
  606. TEXT Istallando gli archivi dell'applicazione e l'interfaccia italiana...
  607. COPY_OPT <insdrive>\DISK<curdisk>\*.ITA <dest>
  608. COPY_OPT <insdrive>\DISK<curdisk>\*.EXE <dest>
  609. COPY_OPT <insdrive>\DISK<curdisk>\*.DRV <dest>
  610. COPY_OPT <insdrive>\DISK<curdisk>\*. <dest>
  611. COPY_OPT <ins>\_DW_MSGS.ITA <dest>
  612. COPY_OPT <ins>\ADL_MSGS.ITA <dest>
  613. GOTO adl_dw_message
  614.  
  615. :inst_all
  616. ;TFPL
  617.  
  618. CLEAR
  619. TEXT Istallando archivi d'Applicazione del Disco d'Istallazione <curdisk>...
  620. COPY_OPT <insdrive>\DISK<curdisk>\*.* <dest>
  621.  
  622. ;TFPL 8-6-93
  623. COPY_OPT <ins>\_DW_MSGS.* <dest>
  624. COPY_OPT <ins>\ADL_MSGS.* <dest>
  625. GOTO adl_dw_message
  626.  
  627. :inst_only_soft
  628. CLEAR
  629.  
  630. TEXT Installing only software files...
  631. COPY_OPT <insdrive>\DISK<curdisk>\*.EXE <dest>
  632. COPY_OPT <insdrive>\DISK<curdisk>\*.DRV <dest>
  633. COPY_OPT <insdrive>\DISK<curdisk>\????.* <dest>
  634. COPY_OPT <ins>\_DW_MSGS.* <dest>
  635. COPY_OPT <ins>\ADL_MSGS.* <dest>
  636. ;TFPL
  637. :adl_dw_message
  638. ;Copy adl and dw message files
  639. IF NOT DIREXISTS <ins> GOTO skip_message_files
  640. COPY_OPT <ins>\UPDATE.EXE <dest>
  641. :skip_message_files
  642.  
  643. CALC curdisk = <curdisk> + 1
  644. IF EXISTS <insdrive>MORE GOTO read_disk
  645.  
  646. CONFIG Language = "<def_lang>"
  647. goto DONE
  648.  
  649. :abort
  650. if "<dest>"=="" GOTO nofiles
  651. if "<alter>"=="Y" GOTO nofiles
  652. CLEAR
  653. TEXT \n\n!!! Istallazione Interrota !!!\n\n
  654. ----   Cancellando tutti gli archivi copiati...
  655. UNCOPY
  656. :nofiles
  657. CLEAR
  658. TEXT \n\n!!! Istallazione Interrota !!!\n\n
  659. goto END
  660.  
  661. :copy_driver
  662. IF EXISTS <ins>\<driver_name> GOTO ok_copy
  663. CALC curdisk = <curdisk> + 1
  664. GOSUB need_disk
  665. GOTO copy_driver
  666. :ok_copy
  667. COPY <ins>\<driver_name> <dest>
  668. RETURN
  669.  
  670. :need_disk
  671. IF DIREXISTS <insdrive>\DISK<curdisk> DO RETURN
  672. :retry_disk2
  673. CLEAR
  674. TEXT Introdurre il Disco d'Istallazione Numero <curdisk> e premere ┘ (Invio).
  675. WAIT
  676. IF DIREXISTS <insdrive>\DISK<curdisk> DO RETURN
  677.  
  678. CLEAR
  679. TEXT Il disco introdotto non è il Disco d'Istallazione Numero <curdisk> !
  680. NEWMENU ?, 3, 15
  681. MENU Ripetere
  682. MENU Interrompere
  683.  
  684. CHOICE 1
  685. GOTO retry_disk2
  686. ENDCHOICES
  687.  
  688. ABORT
  689.  
  690. :done
  691. CLEAR
  692. TEXT Attualizzando la Configurazione
  693. WRITECONFIG <dest>\_DW_.CFG
  694. IF "<alter>"=="Y" GOTO end
  695. WRITEFILE <dstdrive>\<prod>.BAT = <dstdrive>\ncd <path>\nDW\ncd \\n
  696.  
  697. CLEAR
  698. TEXT \n  Istallazione completa!\n\n
  699. ----Un archivio batch è stato fatto nel direttorio <dstdrive>\ con il nome <prod>.\n\n
  700. ----Per iniziare il programma, scrivere:\n\n
  701. ----  <prod> ┘\n\n
  702. ----Importante: Per fare funzionare bene questo commando, si deve
  703. ---- cominciare nel direttorio <dstdrive>\  o includerlo nella variabile PATH.
  704.  
  705. :end
  706. WAIT
  707.  
  708. :end2
  709. CD <$CurDir>
  710.  
  711.