.key DIRECTORY/A

echo ""
echo ""
echo ""
echo ""
echo ""
echo ""

echo "            INSTALLATION SUR DISQUE DUR DE VIDEOPILOT " 
echo "           -------------------------------------------"

echo ""

if exists <DIRECTORY> 
     echo "         Ce sous répertoire existe déjà."
    
else
     echo <DIRECTORY>
     makedir <DIRECTORY>
     copy df0:icon <DIRECTORY>.info 
     echo "         Nouveau sous répertoire crée."

endif

	echo "     Copie des fichiers du montage VIDEOPILOT dans le répertoire." 

    copy DF0:montage <DIRECTORY>
    copy DF0:montage.info <DIRECTORY>
    copy DF0:fiche1 <DIRECTORY>
    copy DF0:fiche2 <DIRECTORY>
    copy DF0:fiche4 <DIRECTORY>
    copy DF0:fiche5 <DIRECTORY>
    copy DF0:config.ini <DIRECTORY>
    copy DF0:ConfigTitre.ini <DIRECTORY>

	copy df0:c/resetpal sys:c
    
if exists sys:devs
     if not exists sys:devs/serial.device
          copy df0:devs/serial.device sys:devs
     endif
     if not exists sys:devs/keymaps
          copy df0:devs/keymaps sys:devs
     endif
     if not exists sys:devs/parallel.device
          copy df0:devs/parallel.device sys:devs
     endif
     if not exists sys:devs/printer.device
          copy df0:devs/printer.device sys:devs
     endif
     if not exists sys:devs/ramdrive.device
          copy df0:devs/ramdrive.device sys:devs
     endif
     if not exists sys:libs/diskfont.library
          copy df0:libs/diskfont.library sys:libs
     endif

     if not exists sys:fonts
          makedir sys:fonts
     endif


       if not exists sys:fonts/S2
          makedir sys:fonts/S2
       endif
       copy fontes:fonts/S2.font sys:fonts
       copy fontes:fonts/S2/10 sys:fonts/S2
       if not exists sys:fonts/S2
        echo "Font S2: Creation du Directory font/S2 impossible, Disque Plein"  
       endif  
       if not exists sys:fonts/S2/10
         echo "Font S2: Copie du ficihier font/S2/10 impossible,Disque Plein"  
       endif      
       if not exists sys:fonts/S2.font
       echo "Font S2: Copie du fichier fonts/S2.font impossible,Disque Plein"  
       endif
            
        
     
        if not exists sys:fonts/S4
           makedir sys:fonts/S4
        endif
       copy fontes:fonts/S4.font sys:fonts
       copy fontes:fonts/S4/11 sys:fonts/S4
       if not exists sys:fonts/S4
        echo "Font S4: Creation du directory font/S4 impossible, Disque Plein"  
       endif 
       if not exists sys:fonts/S4/11
        echo "Font S4: Copie du fichier font/S4/11 impossible, Disque Plein"  
       endif
       if not exists sys:fonts/S4.font
         echo "Font S4: Copie du fichier font/S4.font impossible, Disque Plein"  
       endif
          


        if not exists sys:fonts/S6
           makedir sys:fonts/S6
        endif
       copy fontes:fonts/S6.font sys:fonts
       copy fontes:fonts/S6/11 sys:fonts/S6
       if not exists sys:fonts/S6
        echo "Font S6: Creation du directory font/S6 impossible, Disque Plein"  
       endif 
       if not exists sys:fonts/S6/11
        echo "Font S6: Copie du fichier font/S6/11 impossible, Disque Plein"  
       endif
       if not exists sys:fonts/S6.font
         echo "Font S6: Copie du fichier font/S6.font impossible, Disque Plein"  
       endif



          
        if not exists sys:fonts/S7
           makedir sys:fonts/S7
        endif
       copy fontes:fonts/S7.font sys:fonts
       copy fontes:fonts/S7/5 sys:fonts/S7
       if not exists sys:fonts/S7
        echo "Font S7: Creation du directory font/S7 impossible, Disque Plein"  
       endif 
       if not exists sys:fonts/S7/5
        echo "Font S7: Copie du fichier font/S7/5 impossible, Disque Plein"  
       endif
       if not exists sys:fonts/S7.font
         echo "Font S7: Copie du fichier font/S7.font impossible, Disque Plein"  
       endif
          


        if not exists sys:fonts/S8
           makedir sys:fonts/S8
        endif
       copy fontes:fonts/S8.font sys:fonts
       copy fontes:fonts/S8/10 sys:fonts/S8
       if not exists sys:fonts/S8
        echo "Font S8: Creation du directory font/S8 impossible, Disque Plein"  
       endif 
       if not exists sys:fonts/S8/10
        echo "Font S8: Copie du fichier font/S8/10 impossible, Disque Plein"  
       endif
       if not exists sys:fonts/S8.font
         echo "Font S8: Copie du fichier font/S8.font impossible, Disque Plein"  
       endif
          
     
        if not exists sys:fonts/topaz
          makedir sys:fonts/topaz
        endif
        copy fontes:fonts/topaz.font sys:fonts
        copy fontes:fonts/topaz/11 sys:fonts/topaz
        if not exists sys:fonts/topaz
        echo "Font topaz: Creation du directory fonts/topaz impossible,Disque Plein"  
        endif
        if not exists sys:fonts/topaz/11
         echo "Font topaz: Copie du fichier fonts/topaz/11  impossible,Disque Plein"  
        endif 
        if not exists sys:fonts/topaz.font
         echo "Font topaz: Copie du fichier fonts/topaz.font impossible,Disque Plein"  
        endif

        if not exists sys:fonts/diamond
          makedir sys:fonts/diamond
        endif
        copy fontes:fonts/diamond.font sys:fonts
        copy fontes:fonts/diamond/12 sys:fonts/diamond
        copy fontes:fonts/diamond/20 sys:fonts/diamond
        if not exists sys:fonts/diamond
        echo "Font diamond: Creation du directory fonts/diamond impossible,Disque Plein"  
        endif
        if not exists sys:fonts/diamond/12
         echo "Font diamond: Copie du fichier fonts/diamond/12  impossible,Disque Plein"  
        endif 
        if not exists sys:fonts/diamond/20
         echo "Font diamond: Copie du fichier fonts/diamond/20  impossible,Disque Plein"  
        endif 
        if not exists sys:fonts/diamond.font
         echo "Font diamond: Copie du fichier fonts/diamond.font impossible,Disque Plein"  
        endif

        if not exists sys:fonts/emerald
          makedir sys:fonts/emerald
        endif
        copy fontes:fonts/emerald.font sys:fonts
        copy fontes:fonts/emerald/17 sys:fonts/emerald
        copy fontes:fonts/emerald/20 sys:fonts/emerald
        if not exists sys:fonts/emerald
        echo "Font emerald: Creation du directory fonts/emerald impossible,Disque Plein"  
        endif
        if not exists sys:fonts/emerald/17
         echo "Font emerald: Copie du fichier fonts/emerald/17  impossible,Disque Plein"  
        endif 
        if not exists sys:fonts/emerald/20
         echo "Font emerald: Copie du fichier fonts/emerald/20  impossible,Disque Plein"  
        endif 
        if not exists sys:fonts/emerald.font
         echo "Font emerald: Copie du fichier fonts/emerald.font impossible,Disque Plein"  
        endif

        if not exists sys:fonts/garnet
          makedir sys:fonts/garnet
        endif
        copy fontes:fonts/garnet.font sys:fonts
        copy fontes:fonts/garnet/16 sys:fonts/garnet
        copy fontes:fonts/garnet/9 sys:fonts/garnet
        if not exists sys:fonts/garnet
        echo "Font garnet: Creation du directory fonts/garnet impossible,Disque Plein"  
        endif
        if not exists sys:fonts/garnet/16
         echo "Font garnet: Copie du fichier fonts/garnet/16  impossible,Disque Plein"  
        endif 
        if not exists sys:fonts/garnet/9
         echo "Font garnet: Copie du fichier fonts/garnet/9  impossible,Disque Plein"  
        endif 
        if not exists sys:fonts/garnet.font
         echo "Font garnet: Copie du fichier fonts/garnet.font impossible,Disque Plein"  
        endif

        if not exists sys:fonts/opal
          makedir sys:fonts/opal
        endif
        copy fontes:fonts/opal.font sys:fonts
        copy fontes:fonts/opal/12 sys:fonts/opal
        copy fontes:fonts/opal/9 sys:fonts/opal
        if not exists sys:fonts/opal
        echo "Font opal: Creation du directory fonts/opal impossible,Disque Plein"  
        endif
        if not exists sys:fonts/opal/12
         echo "Font opal: Copie du fichier fonts/opal/12  impossible,Disque Plein"  
        endif 
        if not exists sys:fonts/opal/9
         echo "Font opal: Copie du fichier fonts/opal/9  impossible,Disque Plein"  
        endif 
        if not exists sys:fonts/opal.font
         echo "Font opal: Copie du fichier fonts/opal.font impossible,Disque Plein"  
        endif

        if not exists sys:fonts/sapphire
          makedir sys:fonts/sapphire
        endif
        copy fontes:fonts/sapphire.font sys:fonts
        copy fontes:fonts/sapphire/14 sys:fonts/sapphire
        copy fontes:fonts/sapphire/19 sys:fonts/sapphire
        if not exists sys:fonts/sapphire
        echo "Font sapphire: Creation du directory fonts/sapphire impossible,Disque Plein"  
        endif
        if not exists sys:fonts/sapphire/14
         echo "Font sapphire: Copie du fichier fonts/sapphire/14  impossible,Disque Plein"  
        endif 
        if not exists sys:fonts/sapphire/19
         echo "Font sapphire: Copie du fichier fonts/sapphire/19  impossible,Disque Plein"  
        endif 
        if not exists sys:fonts/sapphire.font
         echo "Font sapphire: Copie du fichier fonts/sapphire.font impossible,Disque Plein"  
        endif

else 
   echo "PAS DE "SYS:"DEVS"
endif

   echo "      Fin de la procédure d'installation."
   echo "                                                                "
   echo "       NOTE IMPORTANTE : "
   echo "      -------------------                                       "
   echo "                                                                "
   echo "    AJOUTEZ au debut de votre startup-sequence l'instruction    "
   echo "                         resetpal                            "

   echo ""
   echo "           pour empêcher l'Amiga de booter en NTSC. "
   echo ""
   echo ""

   echo ""
   echo "    Le fichier statup-sequence se trouve dans le répertoire : SYS:s"
   echo "" 
   echo "    L'instruction resetpal se trouve sous                   : SYS:c"

   echo "" 
   echo ""

   echo "          BIENVENUE DANS LE MONDE DE VIDEOPILOT SYSTEM    "

   echo ""
