/*)LIBRARY */ /* * P$MCLOSE - Close menu file */ extern mclose(); p$mclose(stat) int *stat; { call(mclose, 1, stat); return(stat[0]); }