🚀 go-pugleaf

In article <16566@ucdavis.ucdavis.edu>,
ccm038@othello.ucdavis.edu (Jason Yan (can cook)) wrote:

> ...I need a poscript program that I can append text to
> and have it print on a PS printer without goofing up.

OK, here is the solution for the "left to the reader" problem of
modifying what I posted earlier to work with PS printers that
insist upon turning LF into CR...

%!-Adobe-1.0
%%Title: asciiprint.ps
%%Creator: Ben Cranston <zben@umd2.umd.edu>
%%CreationDate: Thu Feb 8 1990
%%Pages 0

/Courier findfont 10 scalefont setfont
/colwid (m) stringwidth pop def
36 756 moveto
256 string
{ %exec
   { %loop over file
      dup currentfile exch readstring exch
      { %loop FF
         (\f) search exch
         { %loop NEWLINE
            (\r) search exch
            { %loop TAB
               (\t) search exch
               { %loop BS
                  (\b) search exch
                  show
                  not { exit } if
                  pop currentpoint exch colwid sub exch moveto
               } loop %BS
               not { exit } if
               pop currentpoint exch 36 sub colwid div .49 add cvi
               8 add dup 8 mod sub colwid mul 36 add exch moveto
            } loop %TAB
            not { exit } if
            pop 36 currentpoint exch pop
            11 sub dup 25 le { %if
               pop showpage 756
            } if
            moveto
         } loop %NEWLINE
         not { exit } if
         pop showpage 36 756 moveto
      } loop %FF
      not { exit } if
   } loop %over file
   pop showpage
} bind exec

The tab code has been changed to make it more readable and modifiable.
The two 8s are the tab stops, you should be able to change them to any
other number.  The only other change is the indentation at three should
be a tad more readable than the old indentation at two.


zben@ni.umd.edu     -KA3ZDF