13 lines
578 B
Rexx
13 lines
578 B
Rexx
/*REXX program gets the source function (source code) and */
|
|
/*───────────────────────── displays the number of lines. */
|
|
#=sourceline()
|
|
do j=1 for sourceline()
|
|
say 'line' right(j, length(#) ) '──►' ,
|
|
strip( sourceline(j), 'T')
|
|
end /*j*/
|
|
say
|
|
parse source x y sID
|
|
say 'The name of the source file (program) is: ' sID
|
|
say 'The number of lines in the source program: ' #
|
|
/*stick a fork in it, we're all done.*/
|