% This is a PostScript program that will printout the current
% communications settings of a PostScript printer that supports
% the sccbatch operator.
%
% To use: copy this file to the port connected to the PostScript printer.
%
% Copyright (C) 1991, Microsoft Corp.
%
/buf 10 string def
/Courier findfont 10 scalefont setfont
/Parity [ (None) (Odd) (Even) (None) ] def
/Flow   [ (Xon/Xoff) (Hardware) (Hardware) ] def
statusdict /sccbatch known {
    statusdict begin 25 sccbatch end    % get comm settings

    72 144 moveto                       % print baud rate
    (Baud Rate:) show
    222 144 moveto
    exch buf cvs show

    72 129 moveto                       % print data bits
    (Data Bits:) show
    222 129 moveto
    dup -5 bitshift 3 and               % isolate data bits
    1 eq { (7) } { (8) } ifelse         % translate to string
    show

    72 114 moveto                       % print parity
    (Parity:) show
    222 114 moveto
    dup 3 and                           % isolate parity bits
    Parity exch get                     % look up in string table
    show

    72 99 moveto                        % print stop bits
    (Stop Bits:) show
    222 99 moveto
    dup -7 bitshift                     % isolate stop bits
    1 eq { (2) } { (1) } ifelse         % translate to string
    show

    72 84 moveto                        % print flow control
    (Flow Control:) show
    222 84 moveto
    -2 bitshift 3 and                   % isolate flow control bits
    Flow exch get                       % look up in string table
    show
} {
    72 144 moveto
    (Could not determine printer settings.  If printer is connected) show
    72 129 moveto
    (to a parallel port (LPTx) no configuration is necessary.  If) show
    72 114 moveto
    (printer is connected to a serial port (COMx) find the DOS MODE) show
    72 99 moveto
    (command for this port and use those settings.  This is usually) show
    72 84 moveto
    (found in your autoexec.bat file.) show
} ifelse

{ vmreclaim } stopped pop           % if this is Level 2 printer force
                                    % garbage collection so vmstatus is
                                    % accurate

vmstatus exch sub exch pop          % get maximum - used on TOS

72 174 moveto                       % display maximum VM 
(Max Printer VM (KB):) show
222 174 moveto
dup 1024 div truncate buf cvs show

72 159 moveto
(Max Suggested VM (KB):) show            % display maximum suggested VM (85%)
222 159 moveto
0.85 mul 1024 div truncate buf cvs show

showpage