home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format 99 / af099a.adf / archives / af99a1.lzx / AmigaLoad / ARexxScr / SetValue.rexx < prev   
Encoding:
OS/2 REXX Batch file  |  1997-05-09  |  1.1 KB  |  49 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. 'SetValue' AREXX1 0
  13. 'SetValue' AREXX2 0
  14. 'SetValue' AREXX3 0
  15.  
  16. 'GetTitle' AREXX1; title = left(result, 8)
  17. 'GetValue' AREXX1; value = right(result, 3)
  18. Say title || ":" value || "%"
  19.  
  20. 'GetTitle' AREXX2; title = left(result, 8)
  21. 'GetValue' AREXX2; value = right(result, 3)
  22. Say title || ":" value || "%"
  23.  
  24. 'GetTitle' AREXX3; title = left(result, 8)
  25. 'GetValue' AREXX3; value = right(result, 3)
  26. Say title || ":" value || "%"
  27.  
  28. Say "Set ARexx 1 to 100%"
  29. 'SetValue' AREXX1 100
  30.  
  31. Say "Set ARexx 2 to 75%"
  32. 'SetValue' AREXX2 75
  33.  
  34. Say "Set ARexx 3 to 25%"
  35. 'SetValue' AREXX3 25
  36.  
  37. 'GetTitle' AREXX1; title = left(result, 8)
  38. 'GetValue' AREXX1; value = right(result, 3)
  39. Say title || ":" value || "%"
  40.  
  41. 'GetTitle' AREXX2; title = left(result, 8)
  42. 'GetValue' AREXX2; value = right(result, 3)
  43. Say title || ":" value || "%"
  44.  
  45. 'GetTitle' AREXX3; title = left(result, 8)
  46. 'GetValue' AREXX3; value = right(result, 3)
  47. Say title || ":" value || "%"
  48.  
  49.