/*
  user procedure interface
  name: MB_s4a
*/

typedef long  T_BOO;
typedef long  T_ANA;
typedef float T_REAL;
typedef long  T_TMR;
typedef char  *T_MSG;

typedef struct {
   /* CALL   */ T_ANA  _mbx_id;
   /* CALL   */ T_ANA  _offset;
   /* CALL   */ T_ANA  _ana1;
   /* CALL   */ T_ANA  _ana2;
   /* CALL   */ T_ANA  _ana3;
   /* CALL   */ T_ANA  _ana4;
   /* RETURN */ T_ANA  _error;
} str_arg;

#define MBX_ID           (arg->_mbx_id)
#define OFFSET           (arg->_offset)
#define ANA1             (arg->_ana1)
#define ANA2             (arg->_ana2)
#define ANA3             (arg->_ana3)
#define ANA4             (arg->_ana4)
#define ERROR            (arg->_error)
