1 dcl tedcount_lines_ entry (             /* return # lines in string          */
2                     ptr,                /* -> buffer in which to count       */
3                     fixed bin (21),     /* where string begins in segment    */
4                     fixed bin (21),     /* where string ends in segment      */
5                     fixed bin (21)      /* # lines                     [OUT] */
6                     );
7