------- psdit.c -------
*** /tmp/d05706	Fri Aug 21 14:49:09 1987
--- psdit.c	Fri Aug 21 14:48:00 1987
***************
*** 861,870 ****
      output = 1;
      FlushShow(0);
      if (!firstpage) {
! 	printf("\n%d p",n);
      }
      firstpage = FALSE;
!     printf ("\n%%%%Page: %d %d\n", n, ++pageno, n);
      for (i = 0; i <= nfonts; i++) {
  	if (fontdelta[i] != 0) {
  	    sayload (i, fontname[i].name, (char *) 0);
--- 861,870 ----
      output = 1;
      FlushShow(0);
      if (!firstpage) {
! 	printf("\nep");
      }
      firstpage = FALSE;
!     printf ("\n%%%%Page: %d %d\nbp\n", n, ++pageno, n);
      for (i = 0; i <= nfonts; i++) {
  	if (fontdelta[i] != 0) {
  	    sayload (i, fontname[i].name, (char *) 0);
***************
*** 955,961 ****
  private t_trailer()
  {
      FlushShow(0);
!     printf("\n%d p",pageno);
      printf("\n%%%%Trailer\n");
      printf("xt\n");
  }
--- 955,962 ----
  private t_trailer()
  {
      FlushShow(0);
!     if( !firstpage )
! 	printf("\nep\n");
      printf("\n%%%%Trailer\n");
      printf("xt\n");
  }

------- psdit.pro -------
*** /tmp/d05598	Fri Aug 21 14:43:22 1987
--- psdit.pro	Thu Aug 20 18:17:56 1987
***************
*** 5,16 ****

  /$DITroff 140 dict def $DITroff begin
  /fontnum 1 def /fontsize 10 def /fontheight 10 def /fontslant 0 def
! /xi {0 72 11 mul translate 72 resolution div dup neg scale 0 0 moveto
!   /fontnum 1 def /fontsize 10 def /fontheight 10 def /fontslant 0 def F
!   /pagesave save def}def
- /PB{save /psv exch def currentpoint translate 
-   resolution 72 div dup neg scale 0 0 moveto}def
- /PE{psv restore}def
  /arctoobig 90 def /arctoosmall .05 def
  /m1 matrix def /m2 matrix def /m3 matrix def /oldmat matrix def
  /tan{dup sin exch cos div}def
--- 5,12 ----

  /$DITroff 140 dict def $DITroff begin
  /fontnum 1 def /fontsize 10 def /fontheight 10 def /fontslant 0 def
! /xi {0 72 11 mul translate 72 resolution div dup neg scale 
!   /fontnum 1 def /fontsize 10 def /fontheight 10 def /fontslant 0 def F }def
  /arctoobig 90 def /arctoosmall .05 def
  /m1 matrix def /m2 matrix def /m3 matrix def /oldmat matrix def
  /tan{dup sin exch cos div}def
***************
*** 45,51 ****
  /MXY{moveto}def
  /cb{pop}def	% action on unknown char -- nothing for now
  /n{}def/w{}def
! /p{pop showpage pagesave restore /pagesave save def}def
  /abspoint{currentpoint exch pop add exch currentpoint pop add exch}def
  /distance{dup mul exch dup mul add sqrt}def
  /dstroke{currentpoint stroke moveto}def
--- 41,49 ----
  /MXY{moveto}def
  /cb{pop}def	% action on unknown char -- nothing for now
  /n{}def/w{}def
! /bp{/psv save def 0 0 moveto} def
! /ep{showpage psv restore}def
! 
  /abspoint{currentpoint exch pop add exch currentpoint pop add exch}def
  /distance{dup mul exch dup mul add sqrt}def
  /dstroke{currentpoint stroke moveto}def