/* ARexx script for AmigaLoad 2.0 */

if(Show(P, "AMIGALOAD") == 0) then   /* Is AmigaLoad running? */
do
   Say "You must start AmigaLoad before running this script!"
   exit
end

Options RESULTS
Address 'AMIGALOAD'

'SetValue' AREXX1 0
'SetValue' AREXX2 0
'SetValue' AREXX3 0

'GetTitle' AREXX1; title = left(result, 8)
'GetValue' AREXX1; value = right(result, 3)
Say title || ":" value || "%"

'GetTitle' AREXX2; title = left(result, 8)
'GetValue' AREXX2; value = right(result, 3)
Say title || ":" value || "%"

'GetTitle' AREXX3; title = left(result, 8)
'GetValue' AREXX3; value = right(result, 3)
Say title || ":" value || "%"

Say "Set ARexx 1 to 100%"
'SetValue' AREXX1 100

Say "Set ARexx 2 to 75%"
'SetValue' AREXX2 75

Say "Set ARexx 3 to 25%"
'SetValue' AREXX3 25

'GetTitle' AREXX1; title = left(result, 8)
'GetValue' AREXX1; value = right(result, 3)
Say title || ":" value || "%"

'GetTitle' AREXX2; title = left(result, 8)
'GetValue' AREXX2; value = right(result, 3)
Say title || ":" value || "%"

'GetTitle' AREXX3; title = left(result, 8)
'GetValue' AREXX3; value = right(result, 3)
Say title || ":" value || "%"