alias readwrite { var %i = 1 while (%i <= $lines(test.txt)[color:red])[/color] { write example.txt $read($mircdirtest.txt,%i) inc %i } }