2 lines
146 B
Text
2 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)
|