.key drive/a,name
.def name Empty
failat 2006

if <drive> eq ""
   echo "Usage: CFORMAT [DRIVE] [NAME]"
   quit
endif

if <drive> eq "dh0:"
   echo "Such things are not possible*n"
   quit
endif

if <drive> eq "dh1:"
   echo "Such things are not possible*n"
   quit
endif

echo  "All data will be erased on volume in unit <drive> [Name: <name>]*n"

oformat drive "<drive>" name "<name>" NOICONS

