作者: Tsutomu Hiroshima
日時: 2002/5/08(11:18)
if が一ヶ所抜けていました.

%!PS-Adobe-3.0
/given-set [8 4 2 1] def
/buffer 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 {
  x y moveto
  /binaries exch 2 buffer cvrs def
  /sum 0 def
  /flag false def
  /shift binaries length def
  0 1 shift 1 sub {
    dup binaries 3 -1 roll get 49 eq {
      flag { (+) dup print show } { /flag true def } ifelse
      l shift sub add given-set exch get dup
      buffer cvs dup print show
      /sum exch sum add def
    } if
    clear
  } 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@...)