; $VER: Installation F-Base V1.0 (25.02.97) par LABOUREUR Frédéric

;*******************************************************************
; Création des variables

(set TitreTiroir "Choose your drawer. A new Drawer called 'F-bench' will be created")
(set AideTiroir
   (cat ""
   )
)

;*******************************************************************
;Choix et création 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_English.guide|F-Bench_Prefs)")
   (infos)
)


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

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