8 lines
123 B
Text
8 lines
123 B
Text
open 1, "input.txt"
|
|
open 2, "output.txt"
|
|
while not eof(1)
|
|
linea$ = readline(1)
|
|
write 2, linea$
|
|
end while
|
|
close 1
|
|
close 2
|