proc matrix side . .
   for i to side
      for j to side
         if i = j or i = side - j + 1
            write "1 "
         else
            write "0 "
         .
      .
      print ""
   .
.
matrix 6
