home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Format 15
/
af015.adf
/
Canary
/
check-mine
< prev
next >
Wrap
AmigaDOS Script File
|
1978-01-08
|
1KB
|
31 lines
.key drive
.bra {
.ket }
.def drive DF0:
echo "Now looking for evidence of link viruses on {drive}..."
echo "Compare known lengths to other files"
echo "Caution: some genuine files like MOUNTLIST do vary!*n"
copy :Canary/Canary-files2 RAM:TutTut0
resident SYS:c/list
list >RAM:TutTut1 {drive}C/#? files nohead dates
list >>RAM:TutTut1 {drive}T/#? files nohead dates
list >>RAM:TutTut1 {drive}DEVS/#? files nohead dates
list >>RAM:TutTut1 {drive}DEVS/keymaps/#? files nohead dates
list >>RAM:TutTut1 {drive}DEVS/printers/#? files nohead dates
list >>RAM:TutTut1 {drive}L/#? files nohead dates
list >>RAM:TutTut1 {drive}LIBS/#? files nohead dates
list >>RAM:TutTut1 {drive}EMPTY/#? files nohead dates
list >>RAM:TutTut1 {drive}SYSTEM/#? files nohead dates
list >>RAM:TutTut1 {drive}UTILITIES/#? files nohead dates
list >>RAM:TutTut1 {drive}FONTS/#? files nohead dates
join RAM:TutTut0 RAM:TutTut1 as RAM:TutTut2
stack 20000
sort RAM:TutTut2 RAM:TutTut3
stack 4000
type >ram:TutTut4 ram:TutTut3 opt n
echo >>RAM:TutTut4 "====================================*nEnd of file!"
SYS:Utilities/MORE RAM:TutTut4
resident list remove
ask "Feed the world"