/*
  user procedure interface
  name: kbd_set
*/

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  _max_size;
   /* RETURN */ T_BOO  _error;
} str_arg;

#define MAX_SIZE         (arg->_max_size)
#define ERROR            (arg->_error)
