Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-09 - decus/20-34/tabs.get
There are 3 other files named tabs.get in the archive. Click here to see a list.
      PROG	RAM	LFT		TAB
C     FOLLOWING LINES TEST TAB CONVERSION IN LISTER OUTPUT
C2345678*0123456*8+01234*678+012*45678+0*2345678*0
C						*
C	*	*	*	*	*	*
CCC*	*CC*	*CC*	*CC*	*CC*	*CC*	*
CCCCC*	*CCCC*	*CCCC*	*CCCC*	*CCCC*	*CCCC*	*
C2345678*0123456*8+01234*678+012*45678+0*2345678*0
C
C     FOLLOWING LINES TEST NUMBERS IN COMMENT LINES
C R E N B R R / (/TABS AND NUMBERS IN COMMENTS)
C     STATEMENT NUMBER /2 SHOULD BE REPLACED BY 2
C     /2 48 / 2 48 /NOTHING 48 /   2 /
C
C     FOLLOWING LINES TEST TABS AT START OF STATEMENTS
C
C     MOVE TO LEFT IF START BEYOND COLUMN 7
GO TO 48
 GO TO 48
  GO TO 48
   GO TO 48
    GO TO 48
      GO TO 2
      GO TO 2
      GO TO 2
      GO TO 2
C
C     INITIAL TABS (NEW STATEMENT IF START WITH
C     NON-DIGIT REGARDLESS OF PLACEMENT)
      GO TO 2
      GO TO 2
      GO TO 2
      GO TO 2
      GO TO 2
      GO TO 2
      GO TO 2
      GO TO 2
      GO TO 2
C
C     COMBINATION INITIAL TAB AND BLANKS
      GO TO 2
      GO TO 2
      GO TO 2
      GO TO 2
      GO TO 2
      GO TO 2
      GO TO 2
      GO TO 2
C
C     CONTINUATION LINES
      GO
     1TO 2
      GO
     1TO 2
      GO
     1TO 2
      GO
     1TO 2
      GO
     1TO 2
      GO
     1TO 2
      GO
     1TO 2
      GO
     1TO 2
      GO
     1TO 2
      GO
     1TO 2
C
C     ZERO IN CONTINUATION COLUMN
C     INITIAL BLANKS
     0GO TO 2
     0GO TO 2
     0GO TO 2
     0GO TO 2
C     INITIAL TABS
     0GO TO 2
     0GO TO 2
     0GO TO 2
C     INITIAL TABS AND BLANKS
     0GO TO 2
     0GO TO 2
     0GO TO 2
     0GO TO 2
C
C     NUMBERED STATEMENTS
D   1 CONTINUE
    2 CONTINUE
    30CONTINUE
    4 CONTINUE
D   5 CONTINUE
    6 CONTINUE
I   7 CONTINUE
    80CONTINUE
    90CONTINUE
   100CONTINUE
D  110CONTINUE
      E N	D
      SU	BROUTINE T	ABS
