Values = <> ..                                        Values = <> ..

Do with Alarm                                         Do with Alarm
 Call Read Socket 'Text',                              Call Read Socket 'Text',
      CheckIsCorrect Text,                                  CheckIsCorrect Text,
      Translate Text 'Values'                               Translate Text 'Values'
 Where Socket = Rq.Network.TCP.Socket                  Where Socket = Rq.Network.TCP.Socket
;                                                     Else (Ec)
                                                       Handle Ec
If Alarm then                                         ;  
 ...
Else                                                  If Alarm then
 ...                                                   ...
;                                                     Else
                                                       ...
                                                      ;  