diff --git a/Modules/spitpgm.f90 b/Modules/spitpgm.f90
index b838221..2d2a62c 100644
--- a/Modules/spitpgm.f90
+++ b/Modules/spitpgm.f90
@@ -1,6 +1,6 @@
 !-
 !	This module try to write PNM complient files - ymmv
-!
+!-
 module spitpgm
 
     implicit none
@@ -46,6 +46,9 @@ subroutine spit_as_pgm_eq(pic, fname)
 
 end subroutine
 !-------------------------------------------------------------------
+!-
+!     16 bits - 65535 levels portable grey map file
+!-
 subroutine spit_as_pgm_16(pic, fname)
     integer, intent(in), dimension (:,:)  ::  pic
     character (len=*), intent(in)         ::  fname
@@ -56,12 +59,12 @@ subroutine spit_as_pgm_16(pic, fname)
     open(newunit=io, file=fname)
     write (io, '(a2)') "P2"
     write (io, '(i0," ",i0)')  size(pic, 1), size(pic, 2)
-    write (io, '(i0)') 255
+    write (io, '(i0)') 65535
     do iy=1,ubound(pic, 2)
       do ix=1, ubound(pic, 1)
         foo = pic(ix, iy)
         if (foo .GT. 65535)  foo = 65530
-        write(io, "(i3)") foo
+        write(io, "(i5)") foo
       enddo
     enddo
     close(io)