;Amiga GESTION_2000 v1.5
;Auteur H.Siguier & G.Wardenski
;Mars 97
;========================= renseignement programme
;
(complete 0)
(set @default-dest "DH0:")
(message "\n\nHenri & Georges vous présentent"
" GESTION_2000 v1.5"
"\n\nNous allons procéder à l'installation du programme sur votre"
" disque-dur.")
;======================== choix et assignement tiroir
;
(complete 5)
(set dest1 (askdir
(prompt "Ou voulez-vous installer GESTION_2000 ?")
(default @default-dest)
(help " Il vous faut choisir sur quelle partition le programme GESTION"
" _2000 s'installera. Par défault il s'agit de la partition qui porte"
" le nom de " @default-dest "\nLe programme d'installation créera un"
" répertoire du nom de 'Gestion2000' à l'endroit que vous avez choisi.\n")
))
;======================== création tiroir
;
(complete 10)
(set destination (tackon dest1 "Gestion2000"))
(complete 15)
(makedir destination (prompt "\nCréation du répertoire " destination ".")
(help "\nLe répertoire Gestion2000 va être créé.")
(infos))
;======================== copie des fichiers
;
(complete 15)
(copyfiles
(source "Gestion2000:Gestion_2000")
(dest destination)
(infos)
)
(complete 62)
(copyfiles
(source "Gestion2000:Aide2000")
(dest destination)
(infos)
)
(complete 68)
(copyfiles
(source "Gestion2000:PPMore")
(dest destination)
)
(complete 73)
(copyfiles
(source "Gestion2000:")
(dest destination)
(pattern "Fichier")
(infos)
)
;======================= assign
;
;(complete 90)
;(startup "Gestion_2000"
;(command "assign Gestion2000: " destination)
;(command "\nassign Fichier: " destination "/Fichier")
;(prompt "\n\nNous allons assigner le programme dans le startup.")
;(help "\n Cette fonction permet au programme de retrouver ses fichiers.")
;)
;======================= fin
;
;(complete 95)
;(message "\n\n Voila.. l'installation est   terminée ..."
;" A la fin de celle-ci, n'oubliez pas de réinitialiser votre Amiga."
;" Le programme se trouvera dans le répertoire " destination "\n"
;)
;(complete 100)
;(exit (quiet))