/*#include <MyIncludes:strings.h>*/
struct        StringsBase     *StringsBase=0L;
char *SetAfterSpace();

#ifdef RUN
char *SetAfterSpace(s) char *s; {
  register char *p,cc; p=s; p--; do { cc=*++p; 
 } while (cc==' ');
  return p; 
 }                                                /* $VER: SetChar 0.1 */
#endif

long test(s) char *s; {
  char a[64],b[64]; char *p; long el; p=SetAfterSpace(s);
  sprintf(a,"<%s>",s);
 sprintf(b,"<%s>",p);
  printf("IN  = %8s  len %ld  ",a,strlen(s));
  printf("OUT = %8s  len %ld\n",b,strlen(p));
  return el;
 }

main() {
  char s[256],*p; long el;
  StringsBase=(struct StringsBase *)OpenLibrary("Strings.library",0);
  el=test("  Dies"); el=test("test"); el=test(" ");
  if(StringsBase) CloseLibrary(StringsBase);  
 }
/*
  char *p,cc; p=s; p--; do { cc=*++p; 
 } while (cc==' ');

        movem.l d3/d4,-(sp)
        move.l  8(a5),d3
        subq.l  #1,d3
L3:
        addq.l  #1,d3
        move.l  d3,a0
        move.b  (a0),d4
        cmp.b   #32,d4
        beq     L3
        move.l  d3,d0
        movem.l (sp)+,d3/d4

register char *p,cc; p=s; p--; do { cc=*++p; 
 } while (cc==' ');

        link    a5,#0
        movem.l d3/a2,-(sp)
        move.l  8(a5),a2
        subq.l  #1,a2
L3:
        addq.l  #1,a2
        move.b  (a2),d3
        cmp.b   #32,d3
        beq     L3
        move.l  a2,d0
        movem.l (sp)+,d3/a2
        unlk    a5

IN  = <  Dies>  len 6  OUT =   <Dies>  len 4
IN  =   <test>  len 4  OUT =   <test>  len 4
IN  =      < >  len 1  OUT =       <>  len 0
*/