Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-09 - decus/20-34/tabs.try
There are 3 other files named tabs.try 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 /90 SHOULD BE REPLACED BY 2
C     /90 48 / 90 48 /NOTHING 48 /   90 /
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 90
       GO TO 90
        GO TO 90
         GO TO 90
C
C     INITIAL TABS (NEW STATEMENT IF START WITH
C     NON-DIGIT REGARDLESS OF PLACEMENT)
	GO TO 90
		GO TO 90
			GO TO 90
				GO TO 90
					GO TO 90
						GO TO 90
							GO TO 90
								GO TO 90
									GO TO 90
C
C     COMBINATION INITIAL TAB AND BLANKS
 	GO TO 90
 	 	GO TO 90
 	 	 	GO TO 90
 	 	 	 	GO TO 90
	 GO TO 90
	 	 GO TO 90
	 	 	 GO TO 90
	 	 	 	 GO TO 90
C
C     CONTINUATION LINES
      GO
     1TO 90
      GO
     ATO 90
       GO
      1TO 90
       GO
       1TO 90
         GO
        1TO 90
	GO
	1TO 90
      GO
	1TO 90
	GO
     1TO 90
	GO
       1TO 90
	GO
     ATO 90
C
C     ZERO IN CONTINUATION COLUMN
C     INITIAL BLANKS
     0GO TO 90
      0GO TO 90
       0GO TO 90
        0GO TO 90
C     INITIAL TABS
	0GO TO 90
		0GO TO 90
			0GO TO 90
C     INITIAL TABS AND BLANKS
 	0GO TO 90
 	 	0GO TO 90
 	 	 	0GO TO 90
 	 	 	 	0GO TO 90
C
C     NUMBERED STATEMENTS
D 100 CONTINUE
   90	CONTINUE
 8  10CONTINUE
7   3		CONTINUE
D66   CONTINUE
   60 CONTINUE
I  55	CONTINUE
51	        0CONTINUE
48              0CONTINUE
   460CONTINUE
D  450CONTINUE
		    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	9	0	
	RE	AD	(	48,	9	0	)READ(48,48)
	WRITE	(4	8,9	0	)	READ(48,48)
	I	F(A.E	Q.B)	GO	TO	90
		D	O	9	0	I	=	48,48
C
C     NUMBERED STATEMENTS
100	CONTINUE
9 0	CONTINUE
8  1	CONTINUE
7   3	CONTINUE
6  6	CONTINUE
6 0	CONTINUE
55	CONTINUE
5 1	CONTINUE
4  8	CONTINUE
4 6	CONTINUE
45	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 90
		IF(TAB TAB)GO TO 90
	 	IF(TAB BLANK TAB)GO TO 90
D	IF(D TAB)GO TO 90
D		IF(D TAB TAB)GO TO 90
D	 	IF(D TAB BLANK TAB)GO TO 90
      IF(6-BLANKS)GO TO 90
            IF(12-BLANKS)GO TO 90
D     IF(D 5-BLANKS)GO TO 90
D           IF(D 11-BLANKS)GO TO 90
100          IF(100 10-BLANKS)GO TO 90
90   0   CONTINUE
81	0		IF(81 TAB 0 TAB TAB)GO TO 90
 7 3 0     IF(BLANK 7 BLANK 3 BLANK 0 5-BLANKS)GO TO 90
66          IF(66 10-BLANKS)GO TO 90
60          0     IF(60 10-BLANKS 0 5-BLANKS)GO TO 90
55		0IF(55 TAB TAB 0)GO TO 90
51		0	IF(51 TAB TAB 0 TAB)GO TO 90
D48		0     CONTINUE
D46		0  	IF(D 46 TAB TAB 0 2-BLANKS TAB)GO TO 90
45   0   IF(45 3-BLANKS 0 3-BLANKS)GO TO 90
	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
	1	TAB 1 TAB ) GO TO 90
     0     IF(5-BLANKS 0 5-BLANKS
     1     5-BLANKS 1 5-BLANKS
     1          5-BLANKS 1 10-BLANKS)GO TO 90
D100          IF(D 100 10-BLANKS
          1          10-BLANKS 1 10-BLANKS)GO TO 90
90	CONTINUE
81	CONTINUE
73		IF(73 TAB TAB
	1		TAB 1 TAB TAB)GO TO 90
   66 CONTINUE
   60 CONTINUE
   55 CONTINUE
   51 CONTINUE
   48 CONTINUE
   46 CONTINUE
   45 CONTINUE
	END