home *** CD-ROM | disk | FTP | other *** search
/ The CD-ROM Directory (13th Edition) / The CD-ROM Directory 13.iso / install / inscript.eng < prev    next >
Encoding:
Text File  |  1993-11-19  |  17.5 KB  |  763 lines
  1. ; CD Answer Installation Script - Generic                         jdk,ejf,hg
  2.  
  3. ; <<CDA>> Jun 1 1993;3.2
  4.  
  5. ; single/multiple disk version
  6. ;
  7. ;   To customize this install script:
  8. ;      1. Put the product name (1-8 characters) in a file called
  9. ;         'PRODNAME'. There should be no carriage return/line feed at
  10. ;         the end of the name- the file should contain just the characters
  11. ;         of the name.
  12. ;      2. Put the application name (CD Author 4 character project identifier)
  13. ;         in a file called 'APPLNAME'. Again, no other chars should be
  14. ;         the file. Multiple applications are formed by adding a space,
  15. ;         then another application identifier
  16. ;      3. Put the start-up message in a file called PRODSCRN.<language>
  17. ;         There should not be more than 10 lines.
  18. ;
  19. ;    The first disk must contain the \INSTALL directory.
  20. ;    This contains the general system files for the install
  21. ;    process and may be repeated on disk #2, etc.
  22. ;    The application specific files are kept in a directory
  23. ;    named 'DISK1'. If additional disks are required, create
  24. ;    an (empty) file on the current disk named '\MORE' and
  25. ;    put the overflow files in a directory named \DISK2 (3, 4, ...).
  26.  
  27. BREAK abort
  28.  
  29. ; install disk
  30. PARSE_PATH <$ProgDir>
  31. SET insdrive = <$Drive>
  32. SET ins = <insdrive>\INSTALL
  33. SET curdisk = 1
  34. GOSUB need_disk
  35.  
  36. ; here are some defaults:
  37.  
  38. ;  default destination drive
  39. PARSE_PATH <$CurDir>
  40. SET def_dest = C:\
  41. IF NOT "<$Drive>"=="<insdrive>" DO SET def_def = <$Drive>
  42.  
  43. ;TFPL - 2-6-93
  44. ;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
  45. ;CONFIG ColorSet = 55
  46. ;TFPL
  47.  
  48. ;  default CD-ROM interface (FS_HSGEN {High Sierra} or FS_ISGEN {ISO})
  49. SET def_cdtype = High Sierra
  50. SET def_driver = FS_HSGEN
  51. IF EXISTS <insdrive>\INSTALL\<def_driver>.* GOTO ok_driver
  52. SET def_cdtype = ISO
  53. SET def_driver = FS_ISGEN
  54. :ok_driver
  55.  
  56. ;  language
  57. SET def_lang = <$Language>
  58.  
  59. ; application name(s) (4 char ident(s) on CD-ROM)
  60. READFILE names = <ins>\APPLNAME.
  61.  
  62. ; product name (application name for batch file, subdirectory name)
  63. READFILE prod = <ins>\PRODNAME.
  64.  
  65. ; default dest drive and directory
  66. PARSE_PATH <def_dest><prod>.CD
  67. SET dstdrive = <$Drive>
  68. SET path = <$Dir>
  69. CD <dstdrive>\
  70.  
  71. ; read and display Application Installation Screen
  72. IF NOT EXISTS <insdrive>\INSTALL\PRODSCRN.<def_lang> GOTO no_banner
  73. READFILE screen = <insdrive>\INSTALL\PRODSCRN.<def_lang>
  74. GOTO show_banner
  75. :no_banner
  76. SET screen =
  77. ----        CD Answer Installation for:\n\n
  78. ----               <prod>\n\n
  79. ----        Application(s): <names>
  80. :show_banner
  81. CLEAR
  82. TEXT <screen>
  83. SET screen =
  84. WAIT
  85.  
  86. GOTO okdir
  87. :getdir
  88. CLEAR
  89. TEXT \nError -\n\n
  90. ----  The path "<dstdrive><path>" is not allowed!\n
  91. ----There must be both a drive and a valid subdirectory name in order
  92. ---- to install the software.
  93. WAIT
  94. :okdir
  95. CLEAR
  96. TEXT The retrieval software must be installed on your hard disk or on a
  97. ---- formatted floppy disk. The standard values are drive <dstdrive> (normally
  98. ---- the hard disk), and a subdirectory named <path>. To use these values,
  99. ---- press the ┘ (Enter) key twice. To alter them, type the new drive or
  100. ---- subdirectory at the appropriate prompt, then type ┘ (Enter).
  101.  
  102.  
  103. INPUT 6,6,5 dstdrive = Install on drive     ?
  104. INPUT 6,8,40 path    = Install in directory ?
  105. SET dest = <dstdrive><path>
  106. SET confile = <ins>\_DW_.CFG
  107.  
  108. IF "<dstdrive>"=="" GOTO getdir
  109. IF "<path>"=="\" GOTO getdir
  110. IF "<path>"=="" GOTO getdir
  111. IF NOT DIREXISTS <dstdrive>\ GOTO getdir
  112.  
  113. CD <dstdrive>\
  114.  
  115. IF NOT DIREXISTS <dest> GOTO nopath
  116. IF NOT EXISTS <dest>\DW.EXE GOTO nopath
  117. CLEAR
  118. TEXT The directory "<dest>" already exists.
  119. NEWMENU 1, 3, 70
  120. ;TFPL 2-6-93
  121. ;****MENU Remove the old version; install only software
  122. MENU Remove old version; install new software & only English interface
  123. MENU Remove old version; install all language interfaces
  124. ;TFPL
  125. MENU Remove old version; do not install new software
  126. MENU Alter configuration; do not copy software
  127. MENU Stop the installation without making any changes
  128. ENDCHOICES
  129.  
  130. ;TFPL 2-6-93
  131.  
  132. ;****CHOICE 1
  133. ;****CLEAR
  134. ;****TEXT Deleting previous contents of <dest>...
  135. ;****FOREACH name = <names>
  136. ;**** DEL <dest>\<name>*.*
  137. ;****NEXT
  138. ;****DEL <dest>\FS_*.DRV
  139. ;****DEL <dest>\SC_*.DRV
  140. ;****DEL <dest>\PR_*.DRV
  141. ;****DEL <dest>\GR_*.DRV
  142. ;****DEL <dest>\_DW_*.*
  143. ;****DEL <dest>\ADL_MSGS.*
  144. ;****DEL <dest>\DW.EXE
  145. ;****DEL <dest>\UPDATE.EXE
  146. ;****GOTO tfpl_drive
  147.  
  148.  
  149. CHOICE 1
  150. CLEAR
  151. TEXT Deleting previous contents of <dest>...
  152. FOREACH name = <names>
  153.  DEL <dest>\<name>*.*
  154. NEXT
  155. DEL <dest>\FS_*.DRV
  156. DEL <dest>\SC_*.DRV
  157. DEL <dest>\PR_*.DRV
  158. DEL <dest>\GR_*.DRV
  159. DEL <dest>\_DW_*.*
  160. DEL <dest>\ADL_MSGS.*
  161. DEL <dest>\DW.EXE
  162. DEL <dest>\UPDATE.EXE
  163. SET ch = 2
  164. GOTO okpath
  165. ;TFPL
  166.  
  167. CHOICE 2
  168. CLEAR
  169. TEXT Deleting previous contents of <dest>...
  170. FOREACH name = <names>
  171.  DEL <dest>\<name>*.*
  172. NEXT
  173. DEL <dest>\FS_*.DRV
  174. DEL <dest>\SC_*.DRV
  175. DEL <dest>\PR_*.DRV
  176. DEL <dest>\GR_*.DRV
  177. DEL <dest>\_DW_*.*
  178. DEL <dest>\ADL_MSGS.*
  179. DEL <dest>\DW.EXE
  180. DEL <dest>\UPDATE.EXE
  181. SET ch = 3
  182. GOTO okpath
  183.  
  184.  
  185.  
  186. CHOICE 3
  187. CLEAR
  188. TEXT Removing <dest> directory...
  189. FOREACH name = <names>
  190.  DEL <dest>\<name>*.*
  191. NEXT
  192. DEL <dest>\FS_*.DRV
  193. DEL <dest>\SC_*.DRV
  194. DEL <dest>\PR_*.DRV
  195. DEL <dest>\GR_*.DRV
  196. DEL <dest>\_DW_*.*
  197. DEL <dest>\ADL_MSGS.*
  198. DEL <dest>\DW.EXE
  199. DEL <dest>\UPDATE.EXE
  200. IF NOT EXISTS <dest>\*.* GOTO remdest
  201. TEXT <dest> directory has unknown files, directory not removed!!
  202. WAIT
  203. GOTO norem
  204. :remdest
  205. RD <dest>
  206. :norem
  207. DEL <dstdrive>\<prod>.BAT
  208. GOTO end2
  209.  
  210. CHOICE 4
  211. SET alter = Y
  212. SET confile = <dest>\_DW_.CFG
  213. GOTO okpath
  214.  
  215. CHOICE 5
  216. GOTO end2
  217. ENDCHOICES
  218.  
  219. :nopath
  220. MD <dest>
  221. IF NOT DIREXISTS <dest> GOTO getdir
  222. ;TFPL 2-6-93
  223.  
  224. TEXT New Installation
  225. NEWMENU 1, 3, 64
  226. ;MENU Install only the retrieval software
  227. MENU Install retrieval software and only English language interface
  228. MENU Install retrieval software and all language interfaces
  229. ENDCHOICES
  230.  
  231. ;CHOICE1
  232. ;CLEAR
  233. ;:tfpl_drive
  234. ;GOTO tfp1
  235. ;:tfpl_drive_error
  236. ;TONE
  237. ;TEXT Error: The database is not available on the specified drive...\n\n
  238. ;:tfp1
  239. ;TEXT Database location:\n\n
  240. ;----Please enter the drive letter of the CD-ROM from which you are
  241. ;---- installing the application...
  242. ;
  243. ;INPUT 2,10,1 inst_drive = CD-ROM drive letter ?
  244. ;IF "inst_drive"=="" GOTO tfpl_drive
  245. ;
  246. ;SET instdrive = <inst_drive>:\
  247. ;CONFIG Driver = "<inst_drive>:\"
  248. ;CONFIG MaskPath = "<inst_drive>:\DISK1"
  249. ;IF NOT DIREXISTS <instdrive> GOTO tfpl_drive_error
  250. ;SET ch = 1
  251. ;----------------------------------------------------------------------------
  252.  
  253. ;IF NOT EXISTS <confile> GOTO disp_choice
  254. ;DISP 5,14 Reading configuration...
  255. ;READCONFIG <confile>
  256.  
  257.  
  258. ;----------------------------------------------------------------------------
  259. ;GOTO disp_choice
  260.  
  261. CHOICE1
  262. SET ch = 2
  263. GOTO okpath
  264.  
  265. CHOICE2
  266. SET ch = 3
  267. GOTO okpath
  268. ENDCHOICES
  269.  
  270. :okpath
  271.  
  272. ;----------------------------------------------------------------------------
  273.  
  274. IF NOT EXISTS <confile> GOTO no_config
  275. DISP 5,14 Reading configuration...
  276. READCONFIG <confile>
  277. :no_config
  278.  
  279. ;----------------------------------------------------------------------------
  280.  
  281. HSCOUNT hs
  282. IF NOT <hs>==0 GOTO have_hs
  283.  
  284. CLEAR
  285. TEXT  Problem-  You have no CD-ROM drives installed.\n\n
  286. ----Please use the install disk supplied by your CD-ROM drive manufacturer
  287. ---- to install the device driver software, and then repeat this install
  288. ---- program.\n\n
  289. ----Note: The CD-ROM drive install disk will copy some files to your system
  290. ---- disk and modify the CONFIG.SYS and AUTOEXEC.BAT files.\n
  291. ----Unless you have other programs which use the MSCDEX program, it is
  292. ---- recommended that you remove the line calling this program from your
  293. ---- AUTOEXEC.BAT file, since this software does not require it.\n\n
  294. ----Be sure to reboot after the CD-ROM drivers are installed.
  295.  
  296.  
  297. WAIT
  298. ABORT
  299.  
  300. :have_hs
  301. ;TFPL 19-11-93
  302. GOTO get_hs_letter
  303.  
  304. SET msg =
  305. IF <hs>==1 GOTO instOne
  306.  
  307. TEXT A selection of <def_cdtype> CD-ROM drivers are available:\n\n
  308. ----Select the <def_cdtype> CD-ROM device driver from this list of available
  309. ---- device drivers using the  and  keys. Press ┘ (Enter) when ready.\n
  310. ----Press Esc to abort installation.
  311. GOTO instMore
  312.  
  313. :instOne
  314. SET msg = A <def_cdtype> CD-ROM driver is installed (see CONFIG.SYS):\n\n
  315.  
  316. :instMore
  317. HSDRIVER hsname = 25, 6
  318. CONFIG Driver = "<def_driver>=<hsname>"
  319. CLEAR
  320. TEXT <msg>The <def_cdtype> CD-ROM driver selected is named "<hsname>". If this is not
  321. ---- correct, press Esc to abort the installation and check your CONFIG.SYS
  322. ---- file.\n\n
  323. ----This software does NOT require the MSCDEX.EXE program (Microsoft
  324. ---- CD-ROM Extensions). Unless another program requires them, you may
  325. ---- remove this program from your \AUTOEXEC.BAT file (where the drive's
  326. ---- INSTALL program may have put it).
  327.  
  328. WAIT
  329.  
  330. CLEAR
  331. TEXT Copying <def_cdtype> CD-ROM Interface...
  332. SET driver_name = FS_ISGEN.DRV
  333. GOSUB copy_driver
  334.  
  335. ;TFPL 19-11-93
  336. :get_hs_letter
  337. CLEAR
  338. :tfpl_drive
  339. GOTO tfp1
  340. :drive_error
  341. TEXT Error: The database is not available on the specified drive...\n\n
  342. :tfp1
  343. TEXT Database location:\n\n
  344. ----Enter the drive letter of your CD-ROM drive\n
  345. ----(usually "D")...
  346. INPUT 2,10,1 inst_drive = CD-ROM ?
  347. IF "inst_drive"=="" GOTO drive_error
  348. IF NOT DIREXISTS <inst_drive>:\ GOTO drive_error
  349. IF NOT EXISTS <inst_drive>:\TTLEDD00 GOTO drive_error
  350.  
  351. ;SET instdrive = <inst_drive>:\
  352. CONFIG Driver = "<inst_drive>:\"
  353. ;CONFIG MaskPath = "<inst_drive>:\DISK1"
  354.  
  355. ;----------------------------------------------------------------------------
  356. :disp_choice
  357. CLEAR
  358. TEXT Display Choices:\n
  359. ----   Use the  and  arrows to select a screen type and
  360. ---- press ┘ (Enter)
  361.  
  362. NEWMENU ? 6 46
  363. MENU Standard Screen     - No graphics
  364. MENU VGA Adaptor
  365. MENU MCGA Adaptor
  366. MENU EGA Adaptor
  367. MENU CGA Adaptor
  368. MENU Hercules Graphics Card
  369. MENU Olivetti, AT&T or Compaq Plasma
  370. MENU Full page display
  371.  
  372. IF "<$Screen:1:3>"=="VGA" DO MENU_DEFAULT 2
  373. IF "<$Screen:1:4>"=="MCGA" DO MENU_DEFAULT 3
  374. IF "<$Screen:1:3>"=="EGA" DO MENU_DEFAULT 4
  375. IF "<$Screen:1:3>"=="CGA" DO MENU_DEFAULT 5
  376. IF "<$Screen:1:3>"=="HER" DO MENU_DEFAULT 6
  377. IF "<$Screen:1:3>"=="COR" DO MENU_DEFAULT 8
  378. IF "<$Screen:1:3>"=="MDS" DO MENU_DEFAULT 8
  379.  
  380. SET Port = N
  381. SET Graphic = N
  382.  
  383. CHOICE 1
  384.  SET scr_type = SC_STD
  385.  SET Port = ?
  386. CHOICE 2
  387.  SET scr_type = SC_VGA
  388.  SET Port = ?
  389. CHOICE 3
  390.  SET scr_type = SC_MCGA
  391.  SET Port = ?
  392. CHOICE 4
  393.  SET scr_type = SC_EGA
  394.  SET Port = ?
  395. CHOICE 5
  396.  SET scr_type = SC_CGA
  397.  SET Port = ?
  398. CHOICE 6
  399.  SET scr_type = SC_HERC
  400. CHOICE 7
  401.  SET scr_type = SC_ATT
  402.  SET Port = ?
  403. CHOICE 8
  404.  SET scr_type = FP
  405. ENDCHOICES
  406.  
  407. IF NOT "<scr_type>"=="FP" GOTO not_full_page
  408.  
  409. CLEAR
  410. TEXT Display Choices:\n
  411. ----   Use the  and  arrows to select a screen type and
  412. ---- press ┘ (Enter)
  413.  
  414. NEWMENU ? 6 46
  415. MENU Cornerstone FullPage
  416. MENU MDS Genius
  417.  
  418. IF "<$Screen:1:3>"=="COR" DO MENU_DEFAULT 1
  419. IF "<$Screen:1:3>"=="MDS" DO MENU_DEFAULT 2
  420.  
  421. CHOICE 1
  422.  SET scr_type = SC_CNRST
  423. CHOICE 2
  424.  SET scr_type = SC_MDS
  425. ENDCHOICES
  426.  
  427. :not_full_page
  428.  
  429. SET extra =
  430. IF NOT "<Port>" == "?" GOTO no_scr_opts
  431.  
  432. CLEAR
  433. TEXT Display Detail Choices:\n
  434. ----   Use the  and  arrows to select screen option and
  435. ---- press ┘ (Enter)
  436.  
  437. NEWMENU ? 6 46
  438.  MENU Standard Color or Monochrome Monitor
  439.  MENU Portable Computer   - Built-in Monochrome monitor
  440.  IF "<scr_type>"=="SC_CGA" DO MENU Older Color Screens - interference or "snow"
  441.  
  442. IF "<$Screen:-4>"=="PORT" DO MENU_DEFAULT 2
  443.  
  444. CHOICE 2
  445.   SET extra = P
  446. CHOICE 3
  447.   SET extra = F
  448. ENDCHOICES
  449.  
  450. :no_scr_opts
  451.  
  452. CONFIG Screen = "<scr_type>=<extra>"
  453.  
  454. CLEAR
  455. TEXT Copying Screen Driver...
  456. SET driver_name = <scr_type>.DRV
  457. GOSUB copy_driver
  458.  
  459. ;----------------------------------------------------------------------------
  460.  
  461. CLEAR
  462. TEXT Printer Choices:\n
  463. ----   Use the  and  arrows to select a printer type and
  464. ---- press ┘ (Enter)
  465.  
  466. SET extra =
  467.  
  468. NEWMENU ? 6 46
  469. MENU HP LaserJet family
  470. MENU HP DeskJet family
  471. MENU JLaser printer controller
  472. MENU Other printer
  473.  
  474. CHOICE 1
  475.   SET prn_type = PR_PCL?
  476. CHOICE 2
  477.   SET prn_type = PR_DJ?
  478. CHOICE 3
  479.   SET prn_type = PR_JL?
  480. CHOICE 4
  481.   SET prn_type = PR_STD
  482. ENDCHOICES
  483.  
  484. IF "<prn_type>" == "PR_PCL?" GOTO pr_type_1
  485. IF "<prn_type>" == "PR_DJ?" GOTO pr_type_2
  486. IF "<prn_type>" == "PR_JL?" GOTO pr_type_3
  487. IF "<prn_type>" == "PR_STD" GOTO pr_type_4
  488.  
  489. :pr_type_1
  490.  
  491.   CLEAR
  492.  
  493.   GOSUB pr_detail
  494.  
  495.   NEWMENU ? 6 46
  496.   MENU HP LaserJet(+), LaserJet 500(+), LaserJet 2000
  497.   MENU HP LaserJet Series II, IID
  498.   MENU HP LaserJet IIP(+), III(+), IIID, IIIP, IIISi
  499.  
  500.   CHOICE 1
  501.     SET extra = R
  502.   CHOICE 2
  503.     SET extra = X
  504.   CHOICE 3
  505.     SET extra = XG
  506.   ENDCHOICES
  507.  
  508.   GOSUB pr_detail
  509.  
  510.   NEWMENU ? 6 46
  511.   MENU 300 Dpi (  1Mb memory)
  512.   MENU 150 Dpi (512Kb memory)
  513.   MENU 75  Dpi (256Kb memory)
  514.  
  515.   CHOICE 1
  516.     SET prn_type = PR_PCL30
  517.   CHOICE 2
  518.     SET prn_type = PR_PCL15
  519.   CHOICE 3
  520.     SET prn_type = PR_PCL75
  521.   ENDCHOICES
  522.  
  523.   GOTO pr_type_ok
  524.  
  525. :pr_type_2
  526.  
  527.   GOSUB pr_detail
  528.  
  529.   NEWMENU ? 6 46
  530.   MENU HP DeskJet(+)
  531.   MENU HP DeskJet 500
  532.   MENU HP DeskJet 500C
  533.  
  534.   CHOICE 1
  535.     SET extra = X
  536.   CHOICE 2
  537.     SET extra = XG
  538.   CHOICE 3
  539.     SET extra = XG
  540.   ENDCHOICES
  541.  
  542.   GOSUB pr_detail
  543.  
  544.   NEWMENU ? 6 46
  545.   MENU 300 Dpi
  546.   MENU 150 Dpi
  547.   MENU 75  Dpi
  548.  
  549.   CHOICE 1
  550.     SET prn_type = PR_PCL30
  551.   CHOICE 2
  552.     SET prn_type = PR_PCL15
  553.   CHOICE 3
  554.     SET prn_type = PR_PCL75
  555.   ENDCHOICES
  556.  
  557.   GOTO pr_type_ok
  558.  
  559. :pr_type_3
  560.  
  561.   GOSUB pr_detail
  562.  
  563.   NEWMENU ? 6 46
  564.   MENU HP LaserJet(+), LaserJet 500(+), LaserJet 2000
  565.   MENU HP LaserJet (all other models)
  566.   MENU Canon LBP (any models)
  567.  
  568.   CHOICE 1
  569.     SET prn_type = PR_JLHP
  570.     SET extra = R
  571.   CHOICE 2
  572.     SET prn_type = PR_JLHP
  573.     SET extra = X
  574.   CHOICE 3
  575.     SET prn_type = PR_JLCAN
  576.   ENDCHOICES
  577.  
  578.   GOTO pr_type_ok
  579.  
  580. :pr_type_4
  581.  
  582.   GOSUB pr_detail
  583.  
  584.   NEWMENU ? 6 46
  585.   MENU 8-bit PC-compatible character set
  586.   MENU 7-bit National ASCII character set
  587.  
  588.   CHOICE 2
  589.     SET extra = 7
  590.   ENDCHOICES
  591.  
  592.   GOTO pr_type_ok
  593.  
  594. :pr_detail
  595. CLEAR
  596. TEXT Printer Detail Choices:\n
  597. ----   Use the  and  arrows to select printer option and
  598. ---- press ┘ (Enter)
  599. RETURN
  600.  
  601. :pr_type_ok
  602.  
  603. SET port =
  604.  
  605. NEWMENU ? 6 40
  606. MENU LPT1       Parallel Printer # 1
  607. MENU COM1       Serial Printer   # 1
  608. MENU LPT2       Parallel Printer # 2
  609. MENU COM2       Serial Printer   # 2
  610. MENU LPT3       Parallel Printer # 3
  611. MENU LPT4       Parallel Printer # 4
  612. MENU PRN        DOS current printer
  613.  
  614. CLEAR
  615. TEXT Printer Connection Choices:\n
  616. ----   Use the  and  arrows to select a printer port and
  617. ---- press ┘ (Enter)
  618.  
  619. CHOICE 1
  620.  SET port = LPT1,
  621. CHOICE 2
  622.  SET port = COM1,
  623. CHOICE 3
  624.  SET port = LPT2,
  625. CHOICE 4
  626.  SET port = COM2,
  627. CHOICE 5
  628.  SET port = LPT3,
  629. CHOICE 6
  630.  SET port = LPT4,
  631. CHOICE 7
  632.  SET port = PRN,
  633. ENDCHOICES
  634.  
  635. CONFIG Printer = "<prn_type>=<port><extra>"
  636.  
  637. CLEAR
  638. TEXT Copying Printer Driver...
  639. SET driver_name = <prn_type>.DRV
  640. GOSUB copy_driver
  641.  
  642. ;----------------------------------------------------------------------------
  643. IF "<alter>"=="Y" GOTO done
  644.  
  645. :read_disk
  646. GOSUB need_disk
  647. ;TFPL 3-6-93
  648. IF "<ch>"=="1" GOTO inst_only_soft
  649. IF "<ch>"=="2" GOTO inst_only_eng
  650. IF "<ch>"=="3" GOTO inst_all
  651.  
  652.  
  653. :inst_only_eng
  654. CLEAR
  655.  
  656. TEXT Installing Application files for English interface...
  657. COPY_OPT <insdrive>\DISK<curdisk>\*.ENG <dest>
  658. COPY_OPT <insdrive>\DISK<curdisk>\*.EXE <dest>
  659. COPY_OPT <insdrive>\DISK<curdisk>\*.DRV <dest>
  660. COPY_OPT <insdrive>\DISK<curdisk>\*. <dest>
  661. COPY_OPT <ins>\_DW_MSGS.ENG <dest>
  662. COPY_OPT <ins>\ADL_MSGS.ENG <dest>
  663. GOTO adl_dw_message
  664.  
  665.  
  666. :inst_all
  667. ;TFPL
  668. CLEAR
  669.  
  670. TEXT Installing Application files...
  671. COPY_OPT <insdrive>\DISK<curdisk>\*.* <dest>
  672.  
  673. COPY_OPT <ins>\_DW_MSGS.* <dest>
  674. COPY_OPT <ins>\ADL_MSGS.* <dest>
  675. ;TFPL 7-6-93
  676. GOTO adl_dw_message
  677.  
  678. :inst_only_soft
  679. CLEAR
  680.  
  681. TEXT Installing only software files...
  682. COPY_OPT <insdrive>\DISK<curdisk>\*.EXE <dest>
  683. COPY_OPT <insdrive>\DISK<curdisk>\*.DRV <dest>
  684. COPY_OPT <insdrive>\DISK<curdisk>\????.* <dest>
  685. COPY_OPT <ins>\_DW_MSGS.* <dest>
  686. COPY_OPT <ins>\ADL_MSGS.* <dest>
  687. ;TFPL
  688.  
  689. :adl_dw_message
  690. ;Copy adl and dw message files
  691. IF NOT DIREXISTS <ins> GOTO skip_message_files
  692. COPY_OPT <ins>\UPDATE.EXE <dest>
  693. :skip_message_files
  694.  
  695. CALC curdisk = <curdisk> + 1
  696. IF EXISTS <insdrive>MORE GOTO read_disk
  697.  
  698. CONFIG Language = "<def_lang>"
  699. goto DONE
  700.  
  701. :abort
  702. if "<dest>"=="" GOTO nofiles
  703. if "<alter>"=="Y" GOTO nofiles
  704. CLEAR
  705. TEXT \n\n!!! Installation Aborted !!!\n\n
  706. ----   Removing any copied files...
  707. UNCOPY
  708. :nofiles
  709. CLEAR
  710. TEXT \n\n!!! Installation Aborted !!!\n\n
  711. goto END
  712.  
  713. :copy_driver
  714. IF EXISTS <ins>\<driver_name> GOTO ok_copy
  715. CALC curdisk = <curdisk> + 1
  716. GOSUB need_disk
  717. GOTO copy_driver
  718. :ok_copy
  719. COPY <ins>\<driver_name> <dest>
  720. RETURN
  721.  
  722. :need_disk
  723. IF DIREXISTS <insdrive>\DISK<curdisk> DO RETURN
  724. :retry_disk2
  725. CLEAR
  726. TEXT Insert Install Disk Number <curdisk> and press ┘ (Enter) when ready.
  727. WAIT
  728. IF DIREXISTS <insdrive>\DISK<curdisk> DO RETURN
  729.  
  730. CLEAR
  731. TEXT The disk inserted is not Installation Disk Number <curdisk> !
  732. NEWMENU ?, 3, 15
  733. MENU Retry
  734. MENU Abort
  735.  
  736. CHOICE 1
  737. GOTO retry_disk2
  738. ENDCHOICES
  739.  
  740. ABORT
  741.  
  742. :done
  743. CLEAR
  744. TEXT Updating Configuration
  745. WRITECONFIG <dest>\_DW_.CFG
  746. IF "<alter>"=="Y" GOTO end
  747. WRITEFILE <dstdrive>\<prod>.BAT = <dstdrive>\ncd <path>\nDW\ncd \\n
  748.  
  749. CLEAR
  750. TEXT \n  Installation complete!\n\n
  751. ----A batch file was created in the <dstdrive>\ directory with the name <prod>.\n\n
  752. ----To execute the program, type:\n\n
  753. ----  <prod> ┘ (Enter)\n\n
  754. ----Important: In order for this command to work as shown, you must be in
  755. ---- the <dstdrive>\ directory or have it in your PATH variable.
  756.  
  757.  
  758. :end
  759. WAIT
  760.  
  761. :end2
  762. CD <$CurDir>
  763.