numcurves

{
    ncrvs = numcurves();
    ncrvs, %d; cr(); ‘ output the number of curves
    for (i = 0; i < ncrvs; i++)
        xvect = curvex(i);
        npts = numpts(xvect);
        for (j = 0; j < npts; j++)
          xvect[j], %e; cr(); ‘ output X vector in exponential format
        endloop
        yvect = curvey(i);
        npts = numpts(yvect);
        for (j = 0; j < npts; j++)
          yvect[j], %e; cr(); ‘ output Y vector in exponential format
        endloop
     endloop
}