(Run "c:mount cd-reader:")
(run "c:readcd unit 0")
(run "c:cd CD-Reader:cd0")
(set @new-dest
(askdir
(prompt "\nBelow is the name of the cd you want to use Write it down!!")
(help @askdir-help)
(default "CD-Reader:")))
(run "c:ed sys:cd-reader/CD-Assigns")