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

(set #begin (cat "\nYou can change the preferences of VirtualFloppy here."))
(set #ende (cat "\nThe changes are saved now."))

(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 20)

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

(complete 30)

(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")
))

(complete 40)

(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 50)

(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")
))

(complete 60)

(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")
))

(complete 80)

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

(message #ende)

(complete 100)