;
; Script d'installation de PMU DEMO.
;
;=============================================================================
(if (= @language "français")
(
(set def_language 16)

(set #introduction
(cat "\n\nBienvenue dans l'installation de PMU"
"\n(rev 28.04.1998)"
"\n\nNous allons procéder à l'installation du programme sur votre Disque Dur"
"\n\nPMU  est Copyright 1993-1998 MATUSZAK ERIC"
"\nVeuillez lire le fichier ReadMe et la documentation pour de plus amples renseignements"
"\n\n  E-Mail : ematuszak@nordnet.fr " 
)
)
(set @default-dest "sys:T")
(set #hd_prompt"Où voulez-vous installer le TIROIR PMU-DEMO ")
(set #hd_help
(cat "    Vous devez choisir sur quelle partition de votre disque dur "
"le logiciel PMU  s'installera. Par défaut il s'agit de la partition qui porte "
"le nom de " @default-dest "\n"
"    Le programme d'installation créera un "
"répertoire du nom de 'PMU-DEMO' à l'endroit que vous avez choisi, "
)
)

(set #assign_prompt "\n\nNous allons assigner le programme dans le fichier user-startup.")
(set #assign_help "\n Cette fonction permet au programme de retrouver ses fichiers.")
(set #fin_install_hd
(cat "\n\n Voilà.. l'installation est   terminée  .."
" cliquez la cellule  CONTINUER, puis retirer le disk PMUA1200,"
" pour REBOOTER .Le programme est dans le répertoire \n"
)
)
)
)
(complete 5) 

;-----------------------------------------------------
(message #introduction)
;******************************************************************************** 
; installation sur le disque Dur
;********************************************************************************       
;======================== choix et assignement tiroir
(set dest1 (askdir
           (prompt #hd_prompt)
           (default @default-dest)
           (help #hd_help )
           (disk)
           )
)
;======================== création tiroir
(set destination (tackon dest1 "PMU-DEMO"))
(makedir destination (prompt #cree_tiroir destination ".")
(infos)
)
;==========desarchivage des fichiers LHA en ram======================
 (working "Désarchivage fichiers.LHA en RAM")
 (run "LHEX -fwram:PMU x fichiers.LHA")
 (copyfiles
     (source "ram:PMU")
      (dest destination)
       (all)
       )
 (run "C:Delete ram:PMU ALL")
 (complete 30)

 (working "Désarchivage prog.lha en RAM")
 (run "LHEX -fwram:PMU x prog.lha")
 (copyfiles
     (source "ram:PMU")
      (dest destination)
       (all)
       )
 (run "C:Delete ram:PMU ALL")
 (complete 50)
;============copie des autres fichiers=======================
(copyfiles
     (source "PMUA1200:font_inc.t")
      (dest destination)
       ) 
(copyfiles
     (source "PMUA1200:font_inc.t.info")
      (dest destination)
       ) 
(complete 75)
(copyfiles
     (source "PMUA1200:ppmore")
      (dest destination)
       ) 
(complete 85)

;============transfert des librairies et des fontes====================
(working "TRANSFERT DES FONTES")
(copyfiles
    (all)
    (optional "force")
      (source "PMUA1200:Fonts")
      (dest "Fonts:")
)

(working "TRANSFERT DES LIBRAIRIES")
(copylib
    (optional "force")
     (source "PMUA1200:libs/HBasic2.library")
      (dest "Libs:")
)
(complete 90)
;============================== assign ================================
(startup "PMU"
        (command "assign PMU: " destination)
        (prompt #assign_prompt )
        (help #assign_help )
)
;================================ fin =================================
(complete 100)
(message #fin_install_hd  destination "\n")
(run "reboot")