home *** CD-ROM | disk | FTP | other *** search
/ MACD 9 / MACD9.iso / Docs / LibGuide / CheckYourLibs-new < prev    next >
Encoding:
Text File  |  1998-09-27  |  994 b   |  31 lines
  1. ; CheckYourLibs V1.0
  2. ; © 09/1998 by Michaela Prüß & Heiko Schröder
  3.  
  4.  
  5. Echo "Library-Check*N© Michaela Prüß & Heiko Schröder 09/98"
  6. Ask "Do you want to check your system libraries? (Y/N)"
  7. If NOT WARN=5
  8.    C:Quit
  9. EndIf 
  10.  
  11. C:FailAt 100
  12.  
  13. Echo "List of all your libraries*N--------------------------*N" >Ram:Lib-List
  14. Echo "List of your old libraries*N--------------------------*N" >Ram:Lib-OldList
  15. Echo "List of new libraries*NPlease contact me: age@thepentagon.com*Nand send this file to me. Thanks.*N--------------------------" >Ram:Lib-NewList
  16. Echo "For LibGuide I scan infos about your system:" >>Ram:lib-NewList
  17. Version >>Ram:Lib-NewList
  18. C:CPU >>Ram:Lib-NewList
  19.  
  20. Echo "Looking for Libs:#?.library"
  21. C:List Libs: PAT=#?.library quick nohead all LFormat="Execute MyCheck %s%s" >Ram:List1
  22.  
  23. Sort Ram:List1 Ram:List1
  24.  
  25. Echo "Starting Check..."
  26. Protect MyCheck +s
  27. Execute Ram:List1
  28. Echo "*N*NREADY!*NThe result can be found at Ram:Lib-OldList and Ram:Lib-NewList ..."
  29. Delete Ram:List1 QUIET
  30. Wait 10 secs
  31.