home *** CD-ROM | disk | FTP | other *** search
/ MACD 9 / MACD9.iso / Docs / DevGuide / CheckYourDevices-new < prev    next >
Encoding:
Text File  |  1998-09-27  |  991 b   |  31 lines
  1. ; CheckYourDevs V1.0
  2. ; © 09/1998 by Michaela Prüß & Heiko Schröder
  3.  
  4.  
  5. Echo "Device-Check*N© Michaela Prüß & Heiko Schröder 09/98"
  6. Ask "Do you want to check your system devices? (Y/N)"
  7. If NOT WARN=5
  8.    C:Quit
  9. EndIf 
  10.  
  11. C:FailAt 100
  12.  
  13. Echo "List of all your devices*N--------------------------*N" >Ram:Dev-List
  14. Echo "List of your old devices*N--------------------------*N" >Ram:Dev-OldList
  15. Echo "List of new devices*NPlease contact me: age@thepentagon.com*Nand send this file to me. Thanks.*N--------------------------" >Ram:Dev-NewList
  16. Echo "For DevGuide I scan infos about your system:" >>Ram:Dev-NewList
  17. Version >>Ram:Dev-NewList
  18. C:CPU >>Ram:Dev-NewList
  19.  
  20. Echo "Looking for Sys:Devs/#?.device"
  21. C:List Sys:Devs/ PAT=#?.device 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:Dev-OldList and Ram:Dev-NewList ..."
  29. Delete Ram:List1 QUIET
  30. Wait 10 secs
  31.