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