/str 256 string def

/go
{
        320 150 4 [320 0 0 -150 0 150] {fl str readhexstring pop} image
} def

/g {
        currenttransfer
        initgraphics
        settransfer
        erasepage
        rotate
        200 50 translate
        600 400 scale
        /fl (Crad) (r) file def
        go
} def
