postscript problem: LaserWriter vs. Imagen

[Ed Arnold]

We're having some problems with getting postscript files originally
prepared on a Mac, to print on an Imagen (model 2308S, system version 4.0)
running ultrascript.  This problem is compounded by the fact that there are
no postscript experts around here.  Can anyone give me advice on the
following?

The first 12 lines of the postscript file with which we're having problems,
are given between the dashed lines at the end of this posting.  For this
posting, to make sure news software doesn't truncate long lines, the 12
lines have been expanded to 17 lines, by folding each line to a max length
of 72, with an asterisk added in col. 73 to each line which continues onto
the next line.

I have tried the following to get the file to print:

1) If the file given below is sent to ultrascript, the Imagen's
   error message is:

	%%[ Error: invalidaccess; OffendingCommand: setdefaulttimeouts ]%%

   I assume "setdefaulttimeouts" is a procedure unique to Apple; there is
   no mention of it in the Adobe postscript language ref manual.

2) Assuming "setdefaulttimeouts" is a systemdict entry which Imagen doesn't
   know about, I tried commenting out the 9th line by inserting "%%%"
   before "statusdict".  That results in an error message:

	%%[ Error: undefined; OffendingCommand:

3) Well, then I decided to get cagey (a pretty neat trick, since I don't
   know postscript :-))  and define a procedure called "setdefaulttimeouts"
   that would just pop 3 items off the stack.
   I inserted the following line before line 9:

	/setdefaulttimeouts {pop pop pop} def

   That just resulted in the same error message as in case (1).

4) Finally, I tried installing the Apple V5.2 LaserPrep
   by inserting the following line before line 9:

	(dictv52.ps)run

   where "dictv52.ps" is a file which Imagen installed on the hard disk
   when the printer was installed.  (Unfortunately, the customer can't
   look at this file.)  The error message was still the same as in case
   (1) above.
   
If you can offer any advice, please mail it to me.  I'll post the most
elegant solution, if I receive one, in the groups to which this was
was posted.
------------------------------------------------------------------------
%!<NIS.NSF.NET> [NSFNET] TOPOLOGY.NEW-PS
%%Title: "Laser Prep -- The Apple PostScript Dictionary (md)"
%%Creator: Apple Software Engineering
%%CreationDate: Thursday, March 19, 1987
%{appledict version #68 0
% ) CopyRight Apple Computer, Inc. 1984,1985,1986,1987,1988 All Rights R*
eserved.
%%EndComments
%%BeginProcSet: "(AppleDict md)" 68 0
statusdict begin waittimeout 300 lt{0 60 300 setdefaulttimeouts}if end
currentfile statusdict begin serverdict begin product (LaserWriter II NT*
) eq revision 1 eq and {/setrealdevice {//setrealdevice exec 31 sendpcmd*
 4 eq tonerlight} bind def
/execjob {31 sendpcmd 4 eq tonerlight //execjob exec} bind def end end e*
exec}{end end 722{currentfile read pop pop}repeat}ifelse 
35de8eabfc7fa5eac0431edc501ad43f5fcbdf9fdd321cce93b525f4439dd94696bf56ac*
13a0a2aad1e6bcf444711e941d7217138d20ae0500145f815439cc14e697ad201df728ea*
4ccad4ac331aa03a7aacde10760bf4ee12bbf73c77cdcbf1796f26f0dd255d2407e1ac41
------------------------------------------------------------------------
-- 
--------
Ed Arnold * NCAR (Nat'l Center for Atmospheric Research) * Mesa Lab
PO Box 3000 * Boulder, CO  80307-3000 * 303-497-1253(w) * 303-494-6949(h)
era at ncar.ucar.edu (128.117.64.4) * {ames,gatech,noao,...}!ncar!era