%PS%
% To use this font from Quikscript, use %FN,Uft%.  Bold or italic can be used
% If you do not want Helvetica outline, replace all helvetica names below with 
%   the one you want.
/MakeOutlineDict 7 dict def
/MakeOutlineFont
 {
  MakeOutlineDict begin
  /Uniqueid exch def
  /Strokewidth exch def
  /Newfontname exch def
  /Basefontname exch def
  /Basefontdict Basefontname findfont def
  /Numentries Basefontdict maxlength 1 add def
  Basefontdict /UniqueID known not Uniqueid null ne and
   {/Numentries Numentries 1 add def} if
  /Outfontdict Numentries dict def
  Basefontdict
   {exch dup /FID ne
    {exch Outfontdict 3 1 roll put} {pop pop} ifelse
   } forall
  Outfontdict /FontName Newfontname put
  Outfontdict /PaintType 2 put
  Outfontdict /StrokeWidth Strokewidth put
  Uniqueid null ne {Outfontdict /UniqueID Uniqueid put} if
  Newfontname Outfontdict definefont pop
  end
 } def

/Helvetica /HelOutline 1000 54 div
/Helvetica findfont dup /UniqueID known
  {/UniqueID get 1 add} {pop null}  ifelse
  MakeOutlineFont
/Helvetica-Bold /HelOutline-Bold 1000 36 div
/Helvetica findfont dup /UniqueID known
  {/UniqueID get 3 add} {pop null}  ifelse
  MakeOutlineFont
/Helvetica-Oblique /HelOutline-Italic 1000 54 div
/Helvetica findfont dup /UniqueID known
  {/UniqueID get 4 add} {pop null}  ifelse
  MakeOutlineFont
/Helvetica-BoldOblique /HelOutline-BoldItalic 1000 36 div
/Helvetica findfont dup /UniqueID known
  {/UniqueID get 5 add} {pop null}  ifelse
  MakeOutlineFont

QSdict begin
Font 44 /HelOutline put
Font 45 /HelOutline-Italic put
Font 46 /HelOutline-Bold put
Font 47 /HelOutline-BoldItalic put
end
PE