C     ROUTINE TO TEST TABS WITHIN STATEMENTS
C     FOLLOWING COMMENTS HAVE ASTERISK WHERE TABS APPEAR
C     IN INPUT, ALSO SLASHES HAVE REPLACED THE DIGIT NINE
C
C*SU*BROUTINE T*ABS
C*GO*TO*/*0*
C*RE*AD*(*48,*/*0*)READ(48,48)
C*WRITE*(4*8,/*0*)*READ(48,48)
C*I*F(A.E*Q.B)*GO*TO*/0
C**D*O*/*0*I*=*48,48
C100*CONTINUE
C/ 0*CONTINUE
C8  1*CONTINUE
C7   3*CONTINUE
C6  6*CONTINUE
C6 0*CONTINUE
C55*CONTINUE
C5 1*CONTINUE
C4  8*CONTINUE
C4 6*CONTINUE
C45*CONTINUE
C*E*N*D**
C
      GO	TO	2	
      RE	AD	(	48,	2	)READ(48,48)
      WRITE	(4	8,2	)	READ(48,48)
      I	F(A.E	Q.B)	GO	TO	2
      D	O	2	I	=	48,48
C
C     NUMBERED STATEMENTS
    1 CONTINUE
    2 CONTINUE
    3 CONTINUE
    4 CONTINUE
    5 CONTINUE
    6 CONTINUE
    7 CONTINUE
    8 CONTINUE
    9 CONTINUE
   10 CONTINUE
   11 CONTINUE
      E	N	D		
CRENBR (TABZROTEST/TEST TABS AND ZEROES AT START OF LINE)
CFOLLOWING LINES HAVE ASTERISKS * WHEN TABS ARE USED
CAND THESE COMMENTS HAVE / IN PLACE OF DIGIT NINE
C*IF(TAB)GO TO /0
C**IF(TAB TAB)GO TO /0
C* *IF(TAB BLANK TAB)GO TO /0
CD*IF(D TAB)GO TO /0
CD**IF(D TAB TAB)GO TO /0
CD* *IF(D TAB BLANK TAB)GO TO /0
C      IF(6-BLANKS)GO TO /0
C            IF(12-BLANKS)GO TO /0
CD     IF(D 5-BLANKS)GO TO /0
CD           IF(D 11-BLANKS)GO TO /0
C100          IF(100 10-BLANKS)GO TO /0
C/0   0   CONTINUE
C81*0**IF(81 TAB 0 TAB TAB)GO TO /0
C 7 3 0     IF(BLANK 7 BLANK 3 BLANK 0 5-BLANKS)GO TO /0
C66          IF(66 10-BLANKS)GO TO /0
C60          0     IF(60 10-BLANKS 0 5-BLANKS)GO TO /0
C55**0IF(55 TAB TAB 0)GO TO /0
C51**0*IF(51 TAB TAB 0 TAB)GO TO /0
CD48**0     CONTINUE
CD46**0  *IF(D 46 TAB TAB 0 2-BLANKS TAB)GO TO /0
C45   0   IF(45 3-BLANKS 0 3-BLANKS)GO TO /0
C*END
      IF(TAB)GO TO 2
      IF(TAB TAB)GO TO 2
      IF(TAB BLANK TAB)GO TO 2
D     IF(D TAB)GO TO 2
D     IF(D TAB TAB)GO TO 2
D     IF(D TAB BLANK TAB)GO TO 2
      IF(6-BLANKS)GO TO 2
      IF(12-BLANKS)GO TO 2
D     IF(D 5-BLANKS)GO TO 2
D     IF(D 11-BLANKS)GO TO 2
    1 IF(100 10-BLANKS)GO TO 2
    20CONTINUE
    30IF(81 TAB 0 TAB TAB)GO TO 2
    40IF(BLANK 7 BLANK 3 BLANK 0 5-BLANKS)GO TO 2
    5 IF(66 10-BLANKS)GO TO 2
    60IF(60 10-BLANKS 0 5-BLANKS)GO TO 2
    70IF(55 TAB TAB 0)GO TO 2
    80IF(51 TAB TAB 0 TAB)GO TO 2
D   90CONTINUE
D  100IF(D 46 TAB TAB 0 2-BLANKS TAB)GO TO 2
   110IF(45 3-BLANKS 0 3-BLANKS)GO TO 2
      END
CRENBR(CONTINUATION LINES/TEST CONTINUE AFTER COMMENT)
CFOLLOWING SPACINGS SHOULD BE OBTAINED IF REMOVE INITIAL C
C********5IF(TAB 5)GO TO 48
C****************5IF(TAB TAB 5)GO TO 48
C*****5IF(5-BLANKS 5)GO TO 48
C*****5*****IF(5-BLANKS 5 5-BLANKS)GO TO 48
C******IF(TAB TAB
C*****1**TAB TAB 1 TAB
C*****2**TAB 1 TAB ) GO TO 2
C*****0IF(5-BLANKS 0 5-BLANKS
C*****1*****5-BLANKS 1 5-BLANKS
C*****2**********5-BLANKS 1 10-BLANKS)GO TO 2
CD***1*IF(D 100 10-BLANKS
CD****1**********10-BLANKS 1 10-BLANKS)GO TO 2
C****2*CONTINUE
C****3*CONTINUE
C****4*IF(73 TAB TAB
C*****1**********TAB 1 TAB TAB)GO TO 2
C****5*CONTINUE
C****6*CONTINUE
C****7*CONTINUE
C****8*CONTINUE
C****/*CONTINUE
C***10*CONTINUE
C***11*CONTINUE
C******END
CCONTINUATION LINES AFTER COMMENTS SHOULD BE LEFT UNCHANGED
	5IF(TAB 5)GO TO 48
		5IF(TAB TAB 5)GO TO 48
     5IF(5-BLANKS 5)GO TO 48
     5     IF(5-BLANKS 5 5-BLANKS)GO TO 48
CTEST WRAPAROUND PREVENTION WHEN REMOVE INITIAL BLANKS
CFROM FIRST LINE OF STATEMENT
      IF(TAB TAB
     1	TAB TAB 1 TAB
     2	TAB 1 TAB ) GO TO 2
     0IF(5-BLANKS 0 5-BLANKS
     1     5-BLANKS 1 5-BLANKS
     2          5-BLANKS 1 10-BLANKS)GO TO 2
D   1 IF(D 100 10-BLANKS
D    1          10-BLANKS 1 10-BLANKS)GO TO 2
    2 CONTINUE
    3 CONTINUE
    4 IF(73 TAB TAB
     1		TAB 1 TAB TAB)GO TO 2
    5 CONTINUE
    6 CONTINUE
    7 CONTINUE
    8 CONTINUE
    9 CONTINUE
   10 CONTINUE
   11 CONTINUE
      END