	SUBROUTINE PTAB (LINE)
C
C	This subroutine processes out tabs from the input lines and 
C	 converts them to spaces to bring the following character into
C	 the proper column of the input line.
C
	IMPLICIT INTEGER (A - Z)
	LOGICAL*1 LINE, TAB, BLANK
	DIMENSION LINE (80)
	DATA TAB, BLANK /'	', ' '/
C
	COLUMN = 1
   20	IF (COLUMN .GT. 80) RETURN
C	Locate tabs
	IF (LINE(COLUMN) .EQ. TAB) GO TO 10
	COLUMN = COLUMN + 1
	GO TO 20
C	 Find the tabulation column
   10	TABLOC = ((COLUMN - 1) / 8) + 1
C	 Find the number of spaces to insert
	INS = (TABLOC * 8) - COLUMN
C	 Push up the following text
	ILAST = 80
	INDEX = COLUMN + INS
   30	LINE(ILAST) = LINE(ILAST - INS)
	IF (ILAST .EQ. INDEX) GO TO 40
	ILAST = ILAST - 1
	GO TO 30
C	 Insert spaces to replace tab
   40	DO 50 LP = COLUMN, INDEX
	LINE(LP) = BLANK
   50	CONTINUE
	COLUMN = INDEX
	GO TO 20
	END
