››/*---------------------------------*/›/* Program : GETA.C                */›/* Coding  : Ivo van Poorten       */›/*---------------------------------*/›/* Get Arguments from Command Line */›/*---------------------------------*/›››GetArgs(s,t,u)›char *s;›int *t;›int *u;››$(›  char buf[40];›  int x;››  *t=1;›  *s++='\01';›  *s--='\00';›  *u++=s;››  while(getdos(buf))›  $(›    *t+=1;›    strcat(buf,"\01");››    x=3;›    while(buf[x]!='\00')›    $(›      buf[x-3]=buf[x];›      x+=1;›    $)›    buf[x-3]='\00';››    *u++=s+strlen(s);›    strcat(s,buf);›  $)››  while(*s!='\00')›  $(›    if (*s=='\01')›      *s='\00';›    s+=1;›  $)›$)››