PROGRAM BRUKER                                                   
      INTEGER I,J,AANTAL,I0,npoints,sign        
      INTEGER LNFD,NOFSET,NMIN,NPLUS                      
      REAL X,Y,XFACT,YFACT,XMIN,XMAX,XSTP,XA         
      CHARACTER*1  p                                 
      character*20 kl                                                  
      CHARACTER*80 REGEL                                               
      common/asci/nofset,nmin,lnfd,nplus                               
c      nofset=240                                                       
c      nmin=96                                                          
c      lnfd=64                                                          
c      nplus=78                                                         
      nofset=48                                                        
      nmin=45                                                          
      lnfd=32                                                          
      nplus=43                                                         
      open(34,file='jcmptoxy.log')                                                          
        read(*,'(A15)') kl                                               
       write(34,*) '# ',kl                                                    
      DO 5 I=1,10                                                      
        read(*,'(A20)') kl                                              
       write(34,*) '# ',kl                                                   
5     CONTINUE                                                         
        read(*,'(t10,g15.14e4)') xmin                                               
       WRITE(34,*) '# XMIN = ',XMIN                                        
        read(*,'(t9,g15.14e4)') xmax
       write(34,*) '# XMAX = ',XMAX                                        
        read(*,'(t10,g15.14e4)') xstp                                               
       WRITE(34,*) '# XSTP = ',XSTP                                        
        read(*,'(A1)') KL                                               
       write(34,*) '# ',kl                                                    
        read(*,'(A1)') KL                                               
       write(34,*) '# ',kl                                                    
        read(*,'(t11,g15.14e4)') xfact                                               
       WRITE(34,*) '# XFACT = ',XFACT                                      
        read(*,'(t11,g15.14e4)') yfact                                               
       WRITE(34,*) '# YFACT = ',YFACT                                      
        read(*, '(t11,i15)') npoints                                              
       write(34,*) 'npoints = ',npoints                                                    
        read(*, '(A1 )') kl                                              
       write(34,*) kl                                                    
        read(*, '(A1 )') kl                                              
       write(34,*) kl                                                    
      X=XMIN                                                           
      AANTAL = 1                                                       
c     LOOP FOR DATA
661   read(*,'(A80)',END=999) REGEL                                            
        IF (REGEL(3:5).EQ.'END') GOTO 999                                
        IF (REGEL(1:1).EQ.'"') GOTO 999
        if (aantal.eq.npoints) goto 999                                  
C       LOOP FOR EACH REGEL                                              
        Y=0                                                            
        I0=1                                                           
        XA=0                                                           
75      P=REGEL(I0:I0)                                                 
        J=ICHAR(P)                                                     
        IF ((J.EQ.NPLUS).OR.(J.EQ.NMIN)) then
         if (j.eq.nmin) then
          sign=-1
         else
          sign=1
         endif  
         GOTO 76
        endif                        
        XA=XA*10+REAL(J-nofset)                                        
        I0=I0+1                                                        
        GOTO 75                                                        
76      XA=XA*XFACT
        DO 80 I=I0+1,80                                                
         P=REGEL(I:I)                                                  
         J=ICHAR(P)                                                    
         IF (J.EQ.LNFD) THEN                                           
          Y=Y*YFACT*sign
          WRITE(*,*) X,Y                                       
          AANTAL=AANTAL+1                                              
          X=X+XSTP                                                     
          GOTO 661                                                     
         ENDIF                                                         
         IF ((J.EQ.NPLUS).OR.(J.EQ.NMIN)) THEN                         
          if (j.eq.nmin) then
           sign=-1
          else
           sign=1
          endif  
          Y=Y*YFACT*sign                                                    
          AANTAL=AANTAL+1                                              
          WRITE(*,*) X,Y                                       
          X=X+XSTP                                                     
          Y=0                                                          
          GOTO 80                                                      
         ENDIF                                                         
         Y=Y*10+REAL(J-nofset)                                         
80      CONTINUE
999   continue
      close(34)                                             
      END