#include descrip

tpu$calluser (code, instring, outstring)
int *code;
struct dsc$descriptor *instring, *outstring;
{
    char a[30];
    int len;

    strcpy (a, "Echo: ");
    strncat (a, instring->dsc$a_pointer, instring->dsc$w_length);
    len = strlen (a);
    return lib$scopy_r_dx (&len, a, outstring);
}