home *** CD-ROM | disk | FTP | other *** search
- FailAt 21
-
- Echo "Check Disks v1.1"
- Echo "¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯"
- Echo "This utility will check all of your Wordworth"
- 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:
- Copy >NIL: wait RAM:
-
- Ask "*n*nPlease insert the disk labelled 'Ww5Install-1' into*nthe internal drive and press Return"
- RAM:wait 4
- RAM:checkdisk df0:
-
- Ask "*n*nPlease insert the disk labelled 'Ww5Install-2' into*nthe internal drive and press Return"
- RAM:wait 4
- RAM:checkdisk df0:
-
- Ask "*n*nPlease insert the disk labelled 'Ww5Install-3' into*nthe internal drive and press Return"
- RAM:wait 4
- RAM:checkdisk df0:
-
- Ask "*n*nPlease insert the disk labelled 'Ww5Install-4' into*nthe internal drive and press Return"
- RAM:wait 4
- RAM:checkdisk df0:
-
- Ask "*n*n*nDo you have Print Manager (y/n) ? "
- IF WARN
- Ask "*n*nPlease insert the disk labelled 'PrintManager' into*nthe internal drive and press Return"
- RAM:wait 4
- RAM:checkdisk df0:
- ENDIF
-
- Ask "*n*n*nDo you have the Reference Library disks (y/n) ? "
- IF WARN
- Ask "*n*nPlease insert the disk labelled 'RefLibInstall-1' into*nthe internal drive and press Return"
- RAM:wait 4
- RAM:checkdisk df0:
-
- Ask "*n*nPlease insert the disk labelled 'RefLibInstall-2' into*nthe internal drive and press Return"
- RAM:wait 4
- RAM:checkdisk df0:
-
- Ask "*n*nPlease insert the disk labelled 'RefLibInstall-3' into*nthe internal drive and press Return"
- RAM:wait 4
- RAM:checkdisk df0:
-
- Ask "*n*nPlease insert the disk labelled 'RefLibInstall-4' into*nthe internal drive and press Return"
- RAM:wait 4
- RAM:checkdisk df0:
- ENDIF
-
- Delete >NIL: RAM:checkdisk
- Delete >NIL: RAM:wait
- Echo "*n*nAll Finished..*n"
- ELSE
- Echo "*nUser Aborted...*n"
- ENDIF
-
- Ask "Press Return to exit"
-