13 lines
196 B
Text
13 lines
196 B
Text
|
$INCLUDE "rapidq.inc"
|
||
|
|
|
||
|
|
DIM File1 AS QFileStream
|
||
|
|
DIM File2 AS QFileStream
|
||
|
|
|
||
|
|
File1.Open("input.txt", fmOpenRead)
|
||
|
|
File2.Open("output.txt", fmCreate)
|
||
|
|
|
||
|
|
File2.CopyFrom(File1, 0)
|
||
|
|
|
||
|
|
File1.Close
|
||
|
|
File2.Close
|