home *** CD-ROM | disk | FTP | other *** search
- .key disk ;Written by RAY CLARK on 30 SEP 86
-
- IF "<disk>" eq "" ;Check for drive specifier
- SKIP usage ;Show user how to use this file
- ENDIF ; if no disk drive was specified
-
- ECHO "Insert the cleaning disk into the drive"
- ECHO " I will now wait for 10 seconds "
- WAIT 10 secs ;Pause to give the user a chance
-
- diskchange <disk>: ;Execute 12 diskchange commands to cycle disk
- diskchange <disk>:
- diskchange <disk>:
- diskchange <disk>:
- diskchange <disk>:
- diskchange <disk>:
- diskchange <disk>:
- diskchange <disk>:
- diskchange <disk>:
- diskchange <disk>:
- diskchange <disk>:
- diskchange <disk>:
-
- SKIP done ;Skip to the end after claening the disk
-
- LAB usage ;Explain to the user how to invoke
- ECHO " Diskclean usage"
- ECHO " Type in EXECUTE DISKCLEAN DFx"
- ECHO " Where x is the unit number"
- ECHO " The Colon (:) is optional"
-
- LAB DONE ;all done now
-