Path: utzoo!utgpu!news-server.csri.toronto.edu!rpi!zaphod.mps.ohio-state.edu!caen!hellgate.utah.edu!dog.ee.lbl.gov!ucbvax!ANDREW.CMU.EDU!jj1h+
From: jj1h+@ANDREW.CMU.EDU (Joseph Jackson)
Newsgroups: comp.laser-printers
Subject: Re: lw2 ntx at 19200 baud?
Message-ID: <9104111904.AA07600@crayola.cs.UMD.EDU>
Date: 9 Apr 91 23:36:33 GMT
References: <9104081710.AA27704@crayola.cs.UMD.EDU>
Sender: daemon@ucbvax.BERKELEY.EDU
Distribution: world
Organization: The Internet
Lines: 88
Approved: laser-lovers@brillig.umd.edu

You might find it easier to just change the timeout value rather than
increasing the baud rate.  Include this code in your PostScript document
to disable the timeout feature for the remainder of the job:

0 setjobtimeout

Use the "setdefaulttimouts" operator to change it permanently.  If you
really want to change the communication parameters, the code below is
what I use to change the baud rate or parity options on my LaserWriters.

All of this information was gleaned from the appendix describing the
Apple LaserWriter in the PostScript Language Reference Manual (the red
book).

Good luck,

Joe Jackson
Distributed Workstation Services
Carnegie Mellon University

Internet:	jj1h+@andrew.cmu.edu
Bitnet:	jj1h+@ANDREW
AT&Tnet:	(412) 268-8799
_______________________

%!
/PASSWORD 0 def
serverdict begin PASSWORD exitserver

/LM 72 def
/SIZE 20 def
/CHANNEL 25 def
/BAUD-SETTING 9600 def
/OPTIONS-SETTING 0 def

/baud 7 string def
/options 7 string def
/options-description 40 string def

/inch {72 mul} def

/newline {
  currentpoint SIZE sub
  exch pop
  LM exch
  moveto
} def

statusdict begin
CHANNEL BAUD-SETTING OPTIONS-SETTING setsccbatch
end

BAUD-SETTING OPTIONS-SETTING
dup options cvs pop
dup 0 eq {(Ignore parity)} if
dup 1 eq {(Odd parity)} if
dup 2 eq {(Even parity)} if
dup 3 eq {(No parity)} if
options-description cvs pop
pop % take options integer off
baud cvs pop

1 inch 10 inch moveto

/Times-Bold findfont SIZE scalefont setfont
(Setting sccbatch parameters to the following parameters: ) show
newline
newline

/Times-Roman findfont SIZE scalefont setfont
(baud: ) show 
baud show
newline
(options: ) show
options show
newline
(description of options: ) show
options-description show
newline
showpage
Joe Jackson
Distributed Workstation Services
Carnegie Mellon University

Internet:	jj1h+@andrew.cmu.edu
Bitnet:	jj1h+@ANDREW
AT&Tnet:	(412) 268-8799