Number ->
Arg Server, Rq_string : String

R : Integer = 0 ..
Error_code = . ..

- Rq Server >Reply Error< Rq_string READ_ANYWAY

If Error | !Reply | !IsNumeric Reply then
 Error_code = ERR_NO_DATA
Else
 R <- Reply
;

If Error_code then
 Exit Error_code
Else
 R
/