%! Not DSC compliant

/seob {
    dup
    16#55 and
    1 bitshift
    exch
    16#AA and
    -1 bitshift
    or
} def

/str 50 string def
/fs 12 def
/Helvetica findfont
fs scalefont setfont
20 750 translate
/line 0 def
/testnum 1 def

/disptest {
    0 line moveto testnum str cvs show (.) show
    dup
    50 line moveto str cvs show
    seob
    dup
    100 line moveto str cvs show
    eq { (Pass) } { (FAIL) } ifelse
    150 line moveto show
    /line line fs 2 mul sub def
    /testnum testnum 1 add def
} def

154 101 disptest
33 18 disptest

showpage