(set @Path.Source "DF0")

(complete 0)
(welcome " DataSAT Pro version 1.1\n"
    " Ce script installe DataSAT sur votre disque dur\n"
    " This script install DataSAT on your hard disk\n"
    " N'oubliez pas d'assigner DataSAT: aprés l'installation\n"
    "Don't forget to assign DataSAT: after the installation\n")


;(set Path.Source
;  (tackon
;    (askdir
;      (prompt "\nDataSAT doit etre sur disquette.\n"
;              " DataSAT must be on disk\n")
;      (help @askdir-help)
;      (default "DF0:")
;    )
;    ""
;  )
;)

(set Path.Dest
  (tackon
    (askdir
      (prompt "\nSélectionnez un tiroir dans lequel sera loger le tiroir"
         " DataSAT et ses outils.\n")
      (help @askdir-help)
      (default "utils:")
    )
    ""
  )
)
(complete 50)

  (
    (copyfiles
      (prompt "\nSelectionnez les fichiers à installer:\n")
      (help @copyfiles-help)
      (source "df0:")
      (dest   Path.Dest)
      (choices "df0:DataSAT-Pro")
    )
  )
(
  (set Path.Dest 
(tackon
    (askdir
      (prompt "\nSélectionnez le repertoire font\n"
         " Select the font directory.\n")
      (help @askdir-help)
      (default "fonts:")
    )
    ""
  )
)
(complete 90)
 
 (copyfiles
   (prompt "\nJ'installe la fonte XEN\n")
      (help @copyfiles-help)
      (source "df0:fonts/")
      (dest   Path.Dest)
      (choices "df0:fonts/")
    )
  )
(set @default-dest Path.Dest)