RosettaCodeData/Task/Bitmap-Write-a-PPM-file/Modula-3/bitmap-write-a-ppm-file-3.mod3

proc writePPM(img: Image, f: TFile) =
  f.writeln "P6\n", img.w, " ", img.h, "\n255"

  for x,y in img.indices:
    f.write char(img[x,y].r)
    f.write char(img[x,y].g)
    f.write char(img[x,y].b)