3 lines
146 B
Text
3 lines
146 B
Text
|
CHARACTER input='input.txt ', output='output.txt ', c, buffer*4096
|
||
|
|
SYSTEM(COPY=input//output, ERror=11) ! on error branch to label 11 (not shown)
|