File input/output: Difference between revisions
Content added Content deleted
(→{{header|LabVIEW}}: add.) |
(→{{header|lang5}}: rev.) |
||
Line 1,157: | Line 1,157: | ||
=={{header|lang5}}== |
=={{header|lang5}}== |
||
<lang lang5>: |
<lang lang5>: puts(*) . "\n" . ; |
||
: set-file '> swap open ; |
: set-file '> swap open ; |
||
: >>contents |
: >>contents slurp puts ; |
||
slurp reverse |
|||
length do |
|||
1 - tuck extract . "\n" . swap |
|||
dup 0 == if break then loop |
|||
; |
|||
: copy-file |
: copy-file |
||
swap set-file 'dst set dst fout >>contents dst close ; |
swap set-file 'dst set dst fout >>contents dst close ; |
||
'output.txt 'input |
'output.txt 'input copy-file</lang> |
||
=={{header|Liberty BASIC}}== |
=={{header|Liberty BASIC}}== |