RosettaCodeData/Task/File-input-output/PureBasic/file-input-output-2.purebasic

in = ReadFile(#PB_Any,"input.txt")
If in
  out = CreateFile(#PB_Any,"output.txt")
  If out
    Define MyLine$
    While Not Eof(in)
      MyLine$ = ReadString(in)
      WriteString(out,MyLine$)
    Wend
    CloseFile(out)
  EndIf
  CloseFile(in)
EndIf