C LINECHGE.F - ADD THE SURVEY AREA*20000 TO THE LINE NUMBER TO MAKE
C LINES UNIQUE BETWEEN AREAS SO ALL CAN BE GRIDDED IN ONE LARGE
C CHUNK
      CHARACTER*68 TEXT
      INTEGER*4 LINE,AREA
      OPEN(UNIT=7,FILE='/cdata5/airmag/bmr/offshtasgo/tasline.ldt')
      OPEN(UNIT=4,FILE='tas.ldt',READONLY)
   10 READ(4,100,END=20) LINE,TEXT,AREA
  100 FORMAT(I8,A68,I1)
      LINE=LINE+(AREA*20000)
      WRITE(7,100) LINE,TEXT,AREA
      GOTO 10
C
   20 CONTINUE
      CLOSE(UNIT=7,STATUS='KEEP')
      STOP
      END