#include <ctype.h>
#include <stdlib.h>

struct ToolBase *ToolBase=NULL;

long addnumber(char *outs,char *s,long xl) {
  long yl,al,sl=strlen(s),l=strcspn(s,"0123456789");
  mid(outs,s,l,sl-l); yl=atol(outs);
  sprintf(outs,"%ld",yl); al=strlen(outs); left(outs,s,l);
  sprintf(outs,"%s%ld%s",outs,yl+xl,s+l+al);
  return l;
 };                                            /* addnumber;  V=0.1; */

int main(int argc,char *argv[]) {                          /* MAIN */
  long el=0; char s[256]; long l;
  ToolBase=(struct ToolBase *)OpenLibrary("mtool.library",0L);
  if(ToolBase==NULL) { el=-1; puts("mtool.library not found"); }
  if(argc==1) { puts("usage: addnumber rt1234 4 -> rt1238"); }
  if(argc>1) {
   l=addnumber(s,argv[1],7);
   printf("in=%11s  out = %11s   pos = %ld\n",argv[1],s,l);
  }
  if(ToolBase) CloseLibrary(ToolBase);
  return el;
 }                                                          /* END */