1 2 3 4 5 6 7 8 9 10 11 12
# test the improved readline handling that does not care whether its # Macintosh, Unix or Windows text format. var inp: TFile line: string if openFile(inp, "readme.txt"): while not EndOfFile(inp): line = readLine(inp) echo("#" & line & "#") closeFile(inp)