dec
echoln
echoln
echoln '                           **********************'
echoln '                           *  DISC  FORMATTING  *'
echoln '                           **********************'
echoln
echoln
echo 'Enter device number : '
read d
dev d
echo 'Enter unit number : '
read u
unit u
echoln
eval t=0
echoln 'The drive is connected to :'
echoln
echoln '  - SMD controller....1 '
echoln '  - Ansi controller...2 '
echoln
echo '> '
read t
if (t==1)
do
eval a=0
echoln
echoln 'The disc is : '
echoln
echoln '  - already formatted....1 '
echoln '  - virgin...............2 '
echoln
echo '> '
read a
if (a==2)
  do
    settype
    echoln
    echoln 'Searching BadBlocks on disc ...'
    mbb
    echoln 'Insert NEW formatted BadBlocks floppy for this drive'
    echo 'Hit <return> to continue ...'
    read x
    echoln 'Writing Manufacturer BadBlocks to floppy file ...'
    wbb
  done
else
  if (a==1)
    do
    echoln
    echoln 'Insert Manufacturer BadBlocks floppy for this drive'
    echo 'Hit <return> to continue ...'
    read x
    echoln 'Reading BadBlocks floppy file ...'
    rbb
    done
  else
    q
  fi
fi
done
else
  if (t==2)
    do
    echoln
    echoln 'Searching BadBlocks on disc ...'
    mbb
    done
  else
    q
  fi
fi
echoln 'The present configuration is :'
pci
eval a=0
echoln 'You are going to format unit ' u ' on device ' d ' '
echoln
echoln '  - validation....1 '
echoln '  - exit..........2 '
echoln
echo '> '
read a
if (a!=1)
q
fi
echoln
echoln '                      *** formatting disc drive ' u ' ***'
format
echoln
echoln '                      *** certifiing disc drive ' u ' ***'
echoln '                  ( Can be aborted with LoadEnable  Off )'
echoln
supercertify
supercertify 5
echoln
echoln 'Suspect pages found :'
lsp
if (t==1)
  do
  echoln 'Insert NEW formatted BadBlocks floppy for this drive'
  echo 'Hit <return> to continue ...'
  read x
  echoln 'Writing SuspectBlocks & BadBlocks to BadBlocks floppy file ...'
  wbsb
  done
fi
echoln
echoln
echoln '                      ***  End  of  DISC  FORMATTING  *** '
