Rosetta Code

Rosetta Code/Fix code tags: Difference between revisions

Page Discussion

Rosetta Code/Fix code tags (view source)

Revision as of 23:47, 26 February 2021

1 byte removed ,  3 years ago
m
→‎{{header|REXX}}: added whitespace.
(Added Delphi example)
m (→‎{{header|REXX}}: added whitespace.)
Line 986:
 
do while lines(iFID)\==0 /*keep reading the file until finished.*/
$= linein(iFID) /*read a record from the input file. */
do j=1 while old.j \== '' /*change old ──► new until finished. */
$= changestr(old.j,$,new.j) /*let REXX do the heavy lifting. */
end /*j*/
call lineout oFID,$ /*write re-formatted record to output. */
end /*while*/ /*stick a fork in it, we're all done. */</lang>
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/97838"