This is a modification of the below program to dump the screen to
a BMP file. If called as sprint is puts up a window to ask for file
name to write to which is restricted to /tmp to prevent overwriting files
as root.

If called as sdump it dumps to the file name on the command line.

David Gesswein djg@pdp8online.com

-------
This is a replacement screen dump program of users of AT&T 3B1/7300s who have
Epson compatible 24-pin printers.  It has only been tested on the author's
Panasonic KX-P1124 in Epson mode.  To work at all, /usr/spool/lp/default must
contain the name of the appropriate printer.

If running UA, type:

	make install

which will save your current screen dump program and install this one.  Note
that the Makefile is smart enough to detect whether it has previously saved
the "old" version, so typing "make install" repeatably is harmless.

This program takes the liberty of printing a blank line before and after the
actual screen dump and assumes 1/6 inch linefeeds.

Unlike the current screen dump program, this program gives a list of formats
to print in.  One can also decide not to print at all.  The sizes are big,
medium, and small.  Big creates a dump almost as large as the screen itself
(and too big to fit two dumps on an 11 inch sheet - it's as high as the normal
Epson screen dump, but wider).  Medium fits two screen dumps on an 11 inch
sheet easily.  Small is half the width of big, and half the height of medium
(plain 180 dpi x 180 dpi) and the KX-P1124 has pins too big to make such a
dump clearly readable.  The default size is normal.

Required control sequences:
	ESC 2		set linefeed to 1/6 inch		   (all)
	ESC 3 n		set linefeed to n/180 inch		   (all)
	ESC * n1 n2	print n2*256+n1 graphic columns at 90 dpi  (Big)
	ESC ! n1 n2	print n2*256+n1 graphic columns at 120 dpi (Medium)
	ESC ' n1 n2	print n2*256+n1 graphic columns at 180 dpi (Small)

All this just 'cuz I wanted two screen dumps per page... :-)

--
Roger M. Shimada		rms@gorf.mn.org -or- rms@gorf.sialis.com
				(Whichever works for you!  :-()