Fixed length records: Difference between revisions

REBOL version
(REBOL version)
Line 1,091:
1+1 records out
</pre>
 
=={{header|REBOL}}==
<lang REBOL>
inp: open %infile.dat
out: open/new %outfile.dat
 
while [ not empty? line: copy/part inp 80 ][ write out reverse line ]
 
close inp
close out
</lang>
 
 
Anonymous user