home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format 99 / af099a.adf / archives / af99a1.lzx / AmigaLoad / ARexxScr / List.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1997-05-09  |  700 b   |  28 lines
  1. /* ARexx script for AmigaLoad 2.0 */
  2.  
  3. if(Show(P, "AMIGALOAD") == 0) then   /* Is AmigaLoad running? */
  4. do
  5.    Say "You must start AmigaLoad before running this script!"
  6.    exit
  7. end
  8.  
  9. Options RESULTS
  10. Address 'AMIGALOAD'
  11.  
  12. 'GetTitle' NEWCPULOAD; title = left(result, 8)
  13. 'GetValue' NEWCPULOAD; value = right(result, 3)
  14. Say title || ":" value || "%"
  15.  
  16. 'GetTitle' READY; title = left(result, 8)
  17. 'GetValue' READY; value = right(result, 3)
  18. Say title || ":" value || "%"
  19.  
  20. 'GetTitle' FASTMEM; title = left(result, 8)
  21. 'GetValue' FASTMEM; value = right(result, 3)
  22. Say title || ":" value || "%"
  23.  
  24. 'GetTitle' CHIPMEM; title = left(result, 8)
  25. 'GetValue' CHIPMEM; value = right(result, 3)
  26. Say title || ":" value || "%"
  27.  
  28.