; FILE PU .GOTO 10 This command file accepts a disk number, deletes all .BIN files and prints the directory of the latest version of all files. It then asks if it is OK to purge. If the answer is Y, all files on the given disk will be purged, and their versions will be reset to 1. It then enters a loop, asking for a file type to be deleted. All files of any type given will be deleted, and the directory will be listed again. This loop is broken by responding with a . PU will then prompt for another disk. This outer loop also continues until the prompt is answered with a . .10: .SETS NUL "" .ENABLE SUBSTITUTION .LOOP: .ASKS $D GIVE DISK .IF $D = NUL .GOTO END PIP DK'$D':*.BIN;*/DE PIP DK'$D':*.*/LI .ASK X OK TO PURGE .IFT X PIP DK'$D':*.*/PU .IFT X PIP DK'$D':*.*;1=DK'$D':*.*;*/RE .INNER: .ASKS $TYPE GIVE TYPE FOR DELETE .IF $TYPE = NUL .GOTO NEXT PIP DK'$D':*.'$TYPE';*/DE PIP DK'$D':/BR .GOTO INNER .NEXT: .GOTO LOOP .END: ; END OF PU