row = 0
LINE_SIZE = 80
CRLF = chr(13) + chr(10)

in_line = space(LINE_SIZE)

DO WHILE freadln(in_handle, @in_line, LINE_SIZE) .AND. row < 25

    out_line = "@ " + IIF(row < 10, " ", "") + ltrim(str(row)) + ;
               ", 0 SAY " + "'" + in_line + "'"
    fwrite(out_handle, out_line + CRLF)
    row = row + 1

ENDDO
