let allFiles = dir("H:\\data\\shape\\*\\*.shp")

newpage "eps", "tutorialdatasets7.eps", 180, 260
worlds 1600000, 610000, 1770000, 710000

for i in allFiles
do
  dataset "shapefile", allFiles[i], "dbffields="
  while Mapyrus.fetch.more
  do
    fetch
    clearpath
    addpath GEOMETRY
    stroke
  done
done
