TSabc 発言

これでどうでしょう．
問題は文字列バッファを一つしか用意していなかったことでした．

%!PS-Adobe-3.0
/given-set [16 8 4 2 1] def
/buffer 256 string def
/binaries 256 string def
/Ryumin-Light-83pv-RKSJ-H findfont 12 scalefont setfont
/x 50 def
/y 700 def
/l given-set length def
/m 2 l exp cvi 1 sub def
0 1 m {
  /bin exch 2 binaries cvrs def
  x y moveto
  /sum 0 def
  /flag false def
  /shift bin length def
  0 1 shift 1 sub {
    /ind exch def
    bin ind get 49 eq {
      flag { (+) dup print show } { /flag true def } ifelse
      given-set l shift sub ind add get dup
      buffer cvs dup show print
      /sum exch sum add def
    } if
  } for
  flag not { (0) dup print show } if
  ( = ) dup print show
  sum buffer cvs dup print show
  /y y 20 sub def
  y 50 lt {
    showpage
    /y 700 def
  } if
  (\n) print
} for
quit


%! このメーラー使いにくい
-----------------------------
        廣島 勉
        (tsutomu@...)