;Install script for Floppy.device

(user 2)
(set @default-dest "")
(set mountpath0   "Sys:Storage/DosDrivers/")
(set mountpath1   "Devs:DosDrivers/")
(set mfspath      "Devs:DosDrivers/DF0/")

(set mfs
   (= 0
     (askchoice
           (prompt "\nSelect drive name to see the Floppy.device\n")
           (help
               "\nIf you select 'DF0:' you must have MultiFileSystem.\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n"
               @askchoice-help
               )
           (choices "DF0:" "FS0:")
           (default 0)
           )
      )
)

(copyfiles
	(source "floppy.device") (dest "Devs:")
	(safe)
)

(delete (tackon mountpath0 "FS0") (infos))
(delete (tackon mountpath1 "FS0") (infos))
(delete (tackon mfspath    "FS0") (infos))

(set mountpath mountpath1)
(if mfs (set mountpath mfspath))

(copyfiles
	(source "") (dest mountpath) (pattern "FS0#?")
	(safe)
)