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