PROGRAM PSPLOTLETTER
C     CONVERTS KURUCZ PLOT FILES TO POSTSCRIPT PLOT FILES
      COMMON /BUFF/BUFFER(512),NBUFF 
      INTEGER*4 X,Y,DX,Y2,PAGE
      REAL*8 PLOTOUT,USERID(2),FILENAME(2),BUFFER
      READ(1)BUFFER
      PLOTOUT=BUFFER(1)
      IF(PLOTOUT.NE.8HPLOTFILE)STOP 'NOT A VAXPLOT FILE'
      USERID(1)=BUFFER(2)
      USERID(2)=BUFFER(3)
      FILENAME(1)=BUFFER(4)
      FILENAME(2)=BUFFER(5)
      PRINT 44,USERID,FILENAME
   44 FORMAT(1H0,A8,A1,A8,A1)
      NBUFF=5
      OPEN(UNIT=2,STATUS='NEW',CARRIAGECONTROL='LIST')
      WRITE(2,'(A)')'%!PS-Adobe'
      WRITE(2,'(A)')'/M /moveto load def'
      WRITE(2,'(A)')'/L /lineto load def'
      WRITE(2,'(A)')'/S /stroke load def'
      WRITE(2,'(A)')'/F {gsave eofill grestore stroke} def'
      WRITE(2,'(A)')'/C /closepath load def'      
      WRITE(2,'(A)')'/G /setgray load def'
      WRITE(2,'(A)')'/W /setlinewidth load def'
C     FOR 300x300 BPI
      WRITE(2,'(A)')'.24 .24 scale' 
C     LINE WIDTH   MAY NOT BE OPTIMAL VALUE
C     WRITE(2,'(A)')'.5 W'
      DO 500 PAGE=0,1111
      DO 100 IVECT=1,10000000
      CALL READBUF(X,Y,DX,Y2)
C     X = -1 MARKS END OF PAGE
C     Y = -2 MARKS END OF PLOT
      IF(X.EQ.-1)GO TO 400
      IF(X.EQ.-2)GO TO 600
      IF(PAGE.EQ.0)GO TO 100
C      WRITE(2,90)X,Y,X+DX,Y2
C     OFFSET FOR LETTER    MAY NOT BE ACCURATE VALUE
      WRITE(2,90)Y,3700-X,Y2,3700-X-DX
   90 FORMAT(2I6,' M',2I6,' L S')
  100 CONTINUE
  400 IF(PAGE.EQ.0)GO TO 500
      WRITE(2,401)
  401 FORMAT('showpage')
  500 CONTINUE
  600 CALL EXIT
      END
      SUBROUTINE READBUF(I,J,K,L)
      COMMON /BUFF/BUFFER(4,512),NBUFF
      INTEGER*2 BUFFER                     
      NBUFF=NBUFF+1                                                           
      I=BUFFER(1,NBUFF)                                                      
      J=BUFFER(2,NBUFF)                                                      
      K=BUFFER(3,NBUFF)                                                      
      L=BUFFER(4,NBUFF)                                                      
      I30000=K/1000
      K=K-I30000*1000
      I=I+I30000*30000
      IF(NBUFF.LT.512)RETURN                                                   
      READ(1)BUFFER                                                           
      NBUFF=0                                                                  
      RETURN                                                                    
      END