rmesg
if ((ret = rmesg(RQSTCMPT, msg)) == 0)
#define RMESG(m, s) if (rmesg(m, s) != 0) {(*Turnoff)(); return(FAIL);}
#define RAMESG(s) if (rmesg('\0', s) != 0) {(*Turnoff)(); return(FAIL);}
extern int wmesg(), rmesg(), expfile(), putinpub(), stptcl();
if ((ret = rmesg(RQSTCMPT, msg)) == 0)