Res : Array : TaskResult : [Request] = <> ..
Info : Array : Integer : [Request] = <> ..

Request : Array : TaskRequest = <
                                  < Rq : Query_string.1, Port_name : 'Task_1' >
                                  < Rq : Query_string.2, Port_name : 'Task_2' >
                                  < Rq : Query_string.3, Port_name : 'Task_3' >
                                >

Do i = 1 to Request._
 Start Task Request.i 'Res.i'
;

Do while !AllValues( Res )
 Read Request.1.Port_name Info.1
 [ !Res.1 ]

 Read Request.2.Port_name Info.2
 [ !Res.2 ]

 Read Request.3.Port_name Info.3
 [ !Res.3 ]

 Say "\v\v\v" 'T1: ' Info.1 '%',
              'T2: ' Info.2 '%',
              'T3: ' Info.3 '%'
;