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

(set #begin (cat "\nSie können die Konfiguration von VirtualFloppy mit diesem Programm neu einstellen."))
(set #ende (cat "\nDie Änderungen an der Konfiguration von VirtualFloppy sind abgeschlossen."))

(set #buffer (cat "Wie groß soll der Puffer für die simulierten Disketten sein?"))
(set #mount1 (cat "Was für Disketten möchten Sie auf Seite 1 (von 4) simulieren?"))
(set #mount2 (cat "Was für Disketten möchten Sie auf Seite 2 (von 4) simulieren?"))
(set #mount3 (cat "Was für Disketten möchten Sie auf Seite 3 (von 4) simulieren?"))
(set #mount4 (cat "Was für Disketten möchten Sie auf Seite 4 (von 4) simulieren?"))

(message #begin)

(complete 20)

(set buffer (askchoice
    (help "")
    (prompt #buffer)
    (DEFAULT 2)
    (choices
        "Sehr klein"
        "Klein"
        "Normal"
        "Groß"
        "Sehr Groß")
))

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