CSIZE.FTN

                SUBROUTINE TO CHANGE SIZE AND MARGIN

Another desirable feature is to be able to change the print size
(horizontal pitch) and the margin from within a fortran program.
My first attempt to do this resulted in a subroutine that worked
fine as long as the output wasn't being spooled but didn't work
any time the print out was being spooled.  This subroutine, called
CSIZE, changes both size and margin simultaneously and works
irregardless of whether the print out is spooled or not. To use it
have the line in the program:

     CALL CSIZE(LUN,SIZE,MARGIN)
where LUN is the logical unit number, SIZE is an integer number
from 1 through 8 where 1 is smallest print size
(16 characters/inch) and 8 is the largest print size
(5 characters/inch).  The largest margin that this subroutine
allows is a margin of 9.  The subroutine can easily be modified,
if a larger margin is desired.

Before the change in margin will take effect, there must be a
carriage return output to the printer.  Usually, people want the
change to take effect immediately and so to accomplish this, the
subroutine outputs that carriage return.  The only time you would
not want the change in margin to take effect immediately is when
you want to change the print size in the middle of a line. In this
case, modify the subroutine so that you do not output the CR at
the end of the code.  The comments in the subroutine show one way
to modify it so the CR is not sent.  With this modified version,
the print size can be changed as often as desired within the same
line and no change in margin occurs until you send the CR as part
of your program.