Very Computer

I have this PS code from Cadence. It
prints
OK, but causes difficulty with distiller,
ghostscript and other windows-based PS reader
programs (Canvas etc.). The error message is:

%%[ Error: typecheck; OffendingCommand:
definefont; ErrorInfo: Encoding --nostringval--
]%%

Stack:
/Font
-dict-
/StippleFont
-mark-
-save-

%%[ Flushing: rest of job (to end-of-file) will
be
ignored ]%%
%%[ Warning: PostScript error. No PDF file
produced. ] %%

What is wrong ?

%!PS-Adobe-3.0
%%DocumentFonts: Helvetica Times-Roman Courier
%%Creator: Cadence Design Systems
%%EndComments
%%BeginProlog
%
% Start of Cadence ps.prologue -- Version 5.0.0
% Adobe Postscript Level 2 Color Version.  
%************************************************
*
*****************************
% Graphics initialization routine.
%
/gis  {
  save
  mark
  newpath

%
% Scale postscripts 72 dpi divided by the plotter
resolution set in pap.
%
  72 resolution div
  dup
  scale

%
% Move the origin of the plot up and to the right
so the plotters margin
% is observed.
%
  offsetX offsetY translate

  /stippleArray 10 array def
    stippleArray
     dup    0  <FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
                FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF>
put
     dup    1  <00000000000000000000000000000000
                00000000000000000000000000000000>
put
     dup    2  <00000000000000000000000000000000
                00000000000000000000000000000000>
put
     dup    3  <00000000000000000000000000000000
                00000000000000000000000000000000>
put
     dup    4  <00000000000000000000000000000000
                00000000000000000000000000000000>
put
     dup    5  <00000000000000000000000000000000
                00000000000000000000000000000000>
put
     dup    6  <00000000000000000000000000000000
                00000000000000000000000000000000>
put
     dup    7  <00000000000000000000000000000000
                00000000000000000000000000000000>
put
     dup    8  <08080404020201018080404020201010
                08080404020201018080404020201010>
put
            9  <08081414222241418080414122221414
                08081414222241418080414122221414>
put

  /newFont 10 dict def
  newFont begin

    /FontType 3 def
    /FontMatrix [1 0 0 1 0 0] def
    /FontBBox [0 0 1 1] def

    /Encoding 256 array def
    0 1 255 {Encoding exch /.notdef put} for
    Encoding
      dup 48 0  put
      dup 49 1  put
      dup 50 2  put
      dup 51 3  put
      dup 52 4  put
      dup 53 5  put
      dup 54 6  put
      dup 55 7  put
      dup 56 8  put
          57 9  put

    /BuildChar {
        /char exch def
        /fontdict exch def
        /charname fontdict /Encoding get char get
def

         1 0 setcharwidth

          16 16 true
          [16 0 0 -16 -.5 15.50]
           stippleArray charname 1 getinterval
cvx
          imagemask
    } def

  end
  /StippleFont newFont definefont 66 scalefont
setfont
  /fillChar 0 def

  /ellipsedict 8 dict def
  ellipsedict /mtrx matrix put