Anonymous user
Read a file line by line: Difference between revisions
m
→belt and suspenders: moved a comment.
m (Put C code inside a lang tag) |
m (→belt and suspenders: moved a comment.) |
||
Line 2,714:
say y /*show the content of the line (record)*/
end /*#*/
say 'file ' fID " has " #-1 ' records.' /*display the record count summary. */
call lineout fID /*close the input file (most REXXes). */</lang><br><br>
▲ /*stick a fork in it, we're all done. */</lang><br><br>
===ARexx version===
<lang rexx>/* Also works with Regina if you state OPTIONS AREXX_BIFS ; OPTIONS AREXX_SEMANTICS */
| |||