struct        StringsBase     *StringsBase=0L;

/*#define RUN*/
#ifdef  RUN

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

#endif

long test(s,n) char *s; long n; {
  long el=0;  char *os[1024],*p;
  p=(char *)WordWrapCpy(os,s,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,88); el=test(s,33); el=test(s,22); el=test(s,15); el=test(s,9);
/*  el=test(s,255);*/
  if(StringsBase) CloseLibrary(StringsBase);
  return el;
 }                                                          /* END */
 /*
s = < Dies   ist     ein     test    von     WordWrap>  48  p = <>  0  n = 88
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
*/