#include <MyIncludes:strings.h>

char *MemData(char *string,char *controlstring);

char *MemData(char *s,char *ss) {
  char *p=s,*sp,*cp,c; long l; int wi=1;
  do {
   c=*ss;
   if(c=='%') {
    c=*++ss; if(c=='b') wi=1; if(c=='w') wi=2; if(c=='l') wi=4;
    ss++;
   }
   if(*ss) {
    do; while(*ss++==32); ss--;
    l=AtoL(ss); *p++=(char)(l>>8); *p++=(char)l;
    do c=*ss++; while( (c!=32) && (c) );
   }
  } while(c);
  return p;
 }                                                /* MemData $VER:0.1 */

int main(int argc,char *argv[]) {                             /* MAIN */
  long el=0,l; char *s[1024],*fs[1024],c,*cp; short ia[16],i;
  for(i=0; i<11; i++) ia[i]=0; cp=&ia[0];
  StringsBase=(struct StringsBase *)OpenLibrary("Strings.library",0);
  if(!StringsBase) { puts(" stringslibrary not open "); el=-1;           }
  StrCpy(s,"%w 56  7 456  32767 32768 32769 32770   -1 -2");
  MemData(ia,s); printf("string = %s\n",s);
  for(i=0; i<11; i++) printf("%ld    %ld\n",i,ia[i]);
  if(StringsBase)       { CloseLibrary(StringsBase); StringsBase=NULL; }
  return el;
 }                                                             /* END */