     ' ------------------------ INSSAV --------------------------- %INCLUDE
     COLOR 1, 7:LOCATE 12,33:PRINT " Directorios ":GOSUB 2010
     COLOR 15,7:CLS
     C01$=DC$+":"                                          ' C:
     SHELL C01$                                            ' C:
     SHELL "CD\"                                           ' CD\
     SHELL "MD SIEARG2"                                    ' MD SIEARG2
     SHELL "MD POS"                                        ' MD POS
     GOSUB 2000                                            ' restaura pantalla

                                                           ' ----- SIEARG2
     COLOR 1, 7:LOCATE 12,33:PRINT "Analisis Vent":GOSUB 2010
     GOSUB 1998
     COLOR 15,7:CLS

     C02$="COPY "+CD$+":\SIEARG2D\*.*"                     ' COPY D:\SIEARG2D\*.*
     C03$="UNZ -O PRGARG2"                                 ' UNZ -O PRGARG2
     SHELL "CD\SIEARG2"                                    ' CD\SIEARG2
     SHELL C02$                                            ' COPY D:\SIEARG2D\*.*
     SHELL C03$                                            ' UNZ -O D:\SIERRA2\PRGARG2
     SHELL "COPY SIEARG2.EXE \POS"
     SHELL "COPY GENARG.EXE  \POS"
     SHELL "COPY INTARG.EXE  \POS"
     SHELL "COPY EMPRESA.ARG \POS"
     SHELL "COPY POS2ASC.EXE \POS"
     SHELL "COPY PLUPRU      \POS"
     SHELL "COPY PSW*.ARG    \POS"
     SHELL "COPY SIERRA.ICO  \POS"
     SHELL "COPY SIEARG2.PIF \WINDOWS\ESCRITORIO"
     GOSUB 2000                                            ' restaura pantalla
