Jump to content

File input/output: Difference between revisions

File input/output (view source)

Revision as of 17:45, 9 February 2013

101 bytes removed ,  11 years ago
→‎{{header|lang5}}: rev.
Line 1,157:
 
=={{header|lang5}}==
<lang lang5>: tuckputs(*) swap. over"\n" . ;
: set-file '> swap open ;
: >>contents slurp puts ;
slurp reverse
length do
1 - tuck extract . "\n" . swap
dup 0 == if break then loop
;
: copy-file
swap set-file 'dst set dst fout >>contents dst close ;
 
'output.txt 'input.txt copy-file</lang>
 
=={{header|Liberty BASIC}}==
Anonymous user
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/903"
Cookies help us deliver our services. By using our services, you agree to our use of cookies.
More information