var %x = 1
while (%x <= $lines(jpar.txt)) {
did -a $dname 1 $read(jpar.txt,%x)
inc %x
}
and
var %f = 1
while (%f <= $did($dname,1).lines) {
.write jpar.txt $did($dname,1,%f) $crlf
inc %f
}
You can use :
loadbuf -o $dname 1 jpar.txt
and
savebuf -o $dname 1 jpar.txt