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 C Revision History: C 14-FEB-81 Changed tab in data statement to 9 C 27-APR-81 Changed TAB, BLANK variables to ASCII equivs C IMPLICIT INTEGER (A - Z) BYTE LINE DIMENSION LINE (80) C COLUMN = 1 20 IF (COLUMN .GT. 80) RETURN C Locate tabs IF (LINE(COLUMN) .EQ. 9) GO TO 10 ; Skip if tab found 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) = 32 ; Insert a space 50 CONTINUE COLUMN = INDEX GO TO 20 END