home *** CD-ROM | disk | FTP | other *** search
- (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)
-