fwrmsg
{'f', fturnon, frdmsg, fwrmsg, frddata, fwrdata, fturnoff},
extern int fwrmsg(), fwrdata();
fwrmsg('R', "", fn);
fwrmsg('Q', "", fn);
fwrmsg('G', "", fn);