requestfile >ENV:xfile RAM: NOICONS TITLE "Save Disk Data as?"
IF not $xfile
   echo "Aborted!"
   skip 1
ENDIF 

echo ""
echo "Insert Disk into drive DF0:"
echo "Press RETURN to start..."
setenv >NIL: pathname ?

echo >ENV:xfile2 `echo $xfile`
delete >NIL: ENV:xfile

echo ""
echo "Reading disk, Please Wait..."
echo ""

Disk2File.dat >$xfile2

delete >NIL: ENV:xfile2
lab 1