.bra {
.ket }

; Dump disks!

        textHeader
        textEcho "Disk Dumping (peliminary information)" BOLD CENTER
        textLine 2

        ; Ask for drive to dump
        doFindDrives
        if `getenv DRIVES` GT 1
                echo "Enter the drive UNIT to dump with (i.e. X in dfX): " NOLINE
                setenv >nil: UNIT ?
        else
                setenv UNIT $CURRENT
        endif
        
        ; Ask if we can dump upto track 83.1
        textLine
        echo "*e[1mIMPORTANT*e[0m: This question needs you to have sent your drive tests to us."
        textEcho "Dumping tracks that your drive does not support may damage it!" BOLD
        echo "If in *e[1mANY*e[0m doubt, type: no"
        ask "Does this disk drive support dumping upto cylinder 83?"
        if WARN
                setenv MAXTRACK "83"
        else
                setenv MAXTRACK "81"
        endif
        
        ; Ask for the dumping mode
        textLine
        setenv DUMPMODE "0"
        echo "Enter the dumping mode (default is 0): " NOLINE
        setenv >nil: DUMPMODE ?

        ; Ask about caches
        textLine
        setenv CACHES "false"
        ask "Keep caches enabled? (default is n/no): "
        if WARN
               setenv CACHES "true"
        else
               setenv CACHES "false"
        endif

        doDump