home *** CD-ROM | disk | FTP | other *** search
/ International Financial Statistics / International Financial Statistics.ISO / install / inscript.spa < prev    next >
Encoding:
Text File  |  1991-02-12  |  12.4 KB  |  491 lines
  1. ; CD Answer Installation Script - Generic                               jdk
  2. ; <<CDA>> Feb 5 1991;2.03
  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. ;  default destination drive
  38. PARSE_PATH <$CurDir>
  39. SET def_dest = C:\
  40. IF NOT "<$Drive>"=="<insdrive>" DO SET def_def = <$Drive>
  41.  
  42. ;  default CD-ROM interface (FS_HSGEN {High Sierra} or FS_ISGEN {ISO})
  43. SET def_cdtype = High Sierra
  44. SET def_driver = FS_HSGEN
  45. IF EXISTS <insdrive>\INSTALL\<def_driver>.* GOTO ok_driver
  46. SET def_cdtype = ISO
  47. SET def_driver = FS_ISGEN
  48. :ok_driver
  49.  
  50. ;  language
  51. SET def_lang = <$Language>
  52.  
  53. ; application name(s) (4 char ident(s) on CD-ROM)
  54. READFILE names = <ins>\APPLNAME.
  55.  
  56. ; product name (application name for batch file, subdirectory name)
  57. READFILE prod = <ins>\PRODNAME.
  58.  
  59. ; default dest drive and directory
  60. PARSE_PATH <def_dest><prod>.CD
  61. SET dstdrive = <$Drive>
  62. SET path = <$Dir>
  63. CD <dstdrive>\
  64.  
  65. ; read and display Application Installation Screen
  66. IF NOT EXISTS <insdrive>\DISK1\PRODSCRN.<def_lang> GOTO no_banner
  67. READFILE screen = <insdrive>\DISK1\PRODSCRN.<def_lang>
  68. GOTO show_banner
  69. :no_banner
  70. SET screen =
  71. ----        Instalación de CD Answer para:\n\n
  72. ----               <prod>\n\n
  73. ----        Aplicación(es): <names>
  74. :show_banner
  75. CLEAR
  76. TEXT <screen>
  77. SET screen =
  78. WAIT
  79.  
  80. SET def_drive=<dstdrive>
  81. SET def_path=<path>
  82.  
  83. GOTO okdir
  84. :getdir
  85. CLEAR
  86. TEXT \nError -\n\n
  87. ----  El path "<dstdrive><path>" no es legal!\n
  88. ----Para instalar el programma, debe existir tanto una disquetera como un
  89. ---- subdirectorio válido.
  90. WAIT
  91. :okdir
  92. CLEAR
  93. TEXT La software de recuperación de datos debe ser instalada en su disco
  94. ---- duro o en un disco flexible formateado.  Los valores standard son\n
  95. ----disquetera <def_drive> (normalmente el disco duro), y un subdirectorio\n
  96. ----llamado <def_path>.  Para usar estos valores, presione dos veces la\n
  97. ----tecla ┘ (Intro).  Para cambiarlos, escriba el nombre de la disquetera\n
  98. ----o del subdirectorio después del aviso correspondiente.  Entonces\n
  99. ----presione ┘ (Intro).
  100.  
  101. INPUT 6,8,5 dstdrive = Instalar en la disquetera ?
  102. INPUT 6,10,40 path   = Instalar en el directorio ?
  103. SET dest = <dstdrive><path>
  104. SET confile = <ins>\_DW_.CFG
  105.  
  106. IF "<dstdrive>"=="" GOTO getdir
  107. IF "<path>"=="\" GOTO getdir
  108. IF "<path>"=="" GOTO getdir
  109. IF NOT DIREXISTS <dstdrive>\ GOTO getdir
  110.  
  111. CD <dstdrive>\
  112.  
  113. IF NOT DIREXISTS <dest> GOTO nopath
  114. IF NOT EXISTS <dest>\DW.EXE GOTO nopath
  115. CLEAR
  116. TEXT El directorio "<dest>" ya existe.
  117. NEWMENU ?, 3, 54
  118. MENU Borrar la versión antigua; instalar la versión nueva
  119. MENU Borrar la versión antigua; no instalar la software nueva
  120. MENU Cambiar la configuración; no copiar software
  121. MENU Interrumpir la instalación sin hacer ningún cambio
  122.  
  123. CHOICE 1
  124. CLEAR
  125. TEXT Borrando el contenido anterior de <dest>...
  126. FOREACH name = <names>
  127.  DEL <dest>\<name>*.*
  128. NEXT
  129. DEL <dest>\FS_*.DRV
  130. DEL <dest>\SC_*.DRV
  131. DEL <dest>\PR_*.DRV
  132. DEL <dest>\GR_*.DRV
  133. DEL <dest>\_DW_*.*
  134. DEL <dest>\DW.EXE
  135. DEL <dest>\UPDATE.EXE
  136. GOTO okpath
  137.  
  138. CHOICE 2
  139. CLEAR
  140. TEXT Cancelando <dest> directorio...
  141. FOREACH name = <names>
  142.  DEL <dest>\<name>*.*
  143. NEXT
  144. DEL <dest>\FS_*.DRV
  145. DEL <dest>\SC_*.DRV
  146. DEL <dest>\PR_*.DRV
  147. DEL <dest>\GR_*.DRV
  148. DEL <dest>\_DW_*.*
  149. DEL <dest>\DW.EXE
  150. DEL <dest>\UPDATE.EXE
  151. IF NOT EXISTS <dest>\*.* GOTO remdest
  152. TEXT <dest> directorio contiene archivos desconocidos; directorio no ha sido cancelado!!
  153. WAIT
  154. GOTO norem
  155. :remdest
  156. RD <dest>
  157. :norem
  158. DEL <dstdrive>\<prod>.BAT
  159. GOTO end2
  160.  
  161. CHOICE 3
  162. SET alter = Y
  163. SET confile = <dest>\_DW_.CFG
  164. GOTO okpath
  165.  
  166. CHOICE 4
  167. GOTO end2
  168. ENDCHOICES
  169.  
  170. :nopath
  171. MD <dest>
  172. IF NOT DIREXISTS <dest> GOTO getdir
  173. :okpath
  174.  
  175. IF NOT EXISTS <confile> GOTO no_config
  176. DISP 5,14 Leyendo la configuración...
  177. READCONFIG <confile>
  178. :no_config
  179.  
  180. HSCOUNT hs
  181. IF NOT <hs>==0 GOTO have_hs
  182.  
  183. CLEAR
  184. TEXT  Problema - No hay ningúna disquetera CD-ROM instalada.\n\n
  185. ----Se ruega usar el disco de instalación proporcionado por el fabricante de
  186. ---- su disquetera CD-ROM para instalar la software del device driver.  Luego
  187. ---- repita este programa de instalación.\n\n
  188. ----Note: El programa de instalación de la disquetera CD-ROM copiará algunos
  189. ---- archivos a su disco de sistema y modificará los archivos CONFIG.SYS y
  190. ---- AUTOEXEC.BAT\n
  191. ----Si Ud. no tiene otros programas que usan el programa MSCDEX, se recomienda
  192. ---- eliminar la línea que llama a este programa de su archivo AUTOEXEC.BAT
  193. ---- porque esta software no lo requiere.\n\n
  194. ----Después de instalar los drivers CD-ROM se deberá reinicializar el sistema.
  195. WAIT
  196. ABORT
  197.  
  198. :have_hs
  199.  
  200. SET msg =
  201. IF <hs>==1 GOTO instOne
  202.  
  203. TEXT Una selección de <def_cdtype> drivers CD-ROM drivers están disponibles:\n\n
  204. ----Seleccione el device driver CD-ROM <def_cdtype> de esta lista de device
  205. ---- drivers disponibles usando las teclas  y .  Luego\n
  206. ----presione ┘ (Intro).  Presione Esc para interrumpir la installación.
  207.  
  208. GOTO instMore
  209.  
  210. :instOne
  211. SET msg = Un driver CD-ROM <def_cdtype> ha sido instalado (vea CONFIG.SYS):\n\n
  212.  
  213. :instMore
  214. HSDRIVER hsname = 25, 8
  215. CONFIG Driver = "<def_driver>=<hsname>"
  216. CLEAR
  217. TEXT <msg>El driver CD-ROM <def_cdtype> seleccionado tiene el nombre "<hsname>".
  218. ----  Si esto no es correcto, presione Esc para interrumpir la instalación y
  219. ---- revise su archivo CONFIG.SYS\n\n
  220. ----Esta software NO requiere el programa MSCDEX.EXE (Microsoft CD-ROM
  221. ---- Extensions).  Si ningún otro programa lo requiere entonces Ud. puede
  222. ---- eliminar este programa de su archivo \AUTOEXEC.BAT (donde puede haber
  223. ---- sido instalado por el programa de instalación).
  224. WAIT
  225.  
  226. CLEAR
  227. TEXT Copiando Interface CD-ROM <def_cdtype>...
  228. SET driver_name = <def_driver>.DRV
  229. GOSUB copy_driver
  230.  
  231. ;----------------------------------------------------------------------------
  232.  
  233. CLEAR
  234. TEXT Presenta Alternativas:\n\n
  235. ---- Use las teclas  y  para eligir un tipo de pantalla\n
  236. ---- y presione ┘ (Intro).
  237.  
  238. NEWMENU ? 6 46
  239. MENU Pantalla Standard - Sin capacidad gráfica
  240. MENU Tarjeta Gráfica Hercules
  241. MENU Adaptador CGA
  242. MENU Olivetti, AT&T o Compaq Plasma
  243. MENU Adaptador EGA
  244. MENU Adaptador MCGA
  245. MENU Adaptador VGA
  246.  
  247. IF "<$Screen:1:3>"=="HER" DO MENU_DEFAULT 2
  248. IF "<$Screen:1:3>"=="CGA" DO MENU_DEFAULT 3
  249. IF "<$Screen:1:3>"=="EGA" DO MENU_DEFAULT 5
  250. IF "<$Screen:1:4>"=="MCGA" DO MENU_DEFAULT 6
  251. IF "<$Screen:1:3>"=="VGA" DO MENU_DEFAULT 7
  252.  
  253. SET Port = N
  254. SET Graphic = N
  255.  
  256. CHOICE 1
  257.  SET scr_type = SC_STD
  258. CHOICE 2
  259.  SET scr_type = SC_HERC
  260.  SET Port = ?
  261. CHOICE 3
  262.  SET scr_type = SC_CGA
  263.  SET Port = ?
  264.  SET Graphic = ?
  265. CHOICE 4
  266.  SET scr_type = SC_ATT
  267.  SET Port = ?
  268.  SET Graphic = ?
  269. CHOICE 5
  270.  SET scr_type = SC_EGA
  271.  SET Port = ?
  272.  SET Graphic = ?
  273. CHOICE 6
  274.  SET scr_type = SC_MCGA
  275.  SET Port = ?
  276. CHOICE 7
  277.  SET scr_type = SC_VGA
  278.  SET Port = ?
  279.  SET Graphic = ?
  280. ENDCHOICES
  281.  
  282. SET extra =
  283. IF NOT "<Port>" == "?" GOTO no_flash
  284.  
  285. CLEAR
  286. TEXT Presenta Alternativas Detalladas:\n\n
  287. ---- Use las teclas  y  para eligir la opción de pantalla\n
  288. ---- y presione ┘ (Intro).
  289.  
  290. NEWMENU ? 6 46
  291.  MENU Monitor Standard de Color o Monocromo
  292.  MENU Computadora Portable - con monitor Monocromo incluído
  293.  IF "<Graphic>"=="?" DO MENU Use sólo modo gráfico
  294.  IF "<scr_type>"=="SC_CGA" DO MENU Pantallas de Color Antiguas - interferencia o "nieve"
  295.  
  296. IF "<$Screen:-4>"=="PORT" DO MENU_DEFAULT 2
  297.  
  298. CHOICE 2
  299.   SET extra = P
  300. CHOICE 3
  301.   SET extra = G
  302. CHOICE 4
  303.   SET extra = F
  304. ENDCHOICES
  305.  
  306. :no_flash
  307.  
  308. CONFIG Screen = "<scr_type>=<extra>"
  309.  
  310. CLEAR
  311. TEXT Copiando el Driver de la Pantalla...
  312. SET driver_name = <scr_type>.DRV
  313. GOSUB copy_driver
  314.  
  315. ;----------------------------------------------------------------------------
  316.  
  317. CLEAR
  318. TEXT Alternativas de Impresora:\n\n
  319. ---- Use las teclas  y  para eligir el tipo de impresora\n
  320. ---- y presione ┘ (Intro).
  321.  
  322. NEWMENU ? 6 46
  323. MENU Impresora sin capacidad gráfica
  324. MENU HP LaserJet 150 DPI
  325. MENU HP LaserJet 300 DPI
  326. MENU HP LaserJet con JLaser
  327. MENU Canon LBP con JLaser
  328.  
  329. SET extra =
  330. CHOICE 1
  331.  SET prn_type = PR_STD
  332.  SET extra = ?2
  333. CHOICE 2
  334.  SET prn_type = PR_PCL15
  335.  SET extra = ?1
  336. CHOICE 3
  337.  SET prn_type = PR_PCL30
  338.  SET extra = ?1
  339. CHOICE 4
  340.  SET prn_type = PR_JLHP
  341.  SET extra = ?1
  342. CHOICE 5
  343.  SET prn_type = PR_JLCAN
  344. ENDCHOICES
  345.  
  346. IF NOT "<extra>"=="?1" GOTO pr_type_1
  347. CLEAR
  348. TEXT Alternativas Detalladas de Impresora:\n\n
  349. ---- Use las teclas  y  para eligir la opción de impresora\n
  350. ---- y presione ┘ (Intro).
  351.  
  352. NEWMENU ? 6 46
  353. MENU grupo de carácteres HP Roman-8 (std)
  354. MENU grupo de carácteres HP PC-8 (LJ II/III solo)
  355.  
  356. SET extra =
  357. CHOICE 1
  358.  SET extra = R
  359. CHOICE 2
  360.  SET extra = X
  361. ENDCHOICES
  362. :pr_type_1
  363.  
  364. IF NOT "<extra>"=="?2" GOTO pr_type_2
  365. CLEAR
  366. TEXT Alternativas Detalladas de Impresora:\n\n
  367. ---- Use las teclas  y  para eligir la opción de impresora\n
  368. ---- y presione ┘ (Intro).
  369.  
  370. NEWMENU ? 6 46
  371. MENU grupo de carácteres PC 8 (std)
  372. MENU grupo de carácteres 7 bit nacional
  373.  
  374. SET extra =
  375. CHOICE 2
  376.  SET extra = 7
  377. ENDCHOICES
  378. :pr_type_2
  379.  
  380. SET port =
  381. NEWMENU ? 6 40
  382. MENU LPT1       Parallel Printer # 1
  383. MENU LPT2       Parallel Printer # 2
  384. MENU COM1       Serial Printer # 1
  385. MENU COM2       Serial Printer # 2
  386. MENU PRN        Impresora actual DOS
  387.  
  388. CLEAR
  389. TEXT Alternativas de Conexión de Impresora:\n\n
  390. ---- Use las teclas  y  para eligir el port de impresora\n
  391. ---- y presione ┘ (Intro).
  392.  
  393. CHOICE 1
  394.  SET port = LPT1,
  395. CHOICE 2
  396.  SET port = LPT2,
  397. CHOICE 3
  398.  SET port = COM1,
  399. CHOICE 4
  400.  SET port = COM2,
  401. CHOICE 5
  402.  SET port = PRN,
  403. ENDCHOICES
  404.  
  405. CONFIG Printer = "<prn_type>=<port><extra>"
  406.  
  407. CLEAR
  408. TEXT Copiando el Driver de la Impresora...
  409. SET driver_name = <prn_type>.DRV
  410. GOSUB copy_driver
  411.  
  412. ;----------------------------------------------------------------------------
  413.  
  414. IF "<alter>"=="Y" GOTO done
  415.  
  416. :read_disk
  417. GOSUB need_disk
  418.  
  419. CLEAR
  420. TEXT Instalando archivos de Aplicación del Disco de Instalación <curdisk>...
  421. COPY_OPT <insdrive>\DISK<curdisk>\*.* <dest>
  422.  
  423. CALC curdisk = <curdisk> + 1
  424. IF EXISTS <insdrive>MORE GOTO read_disk
  425.  
  426. CONFIG Language = "<def_lang>"
  427. goto DONE
  428.  
  429. :abort
  430. if "<dest>"=="" GOTO nofiles
  431. if "<alter>"=="Y" GOTO nofiles
  432. CLEAR
  433. TEXT \n\n!!! Instalación Abortada !!!\n\n
  434. ----   Borrando todos los archivos copiados...
  435. UNCOPY
  436. :nofiles
  437. CLEAR
  438. TEXT \n\n!!! Instalación Abortada !!!\n\n
  439. goto END
  440.  
  441. :copy_driver
  442. IF EXISTS <ins>\<driver_name> GOTO ok_copy
  443. CALC curdisk = <curdisk> + 1
  444. GOSUB need_disk
  445. GOTO copy_driver
  446. :ok_copy
  447. COPY <ins>\<driver_name> <dest>
  448. RETURN
  449.  
  450. :need_disk
  451. IF DIREXISTS <insdrive>\DISK<curdisk> DO RETURN
  452. :retry_disk2
  453. CLEAR
  454. TEXT Introduzca el Disco de Instalación Número <curdisk> y presione ┘ (Intro).
  455. WAIT
  456. IF DIREXISTS <insdrive>\DISK<curdisk> DO RETURN
  457.  
  458. CLEAR
  459. TEXT El disco introducido no es el Disco de Instalación Número <curdisk> !
  460. NEWMENU ?, 3, 15
  461. MENU Repetir
  462. MENU Interrumpir
  463.  
  464. CHOICE 1
  465. GOTO retry_disk2
  466. ENDCHOICES
  467.  
  468. ABORT
  469.  
  470. :done
  471. CLEAR
  472. TEXT Actualizando la Configuración
  473. WRITECONFIG <dest>\_DW_.CFG
  474. IF "<alter>"=="Y" GOTO end
  475. WRITEFILE <dstdrive>\<prod>.BAT = <dstdrive>\ncd <path>\nDW\ncd \\n
  476.  
  477. CLEAR
  478. TEXT \n  Instalación completada!\n\n
  479. ----Un archivo batch fue creado en el directorio <dstdrive>\ con el nombre <prod>.\n\n
  480. ----Para iniciar el programa, escriba:\n\n
  481. ----  <prod> ┘\n\n
  482. ----Importante: Para que este commando funcione correctamente, se debe 
  483. ---- iniciar en el directorio <dstdrive>\  o incluirlo en la variable PATH.
  484.  
  485. :end
  486. WAIT
  487.  
  488. :end2
  489. CD <$CurDir>
  490.  
  491.