set vol `:C/RequestChoice TITLE "Amiga Format CD: Extract DMS files" BODY "Be sure to have four blank disks ready!*nExtract F1GP disks to which volume?" GADGETS "DF0:|DF1:|DF2:|FF0:|Cancel"`

if $vol eq 0
   skip END
endif

if $vol eq 1
   set vol DF0:
endif

if $vol eq 2
   set vol DF1:
endif

if $vol eq 3
   set vol DF2:
endif

if $vol eq 4
   set vol FF0:
endif

echo "Insert each disk when prompted!"
echo
echo
echo "Insert disk 1 of 4"
:c/DMS write F1GP-1.dms to $vol
echo "Insert disk 2 of 4"
:c/DMS write F1GP-2.dms to $vol
echo "Insert disk 3 of 4"
:c/DMS write F1GP-3.dms to $vol
echo "Insert disk 4 of 4"
:c/DMS write F1GP-4.dms to $vol
echo "All done!" 

lab END