Reader ->
Arg Queue : String, 
    ExtMsgProc : < Msg >

Do ReadFrom Queue 'Message',
   ExtMsgProc Message
While SysPipeReady( Queue )

Return
