$! CLEAN.COM - Clean up old files $! $! P1 = Day of week ("MONDAY") $ $! Purge the mailbox every Sunday $ _If P1 .eqs. "SUNDAY" then - _mail purge $ $! Define handy command $ Delete_Old_Files := - Delete/nowarnings/created/before = $ $ Delete_Old_Files -2Days [,*]*.BAK, - [,*]*.JOU, - [,*]*.TMP $ Delete_Old_Files -2Days [,*]*.FOO, - [,*]*.BAR, - [,1]*.LOG $ $ Delete_Old_Files -2Days x:[,*]*.BAK, - x:[,*]*.JOU, - x:[,*]*.TMP $ Delete_Old_Files -2Days x:[,*]*.FOO - x:[,*]*.BAR, - x:[,*]*.LOG $ $ Delete_Old_Files -7Days []*.SRH, - []*.OBJ $ $ _Exit