6








                    APENDICE J. LISTADO DEL ARCHIVO INSTALL.COM
          _______________________________________________________________

          $!
          $! Archivo de comandos de instalaci¢n para CDS/ISIS Versi¢n 2.3
          $!
          $! 1. Instalaci¢n del programa CDS/ISIS
          $!
          $ Isisdir :== sys$system:
          $ Inquire tmpdir"Directorio para programas ejecutables de
            CDS/ISIS <sys$system>"
          $ if tmpdir .nes. "" then isisdir :== 'tmpdir'
          $ copy/log isis.exe           'isisdir'*.*
          $!
          $! 2. Instalaci¢n de men£s y tablas del sistema
          $!
          $ Isisdir :== "[isis.men£]"
          $ Inquire tmpdir "Directorio para los men£s y tablas del sistema
            [isis.men£]"
          $ If tmpdir .nes. "" then isisdir :== 'tmpdir'
          $ copy/log isisuc.tab     'isisdir'*.*
          $ copy/log isisac.tab     'isisdir'*.*
          $ copy/log a%xisi.fmt     'isisdir'*.*
          $ copy/log a%xlng.fmt     'isisdir'*.*
          $ copy/log a%xgen.fmt     'isisdir'*.*
          $ copy/log a%xe1.fmt      'isisdir'*.*
          $ copy/log a%xg1.fmt      'isisdir'*.*
          $ copy/log a%xprt.fmt     'isisdir'*.*
          $ copy/log a%xdef.fmt     'isisdir'*.*
          $ copy/log a%xdbu.fmt     'isisdir'*.*
          $ copy/log a%xuh1.fmt     'isisdir'*.*
          $ copy/log a%xm1.fmt      'isisdir'*.*
          $ copy/log a%xm2.fmt      'isisdir'*.*
          $ copy/log a%xm3.fmt      'isisdir'*.*
          $ copy/log a%xutl.fmt     'isisdir'*.*
          $ copy/log a%xch.fmt      'isisdir'*.*
          $ copy/log a%yprt.fmt     'isisdir'*.*
          $ copy/log a%ysrt.fmt     'isisdir'*.*
          $ copy/log a%yisi.fmt     'isisdir'*.*
          $ copy/log a%yiso.fmt     'isisdir'*.*
          $!
          $! 3. Instalaci¢n de archivos de mensajes
          $!
          $ Isisdir :== "[isis.msg]"
          $ Inquire tmpdir "Directorio para los archivos de mensajes de
            CDS/ISIS [isis.msg]"
          $ if tmpdir .nes. "" then isisdir :== 'tmpdir'
          $ copy/log emsg.*         'isisdir'*.*


                                         290








          $ copy/log aemsg.fmt      'isisdir'*.*
          $ copy/log fmsg.*         'isisdir'*.*
          $ copy/log afmsg.fmt      'isisdir'*.*
          $ copy/log smsg.*         'isisdir'*.*
          $ copy/log asmsg.fmt      'isisdir'*.*
          $!
          $! 4. Instalaci¢n de base de datos de ejemplo
          $!
          $ Isisdir :== "[isis.data]"
          $ Inquire tmpdir "Directorio para ejemplo de base de datos de
            CDS/ISIS [isis.data]"
          $ If tmpdir .nes. "" then isisdir :== 'tmpdir'
          $ Copy/log cds*.*         'isisdir'*.*
          $ Copy/log %cds*.fmt 'isisdir'*.*
          $ Copy/log thes.*         'isisdir'*.*
          $ Copy/log %thes.fmt 'isisdir'*.*
          $ Isisdir :== "[isis.prog]"
          $ Inquire tmpdir "Directorio para ejemplos de programas CDS/ISIS
            Pascal [isis.prog]"
          $ If tmpdir .nes. "" then isisdir :== 'tmpdir'
          $ Copy/log *.pas  'isisdir'*.*
          $ Copy/log *.pcd  'isisdir'*.*
          $!
          $! Sistema instalado
          $!
          $ Write sys$output ""
          $ Write sys$output "CDS/ISIS ha sido instalado"
          $ Write sys$output ""
          $ Write sys$output "(Pueden ahora borrarse los archivos de este
            directorio)"
          $ Write sys$output ""
          $ Write sys$output "Mucha suerte en el uso de CDS/ISIS !!"  


























                                         291




: