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