(set @my-dest "SYS:Tools/")

(set #begin (cat "\nVirtualFloppy is ©96-97 by Holger Kasten.\n\n"))
(set #Pfad  (cat "Please choose target dir.\n"))
(set #ende (cat "\nHave fun using VirtualFloppy."))

(set #buffer (cat "How big should the disk buffer be?"))
(set #mount1 (cat "Please choose options for Page 1 (of 4)?"))
(set #mount2 (cat "Please choose options for Page 2 (of 4)?"))
(set #mount3 (cat "Please choose options for Page 3 (of 4)?"))
(set #mount4 (cat "Please choose options for Page 4 (of 4)?"))

(message #begin)
(complete 0)

(set target (askdir (prompt (cat #Pfad))
                    (help   (cat #Hilfe-Pfad))
                    (default @my-dest)
            )
)

(set @my-dest target)
(makedir (tackon @my-dest "VirtualFloppy") (infos))
(set @my-dest (tackon @my-dest "VirtualFloppy"))

(complete 20)

(copyfiles (source "VirtualFloppy")
           (dest (tackon @my-dest "")) (infos)
)


(complete 40)

(copylib
            (source "devs/fmsdisk.device")
            (dest "devs:")
)

(copylib
            (source "libs/reqtools.library")
            (dest "libs:")
)

(copyfiles (source "Extras/VF-AutoMount.info")
           (dest (tackon "SYS:WBStartup" ""))
)

(complete 60)

(makedir (tackon "devs:" "VFX-DISKS"))

(set buffer (askchoice
    (help "")
    (prompt #buffer)
    (DEFAULT 2)
    (choices
        "Very small"
        "Small"
        "Normal"
        "Big"
        "Very big")
))

(set page1 (askchoice
    (help "")
    (prompt #mount1)
    (DEFAULT 0)
    (choices
        "Amiga DD (880 KB) Disks"
        "Amiga HD (1760 KB) Disks"
        "PC DD (720 KB) Disks"
        "PC HD (1440 KB) Disks")
))

(set page2 (askchoice
    (help "")
    (prompt #mount2)
    (DEFAULT 1)
    (choices
        "Amiga DD (880 KB) Disks"
        "Amiga HD (1760 KB) Disks"
        "PC DD (720 KB) Disks"
        "PC HD (1440 KB) Disks")
))

(complete 70)

(set page3 (askchoice
    (help "")
    (prompt #mount3)
    (DEFAULT 2)
    (choices
        "Amiga DD (880 KB) Disks"
        "Amiga HD (1760 KB) Disks"
        "PC DD (720 KB) Disks"
        "PC HD (1440 KB) Disks")
))

(set page4 (askchoice
    (help "")
    (prompt #mount4)
    (DEFAULT 3)
    (choices
        "Amiga DD (880 KB) Disks"
        "Amiga HD (1760 KB) Disks"
        "PC DD (720 KB) Disks"
        "PC HD (1440 KB) Disks")
))

(run (cat "MLWriter >DEVS:VFX-mountlist PAGE1="page1" PAGE2="page2" PAGE3="page3" PAGE4="page4" BUF="buffer" PACK=0"))

(complete 80)

(copyfiles (source "Prefs")
           (dest (tackon @my-dest "")) (infos)
)

(copyfiles
                     (source "Manual")
                     (dest (tackon @my-dest "") (infos))
)

(message #ende)
(complete 100)