struct        StringsBase     *StringsBase=0L;

/*#define RUN*/
#ifdef  RUN

char *WordWrap(s,n) register char *s; register long n; {
  register char c,*p=0,*cp; register long l=0;
  if(s) {
   if(*s) {
    p=s;
    do  {
     c=*p++; l++;
     if(l<n) { if(c=' ') cp=p-1; }
    } while(l<n);
    *cp=0; if(p) p--;
   }
  }
  return p;
 };                                                   /*  $VER: 0.1 */

#endif

long test(s,n) char *s; long n; {
  long el=0;  char os[1024],*p; StrCpy(os,s);
  p=(char *)WordWrap(os,n);
  printf("s = <%s>  %ld  ",os,StrLen(os));
  printf("p = <%s>  %ld  n = %ld\n",p,StrLen(p),n);
  return el;
 };

int main() {                          /* MAIN */
  long el=0,l=32,i,j,n; char s[256],hs[128],*p,*cp,c,cc,*hp; cp=s;
  StringsBase=(struct StringsBase *)OpenLibrary("Strings.library",0); p=s;
  StrCpy(s," Dies   ist     ein     test    von     WordWrap",22);
  el=test(s,33); el=test(s,22); el=test(s,15); el=test(s,9);
  if(StringsBase) CloseLibrary(StringsBase);
  return el;
 }                                                          /* END */
 /*
s = < Dies   ist     ein     test   >  31  p = <von     WordWrap>  16  n = 33
s = < Dies   ist     ein >  20  p = <   test    von     WordWrap>  27  n = 22
s = < Dies   ist  >  13  p = <  ein     test    von     WordWrap>  34  n = 15
s = < Dies  >  7  p = <ist     ein     test    von     WordWrap>  40  n = 9

*/