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

Call ReadFrom Queue 'Message',
     ExtMsgProc Message

If SysPipeReady( Queue ) then
 Call Reader *
Else
 Return
