Mine

alias ascflood {
  var %width = $pic($$1-).width, %height = $pic($$1-).height, %x = 1, %y
  window -pk @ASCFLOOD -1 -1 %width %height
  drawpic @ASCFLOOD 1 1 $$1-
  while (%x <= %height) {
    var %ln, %y = 1
    while (%y <= %width) {
      var %re = $getdot(@ASCFLOOD,%y,%x)
      var %co = $replace(%re,0,1,16777215,0,8388618,2,32768,3,255,4,128,5,8388736,6,32896,7,65535,8,65280,9,8421376,10,16776960,11,16711681,12,16711935,13,8421514,14,12632256,15)
      ;echo -s $rgb(%re) = %re ( $+ %co $+ )
      var %ln = $+(%ln,,%co,$chr(44),%co,x,)
      var %ln = $+(%ln,,%co,$chr(44),%co,x,)
      ;var %ln = %ln $+  $+ %co $+ , $+ %co $+ x $+ 
      inc %y
    }
    msg $chan %ln
    inc %x
  }
  :error
  close -@ @ASCFLOOD
}