%!
%%
%% from the Laserwriter II manual
%%
%% used to display communication settings
%%
%%EndComments
/Helvetica findfont 14 scalefont setfont
/cr{show 182 currentpoint 20 sub exch pop moveto}def
/tb{show 300 currentpoint exch pop moveto}def
/Which{5 -1 roll 4 exch sub -1 roll cr 3{pop}repeat}def
statusdict begin 25 sccbatch end 182 650 moveto
exch (Baud :)tb 10 string cvs cr
(Parity:)tb dup 30 bitshift -30 bitshift
(none-space) (odd) (even) (none-mark) Which
(Handshake:)tb dup 27 bitshift -29 bitshift
(XON/XOFF) (DSR/DTR) (ETX/ACK) (bad value) Which
(Data bits:)tb dup 25 bitshift -30 bitshift
(standard) (7) (8) (bad value) Which
(Stop bits:)tb -7 bitshift 0 eq{(1)}{(2)}ifelse
show showpage
Please read The Standard Disclaimer regarding information found in these pages.
To return to the top of the Corcoran document archives Click Here
If you came here directly from a search engine, and would like to view these pages in the proper frames from the top, Start Here
Or start at the very top of Mike Corcoran's home page