16 lines
250 B
Text
16 lines
250 B
Text
|
$INCLUDE "rapidq.inc"
|
||
|
|
|
||
|
|
DIM File1 AS QFileStream
|
||
|
|
DIM File2 AS QFileStream
|
||
|
|
|
||
|
|
File1.Open("input.txt", fmOpenRead)
|
||
|
|
File2.Open("output.txt", fmCreate)
|
||
|
|
|
||
|
|
WHILE NOT File1.EOF
|
||
|
|
data$ = File1.ReadLine
|
||
|
|
File2.WriteLine(data$)
|
||
|
|
WEND
|
||
|
|
|
||
|
|
File1.Close
|
||
|
|
File2.Close
|