home *** CD-ROM | disk | FTP | other *** search
/ Excalibur 60 / Excalibur_60_cd.bin / amiga / biz / misc / gestion2.lha / installe < prev    next >
Text File  |  1997-03-19  |  2KB  |  76 lines
  1. ;Amiga GESTION_2000 v1.5
  2. ;Auteur H.Siguier & G.Wardenski
  3. ;Mars 97
  4. ;========================= renseignement programme
  5. ;
  6. (complete 0)
  7. (set @default-dest "DH0:")
  8. (message "\n\nHenri & Georges vous prΘsentent"
  9. " GESTION_2000 v1.5"
  10. "\n\nNous allons procΘder α l'installation du programme sur votre"
  11. " disque-dur.")
  12. ;======================== choix et assignement tiroir
  13. ;
  14. (complete 5)
  15. (set dest1 (askdir
  16. (prompt "Ou voulez-vous installer GESTION_2000 ?")
  17. (default @default-dest)
  18. (help " Il vous faut choisir sur quelle partition le programme GESTION"
  19. " _2000 s'installera. Par dΘfault il s'agit de la partition qui porte"
  20. " le nom de " @default-dest "\nLe programme d'installation crΘera un"
  21. " rΘpertoire du nom de 'Gestion2000' α l'endroit que vous avez choisi.\n")
  22. ))
  23. ;======================== crΘation tiroir
  24. ;
  25. (complete 10)
  26. (set destination (tackon dest1 "Gestion2000"))
  27. (complete 15)
  28. (makedir destination (prompt "\nCrΘation du rΘpertoire " destination ".")
  29. (help "\nLe rΘpertoire Gestion2000 va Ωtre crΘΘ.")
  30. (infos))
  31. ;======================== copie des fichiers
  32. ;
  33. (complete 15)
  34. (copyfiles
  35. (source "Gestion2000:Gestion_2000")
  36. (dest destination)
  37. (infos)
  38. )
  39. (complete 62)
  40. (copyfiles
  41. (source "Gestion2000:Aide2000")
  42. (dest destination)
  43. (infos)
  44. )
  45. (complete 68)
  46. (copyfiles
  47. (source "Gestion2000:PPMore")
  48. (dest destination)
  49. )
  50. (complete 73)
  51. (copyfiles
  52. (source "Gestion2000:")
  53. (dest destination)
  54. (pattern "Fichier")
  55. (infos)
  56. )
  57. ;======================= assign
  58. ;
  59. ;(complete 90)
  60. ;(startup "Gestion_2000"
  61. ;(command "assign Gestion2000: " destination)
  62. ;(command "\nassign Fichier: " destination "/Fichier")
  63. ;(prompt "\n\nNous allons assigner le programme dans le startup.")
  64. ;(help "\n Cette fonction permet au programme de retrouver ses fichiers.")
  65. ;)
  66. ;======================= fin
  67. ;
  68. ;(complete 95)
  69. ;(message "\n\n Voila.. l'installation est   terminΘe ..."
  70. ;" A la fin de celle-ci, n'oubliez pas de rΘinitialiser votre Amiga."
  71. ;" Le programme se trouvera dans le rΘpertoire " destination "\n"
  72. ;)
  73. ;(complete 100)
  74. ;(exit (quiet))
  75.  
  76.