long Trim(char *s) {
  char *esp,*sp=s,c; esp=sp;
  if(*s) {
   do ; while( (*sp++)==32 ); sp--;
   do {
    c=*sp++; *s++=c; if( (c!=32) && (c>0) ) esp=s; }
   while (c>0);
   *esp=0;
  }
  return 0;
 };                                                /* Trim $VER 0.1 */

int main(int argc,char *argv[]) {                             /* MAIN */
  long el=0; char s[256];
  strcpy(s,"   testTrim");     Trim(s); printf("-%s-\n",s);
  strcpy(s,"   test  Trim");   Trim(s); printf("-%s-\n",s);
  strcpy(s,"   test  Trim  "); Trim(s); printf("-%s-\n",s);
  strcpy(s," ");               Trim(s); printf("-%s-\n",s);
  return el;
 }                                                             /* END */