failat 21

echo "Check Disks v1.1"
echo ""
echo "This utility will check your Wordworth install"
echo "disks. You will need to run this program twice,"
echo "once on your backup disks, and again on your"
echo "master disks."
echo "*NIf errors occur on your backup disks, make"
echo "new backups using fresh disks. If errors occur"
echo "on the master disks, send them back to Digita"
echo "technical support with a stamped, addressed"
echo "Jiffy-bag and a covering letter and they will"
echo "be exchanged for new, tested disks."

ask "*N*NDo you wish to continue (Y/N) ? "
if warn
	copy >nil: checkdisk ram:

	ask "*N*NPlease insert the disk labelled 'Ww7Install-1' into*Nthe internal drive and press Return"
	ram:wait 4
	ram:checkdisk df0:
	
	ask "*N*NPlease insert the disk labelled 'Ww7Install-2' into*Nthe internal drive and press Return"
	ram:wait 4
	ram:checkdisk df0:
	
	ask "*N*NPlease insert the disk labelled 'Ww7Install-3' into*Nthe internal drive and press Return"
	ram:wait 4
	ram:checkdisk df0:
	
	ask "*N*NPlease insert the disk labelled 'Ww7Install-4' into*Nthe internal drive and press Return"
	ram:wait 4
	ram:checkdisk df0:

	delete >nil: ram:checkdisk

	echo "*N*NAll Finished!*N"
else
  echo "*N*NUser Aborted!*N"
endif

ask "Press Return to exit"
