trunc_String
extern String *trunc_String();
*sptr = trunc_String(*sptr, 1);
*sptr = app_String(trunc_String(*sptr, 1), MSG_ORIG(MSG_STR_CLOSEPAR));