🚀 go-pugleaf

I am using ditroff (Berkeley version) with TranScript from Adobe on an
Apple Laserwriter.  In the ditroff DESC file there are 9 default
fonts listed to be loaded.  The line looks like:

fonts 9 R I B BI H HB C CB S

I would like to be able to use the other 4 fonts that came with the
TranScript software but can't seem to figure out how to do it.  It looks
like the ditroff is trying to do the right thing (tries to put the
new font on position 0) but when the file gets to the printer the
font is not loaded.  I don't have a PostScript manual so am having a
hard time understanding the PostScript input.  The error on the printer is

ERROR: rangecheck
OFFENDING COMMAND: get

STACK:

10
[()(Times-Roman)(Times-Italic)(Times-Bold)(Times-BoldItalic)(Helvetica)
(Helvetica-Bold)(Courier)(Courier-Bold)(Symbol)]

It turns out that I can use enscript with the other fonts.
I have also tried making a new DESC file with all 13 fonts and changing
psdit.c so it could handle more than 10.  This seemed to be working
until it came time to print the file where I got the same error.

Does anyone know what I am doing wrong?
Here is a sample file which fails.

.po 0.5i
.ll 7.2i
.sc
.nh
.m1 4v
.m2 0
.m3 3v
.m4 0v
.ps 30p
.vs 32p
Text
.ce 1000
.ps 20p
.vs 22p
-------------------------
.ft R
Times Roman
.ft B
Times Bold
.ft I
Times Italic
.ft BI
Times Bold Italic
.ft C
Courier
.ft CB
Courier Bold
.ft CO
Courier Oblique
.ft CD
Courier Bold Oblique
.ft H
Helvetica
.ft HB
Helvetica Bold
.ft HO
Helvetica Oblique
.ft HD
Helvetica Bold Oblique

--------------
Steve Hubert
 Dept. of Stat., U. of Wash, Seattle
 {decvax,ihnp4,ucbvax!lbl-csam}!uw-beaver!entropy!hubert
 entropy!hubert@uw-beaver