; $VER: Installation F-Base V1.0 (25.02.97) par LABOUREUR Frdric

;*******************************************************************
; Cration des variables

(set TitreTiroir "Choisissez l'endroit o F-Bench devra tre install. Un Tiroir sera cr.")
(set AideTiroir
   (cat ""
   )
)

;*******************************************************************
;Choix et cration du repertoire

(set DestDir
      (askdir
         (prompt TitreTiroir)
         (help AideTiroir)
         (default "SYS:")
        )
)

(set DestDir (expandpath DestDir))
(set @default-dest (tackon DestDir "F-Bench"))

(makedir @default-dest (infos))

;*******************************************************************
; Copie des fichiers necessaires...

(copyfiles
   (source "")
   (dest @default-dest)
   (pattern "(F-Bench|F-Bench_Francais.guide|F-Bench_Prefs)")
   (infos)
)


(copyfiles
   (source "")
   (dest @default-dest)
   (pattern "(FInfo|F-Bench.Lang.fr|F-Bench.DATA|FRun|FCopy)")
)

;*******************************************************************
