; CheckYourLibs V1.0
; © 09/1998 by Michaela Prüß & Heiko Schröder


Echo "Library-Check*N© Michaela Prüß & Heiko Schröder 09/98"
Ask "Do you want to check your system libraries? (Y/N)"
If NOT WARN=5
   C:Quit
EndIf 

C:FailAt 100

Echo "List of all your libraries*N--------------------------*N" >Ram:Lib-List
Echo "List of your old libraries*N--------------------------*N" >Ram:Lib-OldList
Echo "List of new libraries*NPlease contact me: age@thepentagon.com*Nand send this file to me. Thanks.*N--------------------------" >Ram:Lib-NewList
Echo "For LibGuide I scan infos about your system:" >>Ram:lib-NewList
Version >>Ram:Lib-NewList
C:CPU >>Ram:Lib-NewList

Echo "Looking for Libs:#?.library"
C:List Libs: PAT=#?.library quick nohead all LFormat="Execute MyCheck %s%s" >Ram:List1

Sort Ram:List1 Ram:List1

Echo "Starting Check..."
Protect MyCheck +s
Execute Ram:List1
Echo "*N*NREADY!*NThe result can be found at Ram:Lib-OldList and Ram:Lib-NewList ..."
Delete Ram:List1 QUIET
Wait 10 secs