mtest=ADIR(dir)
SET PRINTER on
FOR a=1 TO ALEN(dir,1)-1
? dir(a,1),dir(a,2),dir(a,3),dir(a,4),dir(a,5),dir(a,6)
ENDFOR
SET PRINTER off
SET PRINTER TO && must have this line

You can contol the output a little better with this.

Tim Boccaleri
http://www.planot.com