home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format 15 / af015.adf / Canary / check-mine < prev    next >
AmigaDOS Script File  |  1978-01-08  |  1KB  |  31 lines
  1. .key drive
  2. .bra {
  3. .ket }
  4. .def drive DF0:
  5. echo "Now looking for evidence of link viruses on {drive}..."
  6. echo "Compare known lengths to other files"
  7. echo "Caution: some genuine files like MOUNTLIST do vary!*n"
  8. copy :Canary/Canary-files2 RAM:TutTut0
  9. resident SYS:c/list
  10. list  >RAM:TutTut1 {drive}C/#? files nohead dates
  11. list >>RAM:TutTut1 {drive}T/#? files nohead dates
  12. list >>RAM:TutTut1 {drive}DEVS/#? files nohead dates
  13. list >>RAM:TutTut1 {drive}DEVS/keymaps/#? files nohead dates
  14. list >>RAM:TutTut1 {drive}DEVS/printers/#? files nohead dates
  15. list >>RAM:TutTut1 {drive}L/#? files nohead dates
  16. list >>RAM:TutTut1 {drive}LIBS/#? files nohead dates
  17. list >>RAM:TutTut1 {drive}EMPTY/#? files nohead dates
  18. list >>RAM:TutTut1 {drive}SYSTEM/#? files nohead dates
  19. list >>RAM:TutTut1 {drive}UTILITIES/#? files nohead dates
  20. list >>RAM:TutTut1 {drive}FONTS/#? files nohead dates
  21. join RAM:TutTut0 RAM:TutTut1 as RAM:TutTut2
  22. stack 20000
  23. sort RAM:TutTut2 RAM:TutTut3
  24. stack 4000
  25. type  >ram:TutTut4 ram:TutTut3 opt n
  26. echo >>RAM:TutTut4 "====================================*nEnd of file!" 
  27. SYS:Utilities/MORE RAM:TutTut4
  28. resident list remove
  29. ask "Feed the world"
  30.  
  31.