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

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

(set TitreTiroir "Select Your Path. A Drawer will be Created")
(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-Base"))

(makedir @default-dest (infos))

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

(copyfiles
   (source "")
   (dest @default-dest)
   (pattern "(F-Base|F-Base_English.guide|BBase3-->F-Base|F-BPrefs|BBase3-->F-Base.doc)")
   (infos)
)


(copyfiles
   (source "")
   (dest @default-dest)
   (pattern "(FInfo|F-Base.Lang.uk|Exemple2)")
)

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