#  Postscript Driver Version 1.1
#  Copyright Douglas P. Webb 1993, All rights reserved.

#  This is a comment. The # at the beginning of the line makes it so.
#  No line which is not a comment may exceed 80 characters.

#  A line which consists only of the string CRLF will generate a
#    carriage return/linefeed in the output to the printer, this is useful
#    because, except with POSTLINE where carriage return/linefeed is the
#    default action, a CR/LF is not inserted after the last line in a
#    series of commands (the PREAMBLE for example).

#  Anything starting with ~ is a variable unless it's ~~
#  Predefined variables are:
#     ~R   which is the current row (line number)
#     ~C   which is the current column


# Variable calculations are done using reverse polish notation.
# Numbers are pushed on the stack and operators are applied to the
#  top two variables on the stack, popping both vaiables off the stack
#  and pushing the result on the stack.
# For example:   ~Y = 1+2  should be written  ~Y = 1 2 +
# Supported operations are   +, -, /, and *

[DEFINES]
~Y = 52 ~R - 12 * 120 +
~X = ~C 7.2 * 40 +



# This is dumped to the printer before a text is to be printed.
# Included here should be this like resetting the printer and
#  font selection (so that the default startup font will be the normal
#  font.
[PREAMBLE]
%!PS-Adobe-2.0 EPSF-1.2
%%BeginDocument: DW PSTextDumper
%%Title: PSTextDumper EPS Output
%%Creator: PSTextDumper version 1.1
%%BoundingBox: (atend)
%%DocumentFonts: (atend)
%%CreationDate: Fri 1 Jan 1993 12:00:01
%%Pages: 1
%%EndComments
%%EndProlog
%Copywrite 1993 (C) by Douglas P. Webb.  All Rights Reserved
save mark
/m {moveto} def
/s {show} def
/normalfont {/Courier findfont 12  scalefont setfont} def
/boldfont {/Courier-Bold findfont 12  scalefont setfont} def
/#copies 1 def
clippath pathbbox
0.95 0.95 scale
/saveobj2 save def
normalfont
CRLF


# This is dumped to the printer when the text has been printed,
# this should NOT include a command to eject the current page (formfeed).
[POSTAMBLE]
showpage
saveobj2 restore
1.052631579E+0000  1.052631579E+0000 scale
cleartomark restore
%%Trailer
%%BoundingBox: 0 0 612 792
%%DocumentFonts:
%%+ Courier
%%+ Courier-Bold
%%EOF
%%EndDocument
CRLF

# This is dumped to the printer to select a bold font for the
# next text character
[BOLD]
) s
boldfont
(

# This is dumped to the printer to select a normal font for the
# next text character
[NORMAL]
) s
normalfont
(

# This is dumped to the printer before every line of text
[PRELINE]
40 ~Y m (

# This is dumped to the printer after every line of text
# If this field is left blank, the default is a Carriage return/linefeed
# combination.
[POSTLINE]
) s
CRLF

# This is the controls necessary to eject the current page.
[FORMFEED]
showpage
saveobj2 restore
/saveobj2 save def
normalfont
CRLF


# This handles characters that could be misinterpreted if left in plain text
# These characters have to be replaced as they have meaning in the POSTSCRIPT
# language
[REPLACE]
\ \\
( \(
) \)



# Number of lines of text that should appear on a page
[LINES/PAGE]
52