Google
 

Trailing-Edge - PDP-10 Archives - decuslib20-09 - decus/20-34/notabs.lpt
There are 3 other files named notabs.lpt in the archive. Click here to see a list.
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page    1
                                                                      

           C     THIS SET OF ROUTINES IS TEST  DATA  FOR  THE  FORTRAN
           C     RENUMBERING  PROGRAM.   THE NUMBER 48 IS USED WHERE A
           C     NUMBER IS NOT TO BE REPLACED AND THE NUMBER NINETY IS
           C     USED  WHERE SYNTAX SHOWS IT TO BE A STATEMENT NUMBER.
           C     IF RENUMBERED WITH INITIAL  STATEMENT  NUMBER  1  AND
           C     INCREMENT  ALSO  1,  THEN THE STATEMENT NUMBER NINETY
           C     WILL BE CONVERTED TO STATEMENT NUMBER 2 AND THE DIGIT
           C     NINE SHOULD APPEAR ONLY IN THE STATEMENT NUMBER FIELD
           C     IN COLUMNS 1 THROUGHT 5.  IF  ANY  OF  THE  48'S  ARE
           C     ERRONEOUSLY  ASSUMED  TO  BE  STATEMENT NUMBERS, THEN
           C     THESE WILL BE CONVERTED TO NINES.  SOME OF  THE  TEST
           C     CASES  ARE  MEANT  TO  TEST SPACINGS AND WILL REQUIRE
           C     EXAMINATION OF THE LISTING OR RENUMBERED OUTPUT.
       1         SUBROUTINE G O T O
           C
           C     STANDARD GO TO STATEMENTS
       2         GO TO 90
       3         GO TO IVALUE
       4         GO TO IVALUE,(90,90,90,90,90)
       5         GO TO (90,90,90,90,90),IVALUE
       6         GO TO IVALUE(90,90,90,90,90)
       7         GO TO (90,90,90,90,90)IVALUE
       8         GOTO90
       9         GOTOIVALUE
       10        GOTOIVALUE,(90,90,90,90,90)
       11        GOTO(90,90,90,90,90),IVALUE
       12        GOTOIVALUE(90,90,90,90,90)
       13        GOTO(90,90,90,90,90)IVALUE
           C
           C     GO TO STATMENTS WITH INDEX AN ARRAY ENTRY
       14        GO TO (90,90,90,90,90),IVALUE(48,48)
       15        GO TO (90,90,90,90,90)IVALUE(48,48)
       16        GOTO(90,90,90,90,90),IVALUE(48,48)
       17        GOTO(90,90,90,90,90)IVALUE(48,48)
           C
           C     GO TO STATEMENTS WITH INSERTED BLANKS
       18        G O T O IVALUE , ( 9 0 , 9 0 , 9 0 , 9 0 , 9 0 )
       19        G O T O ( 9 0 , 9 0 , 9 0 , 9 0 , 9 0 , 9 0 ) IVALUE
           C
           C     SIMILAR ARITHMETIC EXPRESSION
       20        GOTO48=48
       21        GOTO48=IVALUE
       22        GOTO48=IVALUE(48,48)
           C
           C     NUMBERED STATEMENTS
       23    100 CONTINUE
       24     90 CONTINUE
       25     81 CONTINUE
       26     73 CONTINUE
       27     66 CONTINUE
       28     60 CONTINUE
       29     55 CONTINUE
       30     51 CONTINUE
       31     48 CONTINUE
       32     46 CONTINUE
       33     45 CONTINUE
       34        END
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page    2
                                                       GOTO SUBROUTINE

       Statement
       Number        Referenced by

           45      -33
           46      -32
           48      -31
           51      -30
           55      -29
           60      -28
           66      -27
           73      -26
           81      -25
           90        2     4     5     6     7     8    10    11    12
                    13    14    15    16    17    18    19   -24
          100      -23
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page    3
                                                       GOTO SUBROUTINE

       Word          Contained in

       CONTINUE     23    24    25    26    27    28    29    30    31
                    32    33
       END          34
       G             1
       GOTO48      -20   -21   -22
       IVALUE        3     4     5     6     7     9    10    11    12
                    13    14    15    16    17    18    19    21    22
       O             1
       SUBROUTINE    1
       T             1
       48           14    15    16    17    20    22
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page    4
                                                         DO SUBROUTINE

       1         SUBROUTINE DO
           C
           C     DO LOOP WITH AND WITHOUT EXPRESSIONS AS LIMITS
       2         DO 90 IVALUE=48,48
       3         DO 90 IVALUE=48,48,48
       4         DO 90 IVALUE=IVALUE(48,48),IVALUE(48,48)
       5         DO 90 IVALUE=IVALUE(48,48),IVALUE(48,48),IVALUE(48,48)
       6         DO 90 IVALUE=IVALUE(48)+48,IVALUE(48)+48
       7         DO 90 IVALUE=IVALUE(48)+48,IVALUE(48)+48,IVALUE(48)+48
       8         DO 90,IVALUE=48,48
       9         DO 90,IVALUE=48,48,48
       10        DO 90,IVALUE=IVALUE(48,48),IVALUE(48,48)
       11        DO 90,IVALUE=IVALUE(48,48),IVALUE(48,48),IVALUE(48,48)
       12        DO 90,IVALUE=IVALUE(48)+48,IVALUE(48)+48
       13        DO 90,IVALUE=IVALUE(48)+48,IVALUE(48)+48,IVALUE(48)+48
           C
           C     DO LOOP WITH INDEX AN ARRAY ELEMENT
       14        DO 90 IVALUE(48,48)=48,48
       15        DO 90 IVALUE(48,48)=48,48,48
       16        DO 90 IVALUE(48,48)=IVALUE(48,48),IVALUE(48,48)
       17        DO 90 IVALUE(48,48)=IVALUE(48,48),IVALUE(48,48),IVALUE(48,48)
       18        DO 90 IVALUE(48,48)=IVALUE(48)+48,IVALUE(48)+48
       19        DO 90 IVALUE(48,48)=IVALUE(48)+48,IVALUE(48)+48,IVALUE(48)+48
       20        DO 90,IVALUE(48,48)=48,48
       21        DO 90,IVALUE(48,48)=48,48,48
       22        DO 90,IVALUE(48,48)=IVALUE(48,48),IVALUE(48,48)
       23        DO 90,IVALUE(48,48)=IVALUE(48,48),IVALUE(48,48),IVALUE(48,48)
       24        DO 90,IVALUE(48,48)=IVALUE(48)+48,IVALUE(48)+48
       25        DO 90,IVALUE(48,48)=IVALUE(48)+48,IVALUE(48)+48,IVALUE(48)+48
           C
           C     SAME DO LOOPS WITHOUT INTERNAL BLANKS
       26        DO90IVALUE=48,48
       27        DO90IVALUE=48,48,48
       28        DO90IVALUE=IVALUE(48,48),IVALUE(48,48)
       29        DO90IVALUE=IVALUE(48,48),IVALUE(48,48),IVALUE(48,48)
       30        DO90IVALUE=IVALUE(48)+48,IVALUE(48)+48
       31        DO90IVALUE=IVALUE(48)+48,IVALUE(48)+48,IVALUE(48)+48
       32        DO90IVALUE(48,48)=48,48
       33        DO90IVALUE(48,48)=48,48,48
       34        DO90IVALUE(48,48)=IVALUE(48,48),IVALUE(48,48)
       35        DO90IVALUE(48,48)=IVALUE(48,48),IVALUE(48,48),IVALUE(48,48)
       36        DO90IVALUE(48,48)=IVALUE(48)+48,IVALUE(48)+48
       37        DO90IVALUE(48,48)=IVALUE(48)+48,IVALUE(48)+48,IVALUE(48)+48
           C
           C     SIMILAR ARITHMETIC EXPRESSIONS
       38        DO48IV=48
       39        DO48IV=IVALUE(48,48)
       40        DO48IV=IVALUE(48,48)+48
       41        DO48IV(48,48)=48
       42        DO48IV(48,48)=IVALUE(48,48)
       43        DO48IV(48,48)=IVALUE(48,48)+48
           C
           C     NUMBERED STATEMENTS
       44    100 CONTINUE
       45     90 CONTINUE
       46     81 CONTINUE
       47     73 CONTINUE
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page    5
                                                         DO SUBROUTINE

       48     66 CONTINUE
       49     60 CONTINUE
       50     55 CONTINUE
       51     51 CONTINUE
       52     48 CONTINUE
       53     46 CONTINUE
       54     45 CONTINUE
       55        END
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page    6
                                                         DO SUBROUTINE

       Statement
       Number        Referenced by

           45      -54
           46      -53
           48      -52
           51      -51
           55      -50
           60      -49
           66      -48
           73      -47
           81      -46
           90        2     3     4     5     6     7     8     9    10
                    11    12    13    14    15    16    17    18    19
                    20    21    22    23    24    25    26    27    28
                    29    30    31    32    33    34    35    36    37
                   -45
          100      -44
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page    7
                                                         DO SUBROUTINE

       Word          Contained in

       CONTINUE     44    45    46    47    48    49    50    51    52
                    53    54
       DO            1     2     3     4     5     6     7     8     9
                    10    11    12    13    14    15    16    17    18
                    19    20    21    22    23    24    25    26    27
                    28    29    30    31    32    33    34    35    36
                    37
       DO48IV      -38   -39   -40   -41   -42   -43
       END          55
       IVALUE       -2    -3    -4    -5    -6    -7    -8    -9   -10
                   -11   -12   -13   -14   -15   -16   -17   -18   -19
                   -20   -21   -22   -23   -24   -25   -26   -27   -28
                   -29   -30   -31   -32   -33   -34   -35   -36   -37
                    39    40    42    43
       SUBROUTINE    1
       48            2     3     4     5     6     7     8     9    10
                    11    12    13    14    15    16    17    18    19
                    20    21    22    23    24    25    26    27    28
                    29    30    31    32    33    34    35    36    37
                    38    39    40    41    42    43
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page    8
                                                         READ FUNCTION

       1         FUNCTION READ (IVALUE)
           C
           C     READ STATEMENTS WITHOUT VARIABLE LISTS
       2         READ 90
       3         READ(48)
       4         READ(48,90)
       5         READ(IVALUE,90)
       6         READ(48,IVALUE)
       7         READ(IVALUE,IVALUE)
       8         READ(48,90,END=90)
       9         READ(IVALUE,90,END=90)
       10        READ(48,IVALUE,END=90)
       11        READ(IVALUE,IVALUE,END=90)
       12        READ(48,90,ERR=90)
       13        READ(IVALUE,90,ERR=90)
       14        READ(48,IVALUE,ERR=90)
       15        READ(IVALUE,IVALUE,ERR=90)
       16        READ(48,90,END=90,ERR=90)
       17        READ(IVALUE,90,END=90,ERR=90)
       18        READ(48,IVALUE,END=90,ERR=90)
       19        READ(IVALUE,IVALUE,END=90,ERR=90)
       20        READ INPUT TAPE 48,90
       21        READ INPUT TAPE IVALUE,90
       22        READ INPUT TAPE 48,IVALUE
       23        READ INPUT TAPE IVALUE,IVALUE
           C
           C     READ STATEMENTS WITH VARIABLE LISTS
       24        READ 90(IVALUE(IVALUE),IVALUE=48,48)
       25        READ(48)(IVALUE(IVALUE),IVALUE=48,48)
       26        READ(48,90)(IVALUE(IVALUE),IVALUE=48,48)
       27        READ(IVALUE,90)(IVALUE(IVALUE),IVALUE=48,48)
       28        READ(48,IVALUE)(IVALUE(IVALUE),IVALUE=48,48)
       29        READ(IVALUE,IVALUE)(IVALUE(IVALUE),IVALUE=48,48)
       30        READ(48,90,END=90)(IVALUE(IVALUE),IVALUE=48,48)
       31        READ(IVALUE,90,END=90)(IVALUE(IVALUE),IVALUE=48,48)
       32        READ(48,IVALUE,END=90)(IVALUE(IVALUE),IVALUE=48,48)
       33        READ(IVALUE,IVALUE,END=90)(IVALUE(IVALUE),IVALUE=48,48)
       34        READ(48,90,ERR=90)(IVALUE(IVALUE),IVALUE=48,48)
       35        READ(IVALUE,90,ERR=90)(IVALUE(IVALUE),IVALUE=48,48)
       36        READ(48,IVALUE,ERR=90)(IVALUE(IVALUE),IVALUE=48,48)
       37        READ(IVALUE,IVALUE,ERR=90)(IVALUE(IVALUE),IVALUE=48,48)
       38        READ(48,90,END=90,ERR=90)(IVALUE(IVALUE),IVALUE=48,48)
       39        READ(IVALUE,90,END=90,ERR=90)(IVALUE(IVALUE),IVALUE=48,48)
       40        READ(48,IVALUE,END=90,ERR=90)(IVALUE(IVALUE),IVALUE=48,48)
       41        READ(IVALUE,IVALUE,END=90,ERR=90)(IVALUE(IVALUE),IVALUE=48,48)
       42        READ INPUT TAPE 48,90,(IVALUE(IVALUE),IVALUE=48,48)
       43        READ INPUT TAPE IVALUE,90,(IVALUE(IVALUE),IVALUE=48,48)
       44        READ INPUT TAPE 48,IVALUE,(IVALUE(IVALUE),IVALUE=48,48)
       45        READ INPUT TAPE IVALUE,IVALUE,(IVALUE(IVALUE),IVALUE=48,48)
           C
           C     READ STATEMENTS WITH TAPE OR FORMAT VARIABLES
           C     SPECIFIED AS AN ARRAY ELEMENT
       46        READ(IVALUE(48,48),90)(IVALUE(IVALUE),IVALUE=48,48)
       47        READ(48,IVALUE(48,48))(IVALUE(IVALUE),IVALUE=48,48)
       48        READ(IVALUE(48,48),IVALUE(48,48))(IVALUE(IVALUE),IVALUE=48,48)
       49        READ(IVALUE(48,48),90,END=90,ERR=90)IVALUE(48,48)
       50        READ(48,IVALUE(48,48),END=90,ERR=90)IVALUE(48,48)
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page    9
                                                         READ FUNCTION

       51        READ(IVALUE(48,48),IVALUE(48,48),END=90,ERR=90)IVALUE(48,48)
           C
           C     READ VARIABLE OR ARRAY IN ARITHMETIC EXPRESSION
       52        READ 48=IVALUE(IVALUE)
       53        READ(48)=IVALUE(IVALUE)
       54        READ(48,48)=IVALUE(IVALUE)
       55        READ(IVALUE,48)=IVALUE(IVALUE)
       56        READ(48,IVALUE)=IVALUE(IVALUE)
       57        READ(IVALUE,IVALUE)=IVALUE(IVALUE)
           C
           C     NUMBERED STATEMENTS
       58    100 CONTINUE
       59     90 CONTINUE
       60     81 CONTINUE
       61     73 CONTINUE
       62     66 CONTINUE
       63     60 CONTINUE
       64     55 CONTINUE
       65     51 CONTINUE
       66     48 CONTINUE
       67     46 CONTINUE
       68     45 CONTINUE
       69        END
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page   10
                                                         READ FUNCTION

       Statement
       Number        Referenced by

           45      -68
           46      -67
           48      -66
           51      -65
           55      -64
           60      -63
           66      -62
           73      -61
           81      -60
           90        2     4     5     8     9    10    11    12    13
                    14    15    16    17    18    19    20    21    24
                    26    27    30    31    32    33    34    35    36
                    37    38    39    40    41    42    43    46    49
                    50    51   -59
          100      -58
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page   11
                                                         READ FUNCTION

       Word          Contained in

       CONTINUE     58    59    60    61    62    63    64    65    66
                    67    68
       END          -8    -9   -10   -11   -16   -17   -18   -19   -30
                   -31   -32   -33   -38   -39   -40   -41   -49   -50
                   -51    69
       ERR         -12   -13   -14   -15   -16   -17   -18   -19   -34
                   -35   -36   -37   -38   -39   -40   -41   -49   -50
                   -51
       FUNCTION      1
       INPUT        22    23    44    45
       IVALUE        1     5     6     7     9    10    11    13    14
                    15    17    18    19    22    23   -24   -25   -26
                   -27   -28   -29   -30   -31   -32   -33   -34   -35
                   -36   -37   -38   -39   -40   -41   -42   -43   -44
                   -45   -46   -47   -48    49    50    51    52    53
                    54    55    56    57
       READ          1     2     3     4     5     6     7     8     9
                    10    11    12    13    14    15    16    17    18
                    19    22    23    24    25    26    27    28    29
                    30    31    32    33    34    35    36    37    38
                    39    40    41    44    45    46    47    48    49
                    50    51    52   -53   -54   -55   -56   -57
       READINPUTT   20    21    42    43
       TAPE         22    23    44    45
       48            3     4     6     8    10    12    14    16    18
                    22    24    25    26    27    28    29    30    31
                    32    33    34    35    36    37    38    39    40
                    41    42    43    44    45    46    47    48    49
                    50    51   -52    53    54    55    56
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page   12
                                                        WRITE FUNCTION

       1         DOUBLE PRECISION FUNCTION WRITE
           C
           C     WRITE STATEMENTS WITHOUT VARIABLE LISTS
       2         WRITE 90
       3         WRITE(48)
       4         WRITE(48,90)
       5         WRITE(IVALUE,90)
       6         WRITE(48,IVALUE)
       7         WRITE(IVALUE,IVALUE)
       8         WRITE OUTPUT TAPE 48,90
       9         WRITE OUTPUT TAPE IVALUE,90
       10        WRITE OUTPUT TAPE 48,IVALUE
       11        WRITE OUTPUT TAPE IVALUE,IVALUE
           C
           C     WRITE STATEMENTS WITH VARIABLE LISTS
       12        WRITE 90(IVALUE(IVALUE),IVALUE=48,48)
       13        WRITE(48)(IVALUE(IVALUE),IVALUE=48,48)
       14        WRITE(48,90)(IVALUE(IVALUE),IVALUE=48,48)
       15        WRITE(IVALUE,90)(IVALUE(IVALUE),IVALUE=48,48)
       16        WRITE(48,IVALUE)(IVALUE(IVALUE),IVALUE=48,48)
       17        WRITE(IVALUE,IVALUE)(IVALUE(IVALUE),IVALUE=48,48)
       18        WRITE OUTPUT TAPE 48,90,(IVALUE(IVALUE),IVALUE=48,48)
       19        WRITE OUTPUT TAPE IVALUE,90,(IVALUE(IVALUE),IVALUE=48,48)
       20        WRITE OUTPUT TAPE 48,IVALUE,(IVALUE(IVALUE),IVALUE=48,48)
       21        WRITE OUTPUT TAPE IVALUE,IVALUE,(IVALUE(IVALUE),IVALUE=48,48)
           C
           C     WRITE STATEMENTS WITH TAPE OR FORMAT VARIABLES
           C     SPECIFIED AS AN ARRAY ELEMENT
       22        WRITE(IVALUE(48,48),90)(IVALUE(IVALUE),IVALUE=48,48)
       23        WRITE(48,IVALUE(48,48))(IVALUE(IVALUE),IVALUE=48,48)
       24        WRITE(IVALUE(48,48),IVALUE(48,48))(IVALUE(IVALUE),IVALUE=48,48)
           C
           C     WRITE VARIABLE OR ARRAY IN ARITHMETIC EXPRESSION
       25        WRITE 48=IVALUE(IVALUE)
       26        WRITE(48)=IVALUE(IVALUE)
       27        WRITE(48,48)=IVALUE(IVALUE)
       28        WRITE(IVALUE,48)=IVALUE(IVALUE)
       29        WRITE(48,IVALUE)=IVALUE(IVALUE)
       30        WRITE(IVALUE,IVALUE)=IVALUE(IVALUE)
           C
           C     NUMBERED STATEMENTS
       31    100 CONTINUE
       32     90 CONTINUE
       33     81 CONTINUE
       34     73 CONTINUE
       35     66 CONTINUE
       36     60 CONTINUE
       37     55 CONTINUE
       38     51 CONTINUE
       39     48 CONTINUE
       40     46 CONTINUE
       41     45 CONTINUE
       42        END
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page   13
                                                        WRITE FUNCTION

       Statement
       Number        Referenced by

           45      -41
           46      -40
           48      -39
           51      -38
           55      -37
           60      -36
           66      -35
           73      -34
           81      -33
           90        2     4     5     8     9    12    14    15    18
                    19    22   -32
          100      -31
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page   14
                                                        WRITE FUNCTION

       Word          Contained in

       CONTINUE     31    32    33    34    35    36    37    38    39
                    40    41
       DOUBLE        1
       END          42
       FUNCTION      1
       IVALUE        5     6     7    10    11   -12   -13   -14   -15
                   -16   -17   -18   -19   -20   -21   -22   -23   -24
                    25    26    27    28    29    30
       OUTPUT       10    11    20    21
       PRECISION     1
       TAPE         10    11    20    21
       WRITE         1     2     3     4     5     6     7    10    11
                    12    13    14    15    16    17    20    21    22
                    23    24    25   -26   -27   -28   -29   -30
       WRITEOUTPU    8     9    18    19
       48            3     4     6    10    12    13    14    15    16
                    17    18    19    20    21    22    23    24   -25
                    26    27    28    29
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page   15
                                                        BLANK FUNCTION

       1         INTEGER FUNCTION BLANK
           C
           C     TEST ABILITY OF DICTIONARY PROGRAM TO HANDLE
           C     WORDS CONTAINING BLANKS (WHICH SHOULD BE
           C     IGNORED IF A STATEMENT NUMBER IS ENCOUNTERED
           C     FURTHER ON IN THE STATEMENT
       2         READ INPUTTAPE48,90
       3         READ INPUTTAPE48,90
       4         READ INPUTTAPE48,90
       5         R EAD INPUTTAPE48,90
       6         R  EAD INPUTTAPE48,90
       7         R   EAD INPUTTAPE48,90
       8         RE AD INPUTTAPE48,90
       9         RE  AD INPUTTAPE48,90
       10        RE   AD INPUTTAPE48,90
       11        REA D INPUTTAPE48,90
       12        REA  D INPUTTAPE48,90
       13        REA   D INPUTTAPE48,90
       14        READ  INPUTTAPE48,90
       15        READ   INPUTTAPE48,90
       16        READ    INPUTTAPE48,90
       17        READ I NPUTTAPE48,90
       18        READ I  NPUTTAPE48,90
       19        READ I   NPUTTAPE48,90
       20        READ IN PUTTAPE48,90
       21        READ IN  PUTTAPE48,90
       22        READ IN   PUTTAPE48,90
       23        READ INP UTTAPE48,90
       24        READ INP  UTTAPE48,90
       25        READ INP   UTTAPE48,90
       26        READ INPU TTAPE48,90
       27        READ INPU  TTAPE48,90
       28        READ INPU   TTAPE48,90
       29        READ INPUT TAPE48,90
       30        READ INPUT  TAPE48,90
       31        READ INPUT   TAPE48,90
       32        READ INPUTT APE48,90
       33        READ INPUTT  APE48,90
       34        READ INPUTT   APE48,90
       35        READ INPUTTA PE48,90
       36        READ INPUTTA  PE48,90
       37        READ INPUTTA   PE48,90
       38        READ INPUTTAP E48,90
       39        READ INPUTTAP  E48,90
       40        READ INPUTTAP   E48,90
       41        READ INPUTTAPE 48,90
       42        READ INPUTTAPE  48,90
       43        READ INPUTTAPE   48,90
       44        READ INPUTTAPE4 8,90
       45        READ INPUTTAPE4  8,90
       46        READ INPUTTAPE4   8,90
       47        READ INPUTTAPE48 ,90
       48        READ INPUTTAPE48  ,90
       49        READ INPUTTAPE48   ,90
       50        READ INPUTTAPE48, 90
       51        READ INPUTTAPE48,  90
       52        READ INPUTTAPE48,   90
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page   16
                                                        BLANK FUNCTION

       53        READ INPUTTAPE48,9 0
       54        READ INPUTTAPE48,9  0
       55        READ INPUTTAPE48,9   0
           C
           C     TEST ABILITY TO HAVE BLANKS WITHIN STATEMENT NUMBERS
       56        GO TO  (  9  0  , 9  0  ,  9  0  ),IVALUE
       57        IF(IVALUE)  9  0  ,  9  0  ,  9  0
           C
           C     NUMBERED STATEMENTS STATEMENTS
       58  1 0 0 CONTINUE
       59  9   0 CONTINUE
       60   8 1  CONTINUE
       61   7 3  CONTINUE
       62   6 6  CONTINUE
       63   6 0  CONTINUE
       64   5 5  CONTINUE
       65   5 1  CONTINUE
       66   4 8  CONTINUE
       67   4 6  CONTINUE
       68   4 5  CONTINUE
       69        END
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page   17
                                                        BLANK FUNCTION

       Statement
       Number        Referenced by

           45      -68
           46      -67
           48      -66
           51      -65
           55      -64
           60      -63
           66      -62
           73      -61
           81      -60
           90        2     3     4     5     6     7     8     9    10
                    11    12    13    14    15    16    17    18    19
                    20    21    22    23    24    25    26    27    28
                    29    30    31    32    33    34    35    36    37
                    38    39    40    41    42    43    44    45    46
                    47    48    49    50    51    52    53    54    55
                    56    57   -59
          100      -58
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page   18
                                                        BLANK FUNCTION

       Word          Contained in

       BLANK         1
       CONTINUE     58    59    60    61    62    63    64    65    66
                    67    68
       END          69
       FUNCTION      1
       INTEGER       1
       IVALUE       56    57
       READINPUTT    2     3     4     5     6     7     8     9    10
                    11    12    13    14    15    16    17    18    19
                    20    21    22    23    24    25    26    27    28
                    29    30    31    32    33    34    35    36    37
                    38    39    40    41    42    43    44    45    46
                    47    48    49    50    51    52    53    54    55
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page   19
                                                            BLOCK DATA

       1         BLOCK DATA
           C
           C     STATEMENTS CONTAINING ALPHAMERIC DATA
       2         IVALUE='''BCDE'+'ABCD'''
       3         IVALUE='A''CDE'+'ABC''E'
       4         IVALUE='AB''DE'+'AB''DE'
       5         IVALUE='ABC''E'+'A''CDE'
       6         IVALUE='ABCD'''+'''BCDE'
       7         IVALUE=5H'BCDE+5HABCD'
       8         IVALUE=5HA'CDE+5HABC'E
       9         IVALUE=5HAB'DE+5HAB'DE
       10        IVALUE=5HABC'E+5HA'CDE
       11        IVALUE=5HABCD'+5H'BCDE
       12        IVALUE=15HABCDEFGHIJKLMNO+'ABCD'''
       13        IVALUE=15HABCDEFGHIJKLMNO+'ABC''E'
       14        IVALUE=15HABCDEFGHIJKLMNO+'AB''DE'
       15        IVALUE=15HABCDEFGHIJKLMNO+'A''CDE'
       16        IVALUE=15HABCDEFGHIJKLMNO+'''BCDE'
       17        IVALUE='''BCDE'+15HABCDEFGHIJKLMNO
       18        IVALUE='A''CDE'+15HABCDEFGHIJKLMNO
       19        IVALUE='AB''DE'+15HABCDEFGHIJKLMNO
       20        IVALUE='ABC''E'+15HABCDEFGHIJKLMNO
       21        IVALUE='ABCD'''+15HABCDEFGHIJKLMNO
       22        END
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page   20
                                                            BLOCK DATA

       Word          Contained in

       BLOCK         1
       DATA          1
       END          22
       IVALUE       -2    -3    -4    -5    -6    -7    -8    -9   -10
                   -11   -12   -13   -14   -15   -16   -17   -18   -19
                   -20   -21
       'ABCD'''      2     6    12    21
       'ABC''E'      3     5    13    20
       'AB''DE'      4    14    19
       'A''CDE'      3     5    15    18
       '''BCDE'      2     6    16    17
       15HABCDEFG   12    13    14    15    16    17    18    19    20
                    21
       5HABCD'       7    11
       5HABC'E       8    10
       5HAB'DE       9
       5HA'CDE       8    10
       5H'BCDE       7    11
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page   21
                                                           IF FUNCTION

       1         LOGICAL FUNCTION IF
           C
           C     IF STATEMENTS IN STANDARD FORMS
       2         IF(48-IVALUE(48,48))90,90,90
       3         IF(48.EQ.IVALUE(48,48))GO TO 90
       4         IF(48.EQ.IVALUE(48,48))GO TO 48 = 48
       5         IF(48.EQ.IVALUE(48,48))READ(48,90,END=90,ERR=90)IVALUE(48,48)
       6         IF(48.EQ.IVALUE(48,48))IVALUE(48,48)=48
       7         IF(48.EQ.IVALUE(48,48))IF(48.EQ.IVALUE(48,48))GO TO 90
       8         IF(48.EQ.IVALUE(48,48))IF(48-IVALUE(48,48))90,90,90
           C
           C     ARITHMETIC EXPRESSIONS DEFINING IF ARRAY ELEMENTS
       9         IF(48,48)=48
       10        IF(48,48)=GO TO 48
       11        IF(48.EQ.IVALUE(48,48))IF(48,48)=48
           C
           C     NUMBERED STATEMENTS
       12    100 CONTINUE
       13     90 CONTINUE
       14     81 CONTINUE
       15     73 CONTINUE
       16     66 CONTINUE
       17     60 CONTINUE
       18     55 CONTINUE
       19     51 CONTINUE
       20     48 CONTINUE
       21     46 CONTINUE
       22     45 CONTINUE
       23        END
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page   22
                                                           IF FUNCTION

       Statement
       Number        Referenced by

           45      -22
           46      -21
           48      -20
           51      -19
           55      -18
           60      -17
           66      -16
           73      -15
           81      -14
           90        2     3     5     7     8   -13
          100      -12
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page   23
                                                           IF FUNCTION

       Word          Contained in

       CONTINUE     12    13    14    15    16    17    18    19    20
                    21    22
       END          -5    23
       ERR          -5
       FUNCTION      1
       GO            4    10
       IF            1    -9   -10   -11
       IVALUE        2     3     4     5    -6     7     8    11
       LOGICAL       1
       READ          5
       TO            4    10
       48            2     3    -4     5     6     7     8     9    10
                    11
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page   24
                                                         TABS FUNCTION

       1         COMPLEX FUNCTION   T  A  B  S(IVALUE)
           C
           C     TEST CONTINUATION LINE SENSING OF TABS WHICH HAVE
           C     BEEN CONVERTED TO THE APPROPRIATE NUMBER OF BLANKS
       2         D
       2        1O
       2        29
       2        30
       2        4I
       2        5=
       2        648
       2        7,
       2        848
       3         G
       3        1O
       3        2 
       3        3T
       3        4O
       3        5 
       3        69
       3        70
           C
           C     NUMBERED STATEMENTS
       4     100 CONTINUE
       5      90 CONTINUE
       6      81 CONTINUE
       7      73 CONTINUE
       8      66 CONTINUE
       9      60 CONTINUE
       10     55 CONTINUE
       11     51 CONTINUE
       12     48 CONTINUE
       13     46 CONTINUE
       14     45 CONTINUE
       15        END
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page   25
                                                         TABS FUNCTION

       Statement
       Number        Referenced by

           45      -14
           46      -13
           48      -12
           51      -11
           55      -10
           60       -9
           66       -8
           73       -7
           81       -6
           90        2     3    -5
          100       -4
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page   26
                                                         TABS FUNCTION

       Word          Contained in

       A             1
       B             1
       COMPLEX       1
       CONTINUE      4     5     6     7     8     9    10    11    12
                    13    14
       DO            2
       END          15
       FUNCTION      1
       I            -2
       IVALUE        1
       S             1
       T             1
       48            2
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page   27
                                                                      

           C
           C     ASSORTED STATEMENT TYPES WHICH REQUIRE RENUMBERING
       1         ACCEPT 90
       2         ACCEPT 90,(IVALUE(IVALUE),IVALUE=48,48)
       3         ACCEPT IVALUE,(IVALUE(IVALUE),IVALUE=48,48)
       4         ACCEPT IVALUE(48,48),(IVALUE(IVALUE),IVALUE=48,48)
       5         TYPE 90
       6         TYPE 90,(IVALUE(IVALUE),IVALUE=48,48)
       7         TYPE IVALUE,(IVALUE(IVALUE),IVALUE=48,48)
       8         TYPE IVALUE(48,48),(IVALUE(IVALUE),IVALUE=48,48)
       9         REREAD 90
       10        REREAD 90,(IVALUE(IVALUE),IVALUE=48,48)
       11        REREAD IVALUE,(IVALUE(IVALUE),IVALUE=48,48)
       12        REREAD IVALUE(48,48),(IVALUE(IVALUE),IVALUE=48,48)
       13        PRINT 90
       14        PRINT 90,(IVALUE(IVALUE),IVALUE=48,48)
       15        PRINT IVALUE,(IVALUE(IVALUE),IVALUE=48,48)
       16        PRINT IVALUE(48,48),(IVALUE(IVALUE),IVALUE=48,48)
       17        PUNCH 90
       18        PUNCH 90,(IVALUE(IVALUE),IVALUE=48,48)
       19        PUNCH IVALUE,(IVALUE(IVALUE),IVALUE=48,48)
       20        PUNCH IVALUE(48,48),(IVALUE(IVALUE),IVALUE=48,48)
       21        DECODE(48,90,IVALUE(48,48))IVALUE(48,48)
       22        DECODE(IVALUE(48,48),90,IVALUE(48,48))IVALUE(48,48)
       23        DECODE(48,IVALUE(48,48),IVALUE(48,48))IVALUE(48,48)
       24        DECODE(48,90,IVALUE(48,48),ERR=90)IVALUE(48,48)
       25        DECODE(IVALUE(48,48),90,IVALUE(48,48),ERR=90)IVALUE(48,48)
       26        DECODE(48,IVALUE(48,48),IVALUE(48,48),ERR=90)IVALUE(48,48)
       27        DECODE(IVALUE(48,48),IVALUE(48,48),IVALUE(48,48))IVALUE(48,48)
       28        ENCODE(48,90,IVALUE(48,48))IVALUE(48,48)
       29        ENCODE(IVALUE(48,48),90,IVALUE(48,48))IVALUE(48,48)
       30        ENCODE(48,IVALUE(48,48),IVALUE(48,48))IVALUE(48,48)
       31        ENCODE(48,90,IVALUE(48,48),ERR=90)IVALUE(48,48)
       32        ENCODE(IVALUE(48,48),90,IVALUE(48,48),ERR=90)IVALUE(48,48)
       33        ENCODE(48,IVALUE(48,48),IVALUE(48,48),ERR=90)IVALUE(48,48)
       34        ENCODE(IVALUE(48,48),IVALUE(48,48),IVALUE(48,48))IVALUE(48,48)
       35        ASSIGN 90 TO IVALUE
       36        ASSIGN 90 TO IVALUE(48,48)
       37        IF QUOTIENT OVERFLOW 90,90,90
       38        IF DIVIDE CHECK 90,90,90
       39        IF ACCUMULATOR OVERFLOW 90,90,90
           C
           C     STATEMENTS CONTAINING VARIABLE TYPE DESIGNATION IN
           C     LEFT COLUMN
       40  B     GO TO 90
       41  D     IF(IVALUE)90,90,90
       42  I     ASSIGN 90 TO IVALUE
           C
           C     CALL STATEMENT CONTAINING STATEMENT NUMBERS TO WHICH
           C     CONTROL IS PASSED UPON RETURNING (INDICATED IN CALL
           C     STATEMENT AS AN ARGUMENT CONSISTING OF STATEMENT
           C     NUMBER FOLLOWING AN AND SIGN IN IBM 360 NOTATION
           C     OR FOLLOWING A DOLLAR SIGN OR FOLLOWING AN
           C     ASTERISK IN DEC NOTATION)
       43        CALL IVALUE(IVALUE,*90,IVALUE(48,48),*90)
       44        CALL IVALUE( * 90, 48, 48, 48, *90)
       45        CALL IVALUE( 48, 48, * 90, 48, 48)
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page   28
                                                          MAIN PROGRAM

       46        CALL IVALUE(IVALUE,$90,IVALUE(48,48),$90)
       47        CALL IVALUE( $ 90, 48, 48, 48, $90)
       48        CALL IVALUE( 48, 48, $ 90, 48, 48)
       49        CALL IVALUE(IVALUE,&90,IVALUE(48,48),&90)
       50        CALL IVALUE( & 90, 48, 48, 48, &90)
       51        CALL IVALUE( 48, 48, & 90, 48, 48)
           C
           C     NUMBERED STATEMENTS
       52  B 100 CONTINUE
       53  D  90 CONTINUE
       54  I  81 CONTINUE
       55  B  73 CONTINUE
       56  D  66 CONTINUE
       57  I  60 CONTINUE
       58  B  55 CONTINUE
       59  D  51 CONTINUE
       60  I  48 CONTINUE
       61  B  46 CONTINUE
       62  D  45 CONTINUE
       63        END
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page   29
                                                          MAIN PROGRAM

       Statement
       Number        Referenced by

           45      -62
           46      -61
           48      -60
           51      -59
           55      -58
           60      -57
           66      -56
           73      -55
           81      -54
           90        1     2     5     6     9    10    13    14    17
                    18    21    22    24    25    26    28    29    31
                    32    33    35    36    37    38    39    40    41
                    42    43    44    45    46    47    48    49    50
                    51   -53
          100      -52
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page   30
                                                          MAIN PROGRAM

       Word          Contained in

       ACCEPT        1     2     3     4
       ASSIGN       35    36    42
       CALL         43    44    45    46    47    48    49    50    51
       CONTINUE     52    53    54    55    56    57    58    59    60
                    61    62
       DECODE       21    22    23    24    25    26    27
       ENCODE       28    29    30    31    32    33    34
       END          63
       ERR         -24   -25   -26   -31   -32   -33
       IFACCUMULA   39
       IFDIVIDECH   38
       IFQUOTIENT   37
       IVALUE       -2    -3    -4    -6    -7    -8   -10   -11   -12
                   -14   -15   -16   -18   -19   -20    21    22    23
                    24    25    26    27    28    29    30    31    32
                    33    34    35    36    41    42    43    44    45
                    46    47    48    49    50    51
       PRINT        13    14    15    16
       PUNCH        17    18    19    20
       REREAD        9    10    11    12
       TO           35    36    42
       TYPE          5     6     7     8
       $            46    47    48
       &            49    50    51
       48            2     3     4     6     7     8    10    11    12
                    14    15    16    18    19    20    21    22    23
                    24    25    26    27    28    29    30    31    32
                    33    34    36    43    44    45    46    47    48
                    49    50    51
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page   31
                                                       ALPHAM FUNCTION

       1         FUNCTION ALPHAMERIC DATA
           C
           C     SAMPLE STATEMENTS CONTAINING KEY SEPARATOR CHARACTER
           C     GROUPINGS (TO TEST PARENTHESIS COUNTING, ETC. IN
           C     FORTRAN RENUMBERING PROGRAM).
           C
       2         IF(IVALUE.EQ.1H()GO TO 90
       3         IF(IVALUE.EQ.1H))GO TO 90
       4         IF(IVALUE.EQ.15H((((((((((((((()GO TO 90
       5         IF(IVALUE.EQ.'(((((((((((((((')GO TO 90
       6         IF ( IVALUE . E Q . ' ( ( ' ' ( ( ' ) GO TO 90
       7         CALL IVALUE(',*48,',5H,*48,,4H,*48,*90)
       8         CALL IVALUE(',&48,',5H,&48,,4H,&48,&90)
       9         CALL IVALUE(',$48,',5H,$48,,4H,$48,$90)
       10        CALL IVALUE ( ' , * 48, ' ' , * 48 , ' , * 90 )
       11        CALL IVALUE ( ' , & 48, ' ' , & 48 , ' , & 90 )
       12        CALL IVALUE ( ' , $ 48, ' ' , $ 48 , ' , $ 90 )
       13        DO48IV=5H48,48
       14        DO48IV='48,48'
           C
           C     TEST ENTRY OF ALPHAMERIC STRINGS CONTAINING TERMINAL
           C     BLANKS INTO SYMBOL DICTIONARY
       15        IVALUE=10HABCDE
       16        IF(IVALUE.EQ.10HABCDE     )90,90,90
       17        IF(IVALUE.EQ.  10HABCDE     )90,90,90
       18        IF(IVALUE.EQ.  10HABCDE       )90,90,90
       19        IVALUE=5HABC
       20        IF(IVALUE.EQ.5HABC  )90,90,90
       21        IF(IVALUE.EQ.5HABC    )90,90,90
       22        IF(IVALUE.EQ.  5HABC    )90,90,90
       23        IVALUE='ABC'
       24        IF(IVALUE.EQ.'ABC')90,90,90
       25        IF(IVALUE.EQ.'ABC'  )90,90,90
       26        IF(IVALUE.EQ.  'ABC'  )90,90,90
       27        IVALUE='ABC''D'
       28        IF(IVALUE.EQ.'ABC''D')90,90,90
       29        IF(IVALUE.EQ.'ABC''D'  )90,90,90
       30        IF(IVALUE.EQ.  'ABC''D'  )90,90,90
       31        IVALUE='ABC''DEF'
       32        IF(IVALUE.EQ.'ABC''DEF')90,90,90
       33        IF(IVALUE.EQ.  'ABC''DEF')90,90,90
       34        IF(IVALUE.EQ.  'ABC''DEF'  )90,90,90
       35        IVALUE='ABC''DEF''GHI'
       36        IF(IVALUE.EQ.'ABC''DEF''GHI')90,90,90
       37        IF(IVALUE.EQ.  'ABC''DEF''GHI')90,90,90
       38        IF(IVALUE.EQ.  'ABC''DEF''GHI'  )90,90,90
           C
           C     NUMBERED STATEMENTS
       39    100 CONTINUE
       40     90 CONTINUE
       41     81 CONTINUE
       42     73 CONTINUE
       43     66 CONTINUE
       44     60 CONTINUE
       45     55 CONTINUE
       46     51 CONTINUE
       47     48 CONTINUE
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page   32
                                                       ALPHAM FUNCTION

       48     46 CONTINUE
       49     45 CONTINUE
       50        END
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page   33
                                                       ALPHAM FUNCTION

       Statement
       Number        Referenced by

           45      -49
           46      -48
           48      -47
           51      -46
           55      -45
           60      -44
           66      -43
           73      -42
           81      -41
           90        2     3     4     5     6     7     8     9    10
                    11    12    16    17    18    20    21    22    24
                    25    26    28    29    30    32    33    34    36
                    37    38   -40
          100      -39
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page   34
                                                       ALPHAM FUNCTION

       Word          Contained in

       ALPHAMERIC    1
       CALL          7     8     9    10    11    12
       CONTINUE     39    40    41    42    43    44    45    46    47
                    48    49
       DATA          1
       DO48IV      -13   -14
       END          50
       FUNCTION      1
       IVALUE        2     3     4     5     6     7     8     9    10
                    11    12   -15    16    17    18   -19    20    21
                    22   -23    24    25    26   -27    28    29    30
                   -31    32    33    34   -35    36    37    38
       $             9    12
       &             8    11
       'ABC'        23    24    25    26
       'ABC''DEF'   31    32    33    34    35    36    37    38
       'ABC''D'     27    28    29    30
       ' ( ( '' (    6
       ' , $ 48,    12
       ' , & 48,    11
       ' , * 48,    10
       '(((((((((    5
       ',$48,'       9
       ',&48,'       8
       ',*48,'       7
       '48,48'      14
       1H(           2
       1H)           3
       10HABCDE     15    16    17    18
       15H(((((((    4
       4H,$48        9
       4H,&48        8
       4H,*48        7
       5HABC        19    20    21    22
       5H,$48,       9
       5H,&48,       8
       5H,*48,       7
       5H48,48      13
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page   35
                                                     WRAPAR SUBROUTINE

       1         SUBROUTINE WRAPAROUND
           C     ROUTINE TO TEST WRAP AROUND PREVENTION WHEN
           C     NUMBER OF CHARACTERS CHANGES IN NUMBERS
           C     THE CORRECT RESULTS ARE GIVEN BELOW
           C     (NOTE THAT UNLIKE SAMPLE TAB INPUT GIVEN IN SOME
           C     OF THESE TEST ROUTINES, THIS SAMPLE OUTPUT USES
           C     ALL SEVENTYTWO CHARACTERS AND SO ADDED C IS IN COLUMN
           C     1 RATHER THAN IN FRONT OF CONTENTS OF COLUMN 1)
           C     SLASH REPLACES DIGIT NINE IN THESE EXAMPLES
           C     GO TO(1,1,1,
           C    111,11,11,
           C    24,4,4),
           C    3I
           C     GO TO(1,1,1
           C    1,11,11,11
           C    2,4,4,4),
           C    3I
           C     GO TO(1,1,1
           C    1  ,11,11,11,4
           C    2  ,4,4),
           C    3I
           C     GO TO(1,1,1,
           C    1  11,11,11,
           C    2   4,4,4),
           C    3    I
           C     GO TO(1,1,1
           C    1  ,11,11,11
           C    2   ,4,4,4),
           C    3    I
           C     GO TO(1,1,1
           C    1    ,11,11,11,4
           C    2     ,4,4),
           C    3    I
           C
           C     LONG STATEMENTS TO INSURE ADDITION AT PROPER BREAK
           C     12345678/012345678/012345678/012345678/012345678/012345678/0123456
           C     WRITE(5,1)IIIIII,IIIIII,IIIIII,IIIIII,IIIIII,IIIIII,IIIIII,ABCD
           C    1EF,GHIJKL
           C     12345678/012345678/012345678/012345678/012345678/012345678/0123456
           C     WRITE(5,11)IIIIII,IIIIII,IIIIII,IIIIII,IIIIII,IIIIII,IIIIII,ABCDEF
           C    1,GHIJKL,MNOPQR,STUVWX,YZABCD,EFGHIJ,KLMNOP,QRSTUV,WXYZAB,CDEFGH,IJ
           C    2KLMN,OPQRST,UVWXYZ
           C     12345678/012345678/012345678/012345678/012345678/012345678/0123456
           C     WRITE(5,11)IIIIII,IIIIII,IIIIII,IIIIII,IIIIII,IIIIII,IIIIII,ABCDEF
           C    1,GHIJKL,MNOPQR,STUVWX,YZABCD,EFGHIJ,KLMNOP,QRSTUV,WXYZAB,CDEFGH,IJ
           C    2K LMN,OPQRST,UVWXYZ
           C
           C     STATEMENTS STRUNG OUT OVER SEVERAL LINES
           C     GO TO(10
           C    1     ,
           C    2     10
           C    3     ),
           C    4     I
       2         GO TO(9999,9999,9999,
       2        19,9,9,
       2        2999,999,999),
       2        3I
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page   36
                                                     WRAPAR SUBROUTINE

       3         GO TO(9999,9999,9999
       3        1,9,9,9
       3        2,999,999,999),
       3        3I
       4         GO TO(9999,9999,99
       4        199,9,9,9,9
       4        299,999,999),
       4        3I
       5         GO TO(9999,9999,9999,
       5        1  9,9,9,
       5        2   999,999,999),
       5        3    I
       6         GO TO(9999,9999,9999
       6        1  ,9,9,9
       6        2   ,999,999,999),
       6        3    I
       7         GO TO(9999,9999,99
       7        1  99,9,9,9,9
       7        2   99,999,999),
       7        3    I
           C
           C     LONG STATEMENTS TO INSURE ADDITION AT PROPER BREAK
           C     12345678/012345678/012345678/012345678/012345678/012345678/0123456
       8         WRITE(5,9999)IIIIII,IIIIII,IIIIII,IIIIII,IIIIII,IIIIII,IIIIII,ABCD
       8        1EF,GHIJKL
           C     12345678/012345678/012345678/012345678/012345678/012345678/0123456
       9         WRITE(5,9)IIIIII,IIIIII,IIIIII,IIIIII,IIIIII,IIIIII,IIIIII,ABCDEF,
       9        1GHIJKL,MNOPQR,STUVWX,YZABCD,EFGHIJ,KLMNOP,QRSTUV,WXYZAB,CDEFGH,IJ
       9        2KLMN,OPQRST,UVWXYZ
           C     12345678/012345678/012345678/012345678/012345678/012345678/0123456
       10        WRITE(5,9)IIIIII,IIIIII,IIIIII,IIIIII,IIIIII,IIIIII,IIIIII,ABCDEF,
       10       1GHIJKL,MNOPQR,STUVWX,YZABCD,EFGHIJ,KLMNOP,QRSTUV,WXYZAB,CDEFGH,IJK
       10       2 LMN,OPQRST,UVWXYZ
           C
           C     STATEMENTS STRUNG OUT OVER SEVERAL LINES
       11        GO TO(9
       11       1            9
       11       2     9
       11       3     9
       11       4        9
       11       5     ,
       11       6     9     9
       11       7 
       11       8   9
       11       9    9
       11       1  9  ),
       11       2     I
           C
           C     NUMBERED STATEMENTS
       12   9999 CONTINUE
       13     99 CONTINUE
       14      3 CONTINUE
       15    999 CONTINUE
       16      4 CONTINUE
       17      5 CONTINUE
       18      6 CONTINUE
       19      7 CONTINUE
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page   37
                                                     WRAPAR SUBROUTINE

       20      8 CONTINUE
       21  99999 CONTINUE
       22      9 CONTINUE
       23        END
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page   38
                                                     WRAPAR SUBROUTINE

       Statement
       Number        Referenced by

            3      -14
            4      -16
            5      -17
            6      -18
            7      -19
            8      -20
            9        2     3     4     5     6     7     9    10   -22
           99      -13
          999        2     3     4     5     6     7   -15
         9999        2     3     4     5     6     7     8   -12
        99999       11   -21
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page   39
                                                     WRAPAR SUBROUTINE

       Word          Contained in

       ABCDEF        8     9    10
       CDEFGH        9    10
       CONTINUE     12    13    14    15    16    17    18    19    20
                    21    22
       EFGHIJ        9    10
       END          23
       GHIJKL        8     9    10
       I             2     3     4     5     6     7    11
       IIIIII        8     9    10
       IJ            9
       IJK          10
       KLMN          9
       KLMNOP        9    10
       LMN          10
       MNOPQR        9    10
       OPQRST        9    10
       QRSTUV        9    10
       STUVWX        9    10
       SUBROUTINE    1
       UVWXYZ        9    10
       WRAPAROUND    1
       WRITE         8     9    10
       WXYZAB        9    10
       YZABCD        9    10
       5             8     9    10
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page   40
                                                            SUBROUTINE

       1         SUBROUTINE
           C     ROUTINE TO TEST SEPARATE INDEXING OF UNIT
           C     NUMBERS AND RECORD NUMBERS IN RANDOM ACCESS
           C     I/O READ, WRITE AND FIND STATEMENTS.  THESE
           C     ARE SEPARATED BY NUMBER SIGN OR APOSTROPHE.
           C
           C     AA AND BB SHOULD BE INDEXED SEPARATELY, CC AND
           C     DD TOGETHER IN ALPHAMERIC TEXT STRING
           C
           C     READ STATEMENTS WITH RANDOM I/O
       2         READ(10'10,90)READ(10,10)
       3         READ(10#10,90)READ(10,10)
       4         READ(AA'BB,90)READ(10,10)
       5         READ(AA#BB,90)READ(10,10)
       6         READ(10'10,90,ERR=90,END=90)READ(10,10)
       7         READ(10#10,90,ERR=90,END=90)READ(10,10)
       8         READ(AA'BB,90,ERR=90,END=90)READ(10,10)
       9         READ(AA#BB,90,ERR=90,END=90)READ(10,10)
       10        READ( 10 ' 10 ,90)READ(10,10)
       11        READ( 10 # 10 ,90)READ(10,10)
       12        READ( AA ' BB ,90)READ(10,10)
       13        READ( AA # BB ,90)READ(10,10)
       14        READ( 10 ' 10 ,90,ERR=90,END=90)READ(10,10)
       15        READ( 10 # 10 ,90,ERR=90,END=90)READ(10,10)
       16        READ( AA ' BB ,90,ERR=90,END=90)READ(10,10)
       17        READ( AA # BB ,90,ERR=90,END=90)READ(10,10)
       18        READ(5HCC'DD,90)READ(10,10)
       19        READ('CC#DD',90)READ(10,10)
       20        READ(5HCC#DD,90)READ(10,10)
       21        READ(5HCC'DD,90,END=90,ERR=90)READ(10,10)
       22        READ('CC#DD',90,END=90,ERR=90)READ(10,10)
       23        READ(5HCC#DD,90,END=90,ERR=90)READ(10,10)
       24        READ(AA',90,END=90,ERR=90)READ(10,10)
       25        READ(#AA,90,END=90,ERR=90)READ(10,10)
       26        READ(AA#,90,END=90,ERR=90)READ(10,10)
       27        READ(#,90,END=90,ERR=90)READ(10,10)
           C
           C     WRITE STATEMENTS WITH RANDOM I/O
       28        WRITE(10'10,90)WRITE(10,10)
       29        WRITE(10#10,90)WRITE(10,10)
       30        WRITE(AA'BB,90)WRITE(10,10)
       31        WRITE(AA#BB,90)WRITE(10,10)
       32        WRITE( 10 ' 10 ,90)WRITE(10,10)
       33        WRITE( 10 # 10 ,90)WRITE(10,10)
       34        WRITE( AA ' BB ,90)WRITE(10,10)
       35        WRITE( AA # BB ,90)WRITE(10,10)
       36        WRITE(5HCC'DD,90)WRITE(10,10)
       37        WRITE('CC#DD',90)WRITE(10,10)
       38        WRITE(5HCC#DD,90)WRITE(10,10)
           C
           C     FIND STATEMENTS
       39        FIND(10'10)
       40        FIND(10#10)
       41        FIND(AA'BB)
       42        FIND(AA#BB)
       43        FIND(5HCC'DD)
       44        FIND(5HCC#DD)
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page   41
                                                            SUBROUTINE

       45        FIND('CC#DD')
       46        FIND(AA')
       47        FIND(#AA)
       48        FIND(AA#)
       49        FIND(#)
           C
           C     NUMBERED STATEMENTS
       50    100 CONTINUE
       51     90 CONTINUE
       52     81 CONTINUE
       53     73 CONTINUE
       54     66 CONTINUE
       55     60 CONTINUE
       56     55 CONTINUE
       57     51 CONTINUE
       58     48 CONTINUE
       59     46 CONTINUE
       60     45 CONTINUE
       61        E    N    D
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page   42
                                                            SUBROUTINE

       Statement
       Number        Referenced by

           45      -60
           46      -59
           48      -58
           51      -57
           55      -56
           60      -55
           66      -54
           73      -53
           81      -52
           90        2     3     4     5     6     7     8     9    10
                    11    12    13    14    15    16    17    18    19
                    20    21    22    23    24    25    26    27    28
                    29    30    31    32    33    34    35    36    37
                    38   -51
          100      -50
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page   43
                                                            SUBROUTINE

       Word          Contained in

       AA            4     5     8     9    12    13    16    17    24
                    25    26    30    31    34    35    41    42    46
                    47    48
       BB            4     5     8     9    12    13    16    17    30
                    31    34    35    41    42
       CONTINUE     50    51    52    53    54    55    56    57    58
                    59    60
       D            61
       E            61
       END          -6    -7    -8    -9   -14   -15   -16   -17   -21
                   -22   -23   -24   -25   -26   -27
       ERR          -6    -7    -8    -9   -14   -15   -16   -17   -21
                   -22   -23   -24   -25   -26   -27
       FIND         39    40    41    42    43    44    45    46    47
                    48    49
       N            61
       READ          2     3     4     5     6     7     8     9    10
                    11    12    13    14    15    16    17    18    19
                    20    21    22    23    24    25    26    27
       SUBROUTINE    1
       WRITE        28    29    30    31    32    33    34    35    36
                    37    38
       'CC#DD'      19    22    37    45
       10            2     3     4     5     6     7     8     9    10
                    11    12    13    14    15    16    17    18    19
                    20    21    22    23    24    25    26    27    28
                    29    30    31    32    33    34    35    36    37
                    38    39    40
       5HCC#DD      20    23    38    44
       5HCC'DD      18    21    36    43
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page   44
                                                          MAIN PROGRAM

       1         IF( A.EQ. '48)GO TO 48')GO TO 90
       2         IF( A. EQ .11H48)GO TO 48)GO TO 90
       3         IF ( A. E Q.  1  1  H48)GO TO 48)GO TO 90
       4         IF(A.EQ. 1 1 H48)GO TO 48)GO TO 90
       5         IF(A.EQ.011H48)GO TO 48)GO TO 90
       6         IF(A.EQ. 0 1 1 H48)GO TO 48)GO TO 90
           C
           C     NUMBERED STATEMENTS
       7     100 CONTINUE
       8      90 CONTINUE
       9      81 CONTINUE
       10     73 CONTINUE
       11     66 CONTINUE
       12     60 CONTINUE
       13     55 CONTINUE
       14     51 CONTINUE
       15     48 CONTINUE
       16     46 CONTINUE
       17     45 CONTINUE
       18        END
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page   45
                                                          MAIN PROGRAM

       Statement
       Number        Referenced by

           45      -17
           46      -16
           48      -15
           51      -14
           55      -13
           60      -12
           66      -11
           73      -10
           81       -9
           90        1     2     3     4     5     6    -8
          100       -7
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page   46
                                                          MAIN PROGRAM

       Word          Contained in

       A             1     2     3     4     5     6
       CONTINUE      7     8     9    10    11    12    13    14    15
                    16    17
       END          18
       '48)GO TO     1
       011H48)GO     5     6
       11H48)GO T    2     3     4
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page   47
                                                        ONE SUBROUTINE

       1         SUBROUTINE O                         N                           E
           C             THIS ROUTINE TEST REJECTION OF CARD IDENTIFICATION COLUMNS
           C2345678/012345678/012345678/012345678/012345678/012345678/012345678/012
           C00000000111111111122222222223333333333444444444455555555556666666666777
       2         G                                                                O
       2        1T                                                                O
       2        29                                                                0
       3         G                                                               O
       3        1T                                                               O
       3        29                                                               0
       4         G                                                              O
       4        1T                                                              O
       4        29                                                              0
       5         G                                                             O
       5        1T                                                             O
       5        29                                                             0
       6     100 CONTINUE
       7      90 CONTINUE
       8      81 CONTINUE
       9      73 CONTINUE
       10     66 CONTINUE
       11     60 CONTINUE
       12     55 CONTINUE
       13     51 CONTINUE
       14     48 CONTINUE
       15     46 CONTINUE
       16     45 CONTINUE
       17        E                               N                                D
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page   48
                                                        ONE SUBROUTINE

       Statement
       Number        Referenced by

           45      -16
           46      -15
           48      -14
           51      -13
           55      -12
           60      -11
           66      -10
           73       -9
           81       -8
           90        2     3     4     5    -7
          100       -6
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page   49
                                                        ONE SUBROUTINE

       Word          Contained in

       CONTINUE      6     7     8     9    10    11    12    13    14
                    15    16
       D            17
       E             1    17
       N             1    17
       O             1
       SUBROUTINE    1
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page   50
                                                       FOR-II FUNCTION

       1         FUNCTION FOR-II
       2         ACCEPT 90,I 48,(I 48(I),I=1,48)
       3         ACCEPT TAPE 90,I 48,(I 48(I),I=1,48)
       4         ASSIGN 90 TO I 48
       5         DO 90 I=48,48,48
       6         FREQUENCY 90(48),90,90(48,48),90(48,48,48)
       7         GO TO 90
       8         GO TO I 48
       9         GO TO I 48,(90,90)
       10        GO TO(90,90),I 48
       11        IF(48)90,90,90
       12        IF ACCUMULATOR OVERFLOW 90,90
       13        IF DIVIDE CHECK 90,90
       14        IF QUOTIENT OVERFLOW 90,90
       15        PRINT 90,I 48,(I 48(I),I=1,48)
       16        PUNCH 90,I 48,(I 48(I),I=1,48)
       17        PUNCH TAPE 90,I 48,(I 48(I),I=1,48)
       18        READ 90,I 48,(I 48(I),I=1,48)
       19        READ INPUT TAPE 48,90,I 48,(I 48(I),I=1,48)
       20        TYPE 90,I 48,(I 48(I),I=1,48)
       21        WRITE OUTPUT TAPE 48,90,I 48,(I 48(I),I=1,48)
       22        READ DRUM 48,48,I 48,(I 48(I),I=1,48)
       23        READ TAPE 48,I 48,(I 48(I),I=1,48)
       24        WRITE DRUM 48,48,I 48,(I 48(I),I=1,48)
       25        WRITE TAPE 48,I 48,(I 48(I),I=1,48)
       26    100 CONTINUE
       27     90 CONTINUE
       28     81 CONTINUE
       29     73 CONTINUE
       30     66 CONTINUE
       31     60 CONTINUE
       32     55 CONTINUE
       33     51 CONTINUE
       34     48 CONTINUE
       35     46 CONTINUE
       36     45 CONTINUE
       37        END
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page   51
                                                       FOR-II FUNCTION

       Statement
       Number        Referenced by

           45      -36
           46      -35
           48      -34
           51      -33
           55      -32
           60      -31
           66      -30
           73      -29
           81      -28
           90        2     3     4     5     6     7     9    10    11
                    12    13    14    15    16    17    18    19    20
                    21   -27
          100      -26
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page   52
                                                       FOR-II FUNCTION

       Word          Contained in

       ACCEPT        2
       ACCEPTTAPE    3
       ASSIGN        4
       CONTINUE     26    27    28    29    30    31    32    33    34
                    35    36
       DO            5
       DRUM         22    24
       END          37
       FOR           1
       FREQUENCY     6
       FUNCTION      1
       I            -2    -3     4    -5     8    10   -15   -16   -17
                   -18   -19   -20   -21   -22   -23   -24   -25
       IFACCUMULA   12
       IFDIVIDECH   13
       IFQUOTIENT   14
       II            1
       I48           9
       PRINT        15
       PUNCH        16
       PUNCHTAPE    17
       READ         18    22    23
       READINPUTT   19
       TAPE         23    25
       TO            4
       TYPE         20
       WRITE        24    25
       WRITEOUTPU   21
       1             2     3    15    16    17    18    19    20    21
                    22    23    24    25
       48            2     3     4     5     6     8    10    11    15
                    16    17    18    19    20    21    22    23    24
                    25
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page   53
                                                       FOR-IV FUNCTION

       1         FUNCTION FOR-IV
       2         IF(I 48)GO TO 90
       3         READ(48,90)I 48,(I 48(I),I=1,48)
       4         READ(48,I 48)I 48,(I 48(I),I=1,48)
       5         READ(48,I 48,END=90,ERR=90)I 48,(I 48(I),I=1,48)
       6         READ(48,90,END=90,ERR=90)I 48,(I 48(I),I=1,48)
       7         WRITE(48,90)I 48,(I 48(I),I=1,48)
       8         WRITE(48,I 48)I 48,(I 48(I),I=1,48)
       9         WRITE(48)I 48,(I 48(I),I=1,48)
       10        READ(48)I 48,(I 48(I),I=1,48)
       11        READ 90,I 48,(I 48(I),I=1,48)
       12        READ 90
       13        READ(48#48,90)I 48,(I 48(I),I=1,48)
       14        READ(48#48)I 48,(I 48(I),I=1,48)
       15        WRITE 90,I 48,(I 48(I),I=1,48)
       16        WRITE 90
       17        WRITE(48#48,90)I 48,(I 48(I),I=1,48)
       18        WRITE(48#48,I 48)I 48,(I 48(I),I=1,48)
       19        READ(48#48,I 48)I 48,(I 48(I),I=1,48)
       20        REREAD 90,I 48,(I 48(I),I=1,48)
       21        FIND(48#48)
       22        ACCEPT 90,I 48,(I 48(I),I=1,48)
       23        ACCEPT 90
       24        PRINT 90,I 48,(I 48(I),I=1,48)
       25        PRINT 90
       26        PUNCH 90,I 48,(I 48(I),I=1,48)
       27        PUNCH 90
       28        TYPE 90,I 48,(I 48(I),I=1,48)
       29        TYPE 90
       30        OPEN(UNIT=48,ERR=90,DEVICE=48)
       31        CLOSE(UNIT=48,ERR=90,DEVICE=48)
       32        ENCODE(48,90,I 48)I 48,(I 48(I),I=1,48)
       33        DECODE(48,90,I 48)I 48,(I 48(I),I=1,48)
       34        ENCODE(48,90,I 48,ERR=90)I 48,(I 48(I),I=1,48)
       35        DECODE(48,90,I 48,ERR=90)I 48,(I 48(I),I=1,48)
       36    100 CONTINUE
       37     90 CONTINUE
       38     81 CONTINUE
       39     73 CONTINUE
       40     66 CONTINUE
       41     60 CONTINUE
       42     55 CONTINUE
       43     51 CONTINUE
       44     48 CONTINUE
       45     46 CONTINUE
       46     45 CONTINUE
       47        END
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page   54
                                                       FOR-IV FUNCTION

       Statement
       Number        Referenced by

           45      -46
           46      -45
           48      -44
           51      -43
           55      -42
           60      -41
           66      -40
           73      -39
           81      -38
           90        2     3     5     6     7    11    12    13    15
                    16    17    20    22    23    24    25    26    27
                    28    29    30    31    32    33    34    35   -37
          100      -36
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page   55
                                                       FOR-IV FUNCTION

       Word          Contained in

       ACCEPT       22    23
       CLOSE        31
       CONTINUE     36    37    38    39    40    41    42    43    44
                    45    46
       DECODE       33    35
       DEVICE      -30   -31
       ENCODE       32    34
       END          -5    -6    47
       ERR          -5    -6   -30   -31   -34   -35
       FIND         21
       FOR           1
       FUNCTION      1
       I            -3    -4    -5    -6    -7    -8    -9   -10   -11
                   -13   -14   -15   -17   -18   -19   -20   -22   -24
                   -26   -28   -32   -33   -34   -35
       IV            1
       I48           2     5    34    35
       OPEN         30
       PRINT        24    25
       PUNCH        26    27
       READ          3     4     5     6    10    11    12    13    14
                    19
       REREAD       20
       TYPE         28    29
       UNIT        -30   -31
       WRITE         7     8     9    15    16    17    18
       1             3     4     5     6     7     8     9    10    11
                    13    14    15    17    18    19    20    22    24
                    26    28    32    33    34    35
       48            3     4     5     6     7     8     9    10    11
                    13    14    15    17    18    19    20    21    22
                    24    26    28    30    31    32    33    34    35
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page   56
                                                       STEPNU FUNCTION

       1         FUNCTION STEPNUMBERING
           C     THE ORIGINAL STEPS ARE 1-33, 34-67, 68-101, 102-135 ETC.
           C     IF FIRST NUMBER IS 3 AND INCREMENT 5, THEN OUTPUT
           C     NUMBERING WOULD BE 3 8 13 18 23 ... 53 58 63 68 73 ETC.
           C     IF THE FIRST NUMBER IS 8, THEN THE OUTPUT
           C     NUMBERING WOULD BE 8 13 18 23 ... 53 58 63 68 73 ETC.
           CRENBRI5B3O34N50
           C     FIRST STATEMENT SHOULD BE 3
       2   10    GO TO 5
       3   5     GO TO 250
       4   15    GO TO 210
       5   250   GO TO 350
       6   20    GO TO 299
           C     NEXT STATEMENT SHOULD BE 53
       7   203   GO TO 52
           C     NEXT STATEMENT SHOULD BE 103
       8   210   CONTINUE
       9   300   CONTINUE
       10  350   CONTINUE
       11  239   CONTINUE
       12  215   CONTINUE
           C     NEXT STATEMENT SHOULD BE 153
       13  42    CONTINUE
       14  299   CONTINUE
       15  35    CONTINUE
       16  52    CONTINUE
       17  45    CONTINUE
       18        END
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page   57
                                                       STEPNU FUNCTION

       Statement
       Number        Referenced by

            5        2    -3
           10       -2
           15       -4
           20       -6
           35      -15
           42      -13
           45      -17
           52        7   -16
          203       -7
          210        4    -8
          215      -12
          239      -11
          250        3    -5
          299        6   -14
          300       -9
          350        5   -10
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page   58
                                                       STEPNU FUNCTION

       Word          Contained in

       CONTINUE      8     9    10    11    12    13    14    15    16
                    17
       END          18
       FUNCTION      1
       STEPNUMBER    1
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page   59
                                                     MIDDLE SUBROUTINE

       1         SUBROUTINE MIDDLE
           C     FIRST STATEMENT SHOULD BE 8
       2   10    GO TO 5
       3   5     GO TO 250
       4   15    GO TO 210
       5   250   GO TO 350
       6   20    GO TO 299
           C     NEXT STATEMENT SHOULD BE 53
       7   203   GO TO 52
           C     NEXT STATEMENT SHOULD BE 103
       8   210   CONTINUE
       9   300   CONTINUE
       10  350   CONTINUE
       11  239   CONTINUE
       12  215   CONTINUE
           C     NEXT STATEMENT SHOULD BE 153
           C R E N B R / I : 5 B 8 O 34 N 50
       13  42    CONTINUE
       14  299   CONTINUE
       15  35    CONTINUE
       16  52    CONTINUE
       17  45    CONTINUE
       18        END
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page   60
                                                     MIDDLE SUBROUTINE

       Statement
       Number        Referenced by

            5        2    -3
           10       -2
           15       -4
           20       -6
           35      -15
           42      -13
           45      -17
           52        7   -16
          203       -7
          210        4    -8
          215      -12
          239      -11
          250        3    -5
          299        6   -14
          300       -9
          350        5   -10
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page   61
                                                     MIDDLE SUBROUTINE

       Word          Contained in

       CONTINUE      8     9    10    11    12    13    14    15    16
                    17
       END          18
       MIDDLE        1
       SUBROUTINE    1
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page   62
                                                     REVERS SUBROUTINE

       1         SUBROUTINE REVERSE
           C     FIRST STATEMENT SHOULD BE 173
       2   10    GO TO 5
       3   5     GO TO 250
       4   15    GO TO 203
       5   250   GO TO 300
       6   20    GO TO 350
           C     ABOVE STATEMENT SHOULD BE 153 AND BELOW 103
       7   203   GO TO 30
           C     ABOVE STATEMENT SHOULD BE 103 AND BELOW 73
       8   210   GO TO 45
       9   300   CONTINUE
       10  310   CONTINUE
       11  350   CONTINUE
       12  215   CONTINUE
           C     ABOVE STATEMENT SHOULD BE 53 AND BELOW 23
       13  35    CONTINUE
       14  30    CONTINUE
       15  50    CONTINUE
       16  45    CONTINUE
           C R E N B R / I : -5 B 8 O 34 N 50
       17        END
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page   63
                                                     REVERS SUBROUTINE

       Statement
       Number        Referenced by

            5        2    -3
           10       -2
           15       -4
           20       -6
           30        7   -14
           35      -13
           45        8   -16
           50      -15
          203        4    -7
          210       -8
          215      -12
          250        3    -5
          300        5    -9
          310      -10
          350        6   -11
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page   64
                                                     REVERS SUBROUTINE

       Word          Contained in

       CONTINUE      9    10    11    12    13    14    15    16
       END          17
       REVERSE       1
       SUBROUTINE    1
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page   65
                                                       MULTPL FUNCTION

       1         FUNCTION MULTPL;ACCEPT 90,I 48,(I 48(I),I=1,48);ACCEPT TAPE 90,I 4
       1        18,(I 48(I),I=1,48);ASSIGN 90 TO I 48;DO 90 I=48,48,48;FREQUENCY 90
       1        2(48),90,90(48,48),90(48,48,48);GO TO 90;GO TO I 48;GO TO I 48,(90,
       1        390);GO TO(90,90),I 48;IF(48)90,90,90;IF ACCUMULATOR OVERFLOW 90,90
       1        4;IF DIVIDE CHECK 90,90;IF QUOTIENT OVERFLOW 90,90;PRINT 90,I 48,(I
       1        5 48(I),I=1,48);PUNCH 90,I 48,(I 48(I),I=1,48);PUNCH TAPE 90,I 48,(
       1        6I 48(I),I=1,48);READ 90,I 48,(I 48(I),I=1,48);READ INPUT TAPE 48,9
       1        70,I 48,(I 48(I),I=1,48);TYPE 90,I 48,(I 48(I),I=1,48);WRITE OUTPUT
       1        8 TAPE 48,90,I 48,(I 48(I),I=1,48)
       2         READ DRUM 48,48,I 48,(I 48(I),I=1,48);READ TAPE 48,I 48,(I 48(I),I
       2        1=1,48);WRITE DRUM 48,48,I 48,(I 48(I),I=1,48);WRITE TAPE 48,I 48,(
       2        2I 48(I),I=1,48);IF(I 48)GO TO 90;READ(48,90)I 48,(I 48(I),I=1,48);
       2        3READ(48,I 48)I 48,(I 48(I),I=1,48);READ(48,I 48,END=90,ERR=90)I 48
       2        4,(I 48(I),I=1,48);READ(48,90,END=90,ERR=90)I 48,(I 48(I),I=1,48);W
       2        5RITE(48,90)I 48,(I 48(I),I=1,48);WRITE(48,I 48)I 48,(I 48(I),I=1,4
       2        68);WRITE(48)I 48,(I 48(I),I=1,48);READ(48)I 48,(I 48(I),I=1,48);RE
       2        7AD 90,I 48,(I 48(I),I=1,48);READ 90;READ(48#48,90)I 48,(I 48(I),I=
       2        81,48);READ(48#48)I 48,(I 48(I),I=1,48)
       3         WRITE 90,I 48,(I 48(I),I=1,48);WRITE 90;WRITE(48#48,90)I 48,(I 48(
       3        1I),I=1,48);WRITE(48#48,I 48)I 48,(I 48(I),I=1,48);READ(48#48,I 48)
       3        2I 48,(I 48(I),I=1,48);REREAD 90,I 48,(I 48(I),I=1,48);FIND(48#48);
       3        3ACCEPT 90,I 48,(I 48(I),I=1,48);ACCEPT 90;PRINT 90,I 48,(I 48(I),I
       3        4=1,48);PRINT 90;PUNCH 90,I 48,(I 48(I),I=1,48);PUNCH 90;TYPE 90,I
       3        548,(I 48(I),I=1,48);TYPE 90;ENCODE(48,90,I 48)I 48,(I 48(I),I=1,48
       3        6);DECODE(48,90,I 48)I 48,(I 48(I),I=1,48)
       4     100 CONTINUE
       5      90 CONTINUE
       6      81 CONTINUE
       7      73 CONTINUE
       8      66 CONTINUE
       9      60 CONTINUE
       10     55 CONTINUE
       11     51 CONTINUE
       12     48 CONTINUE
       13     46 CONTINUE
       14     45 CONTINUE
       15        END
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page   66
                                                       MULTPL FUNCTION

       Statement
       Number        Referenced by

           45      -14
           46      -13
           48      -12
           51      -11
           55      -10
           60       -9
           66       -8
           73       -7
           81       -6
           90        1     2     3    -5
          100       -4
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page   67
                                                       MULTPL FUNCTION

       Word          Contained in

       ACCEPT        1     3
       ACCEPTTAPE    1
       ASSIGN        1
       CONTINUE      4     5     6     7     8     9    10    11    12
                    13    14
       DECODE        3
       DO            1
       DRUM          2
       ENCODE        3
       END          -2    15
       ERR          -2
       FIND          3
       FREQUENCY     1
       FUNCTION      1
       I            -1    -2    -3
       IFACCUMULA    1
       IFDIVIDECH    1
       IFQUOTIENT    1
       I48           1     2
       MULTPL        1
       PRINT         1     3
       PUNCH         1     3
       PUNCHTAPE     1
       READ          1     2     3
       READINPUTT    1
       REREAD        3
       TAPE          2
       TO            1
       TYPE          1     3
       WRITE         2     3
       WRITEOUTPU    1
       1             1     2     3
       48            1     2     3
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page   68
                                                       COMENT FUNCTION

       1         FUNCTION COMENT;ACCEPT 90,I 48,(I 48(I),!COMMENT ONE 012345678/012
       1        1I=1,48);ACCEPT TAPE 90,I 48,(I 48(I),I=1!COMMENT TWO 012345678/012
       1        2,48);ASSIGN 90 TO I 48;DO 90 I=48,48,48;!COMMENT THREE 2345678/012
       1        3FREQUENCY 90(48),90,90(48,48),90(48,48,4!COMMENT FOUR 12345678/012
       1        48);GO TO 90;GO TO I 48;GO TO I 48,(90,90!COMMENT FIVE 12345678/012
       1        5);GO TO(90,90),I 48;IF(48)90,90,90;IF AC!COMMENT SIX 012345678/012
       1        6CUMULATOR OVERFLOW 90,90;IF DIVIDE CHECK!COMMENT SEVEN 2345678/012
       1        7 90,90;IF QUOTIENT OVERFLOW 90,90;PRINT !COMMENT EIGHT 2345678/012
       1        890,I 48,(I 48(I),I=1,48)!COMMENT NINE 5678/012345678/012345678/012
       2         PUNCH 90,I 48,(I 48(I),I=1,48);PUNCH TAP!COMMENT ONE 012345678/012
       2        1E 90,I 48,(I 48(I),I=1,48);READ 90,I 48,!COMMENT TWO 012345678/012
       2        2(I 48(I),I=1,48);READ INPUT TAPE 48,90,I!COMMENT THREE 2345678/012
       2        3 48,(I 48(I),I=1,48);TYPE 90,I 48,(I 48(!COMMENT FOUR 12345678/012
       2        4I),I=1,48);WRITE OUTPUT TAPE 48,90,I 48,!COMMENT FIVE 12345678/012
       2        5(I 48(I),I=1,48);READ DRUM 48,48,I 48,(I!COMMENT SIX 012345678/012
       2        6 48(I),I=1,48);READ TAPE 48,I 48,(I 48(I!COMMENT SEVEN 2345678/012
       2        7),I=1,48);WRITE DRUM 48,48,I 48,(I 48(I)!COMMENT EIGHT 2345678/012
       2        8,I=1,48)!COMMENT NINE /012345678/012345678/012345678/012345678/012
       3         WRITE TAPE 48,I 48,(I 48(I),I=1,48);IF(I!COMMENT ONE 012345678/012
       3        1 48)GO TO 90;READ(48,90)I 48,(I 48(I),I=!COMMENT TWO 012345678/012
       3        21,48);READ(48,I 48)I 48,(I 48(I),I=1,48)!COMMENT THREE 2345678/012
       3        3;READ(48,I 48,END=90,ERR=90)I 48,(I 48(I!COMMENT FOUR 12345678/012
       3        4),I=1,48);READ(48,90,END=90,ERR=90)I 48,!COMMENT FIVE 12345678/012
       3        5(I 48(I),I=1,48);WRITE(48,90)I 48,(I 48(!COMMENT SIX 012345678/012
       3        6I),I=1,48);WRITE(48,I 48)I 48,(I 48(I),I!COMMENT SEVEN 2345678/012
       3        7=1,48);WRITE(48)I 48,(I 48(I),I=1,48);RE!COMMENT EIGHT 2345678/012
       3        8AD(48)I 48,(I 48(I),I=1,48)!COMMENT NINE 8/012345678/012345678/012
       4         READ 90,I 48,(I 48(I),I=1,48);READ 90;RE!COMMENT ONE 012345678/012
       4        1AD(48#48,90)I 48,(I 48(I),I=1,48);READ(4!COMMENT TWO 012345678/012
       4        28#48)I 48,(I 48(I),I=1,48);WRITE 90,I 48!COMMENT THREE 2345678/012
       4        3,(I 48(I),I=1,48); WRITE 90;WRITE(48#48,!COMMENT FOUR 12345678/012
       4        490)I48,(I 48(I),I=1,48);WRITE(48#48,I 48!COMMENT FIVE 12345678/012
       4        5)I 48,(I 48(I),I=1,48);READ(48#48,I 48)I!COMMENT SIX 012345678/012
       4        6 48,(I 48(I),I=1,48);REREAD 90,I 48,(I 4!COMMENT SEVEN 2345678/012
       4        78(I),I=1,48);FIND(48#48);ACCEPT 90,I 48,!COMMENT EIGHT 2345678/012
       4        8(I 48(I),I=1,48);ACCEPT 90!COMMENT NINE 78/012345678/012345678/012
       5         PRINT 90,I 48,(I 48(I),I=1,48);PRINT 90;!COMMENT ONE 012345678/012
       5        1PUNCH 90,I 48,(I 48(I),I=1,48);PUNCH 90;!COMMENT TWO 012345678/012
       5        2TYPE 90,I 48,(I 48(I),I=1,48);TYPE 90;EN!COMMENT THREE 2345678/012
       5        3CODE(48,90,I 48)I 48,(I 48(I),I=1,48);DE!COMMENT FOUR 12345678/012
       5        4CODE(48,90,I 48)I 48,(I 48(I),I=1,48)!COMMENT FIVE 8/012345678/012
       6     100 CONTINUE
       7      90 CONTINUE
       8      81 CONTINUE
       9      73 CONTINUE
       10     66 CONTINUE
       11     60 CONTINUE
       12     55 CONTINUE
       13     51 CONTINUE
       14     48 CONTINUE
       15     46 CONTINUE
       16     45 CONTINUE
       17        END
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page   69
                                                       COMENT FUNCTION

       Statement
       Number        Referenced by

           45      -16
           46      -15
           48      -14
           51      -13
           55      -12
           60      -11
           66      -10
           73       -9
           81       -8
           90        1     2     3     4     5    -7
          100       -6
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page   70
                                                       COMENT FUNCTION

       Word          Contained in

       ACCEPT        1     4
       ACCEPTTAPE    1
       ASSIGN        1
       COMENT        1
       CONTINUE      6     7     8     9    10    11    12    13    14
                    15    16
       DECODE        5
       DO            1
       DRUM          2
       ENCODE        5
       END          -3    17
       ERR          -3
       FIND          4
       FREQUENCY     1
       FUNCTION      1
       I            -1    -2    -3    -4    -5
       IFACCUMULA    1
       IFDIVIDECH    1
       IFQUOTIENT    1
       I48           1     3     4
       PRINT         1     5
       PUNCH         2     5
       PUNCHTAPE     2
       READ          2     3     4
       READINPUTT    2
       REREAD        4
       TAPE          2     3
       TO            1
       TYPE          2     5
       WRITE         2     3     4
       WRITEOUTPU    2
       1             1     2     3     4     5
       48            1     2     3     4     5
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page   71
       STATEMENTS WHICH EXPAND                                  EXPAND

           CRENBR(EXPAND/STATEMENTS WHICH EXPAND)B22I2200
       1         DO99A=1,2,3;DO99B=1,2,3;DO99C=1,2,3;DO99D=1,2,3;DO!COMMENT99999999
       1        199E=1,2,3;DO99F=1,2,3;DO99G=1,2,3;DO99H=1,2,3;DO99!MMENT9999999999
       1        2I=1,2,3;DO99J=1,2,3;DO99K=1,2,3;DO99L=1,2,3;DO99M=!COMMENT99999999
       1        31,2,3;DO99N=1,2,3;DO99O=1,2,3;DO99P=1,2,3;DO99Q=1,!COMMENT99999999
       1        42,3;DO99R=1,2,3;DO99S=1,2,3;DO99T=1,2,3;DO99U=1,2,!COMMENT99999999
       1        53;DO99V=1,2,3;DO99W=1,2,3;DO99X=1,2,3;DO99Y=1,2,3;!COMMENT99999999
       1        6DO99Z=1,2,3;DO99A=1,2,3;DO99B=1,2,3;DO99C=1,2,3;DO!COMMENT99999999
       1        799D=1,2,3;DO99E=1,2,3;DO99F=1,2,3;DO99G=1,2,3;DO99!MMENT9999999999
       1        8H=1,2,3;DO99I=1,2,3;DO99J=1,2,3;DO99K=1,2,3!         COMMENT999999
       2         DO99AA=1,2,3;DO99BB=1,2,3;DO99CC=1,2,3;DO99DD=1,2,!COMMENT99999999
       2        13;DO99EE=1,2,3;DO99FF=1,2,3;DO99GG=1,2,3;DO99HH=1,!COMMENT99999999
       2        22,3;DO99II=1,2,3;DO99JJ=1,2,3;DO99KK=1,2,3;DO99LL=!COMMENT99999999
       2        31,2,3;DO99MM=1,2,3;DO99NN=1,2,3;DO99OO=1,2,3;DO99P!COMMENT99999999
       2        4P=1,2,3;DO99QQ=1,2,3;DO99RR=1,2,3;DO99SS=1,2,3;DO9!COMMENT99999999
       2        59TT=1,2,3;DO99UU=1,2,3;DO99VV=1,2,3;DO99WW=1,2,3;D!  COMMENT999999
       2        6O99XX=1,2,3;DO99YY=1,2,3;DO99ZZ=1,2,3;DO99AA=1,2,3!COMMENT99999999
       2        7;DO99BB=1,2,3;DO99CC=1,2,3;DO99DD=1,2,3;DO99EE=1,2!COMMENT99999999
       2        8,3;DO99FF=1,2,3;DO99GG=1,2,3;DO99HH=1,2,3!           COMMENT999999
       3         IF(A)99,99,99;IF(B)99,99,99;IF(C)99,99,99;IF(D)99,!999999999999999
       3        199,99;IF(E)99,99,99;IF(F)99,99,99;IF(G)99,99,99;IF!999999999999999
       3        2(H)99,99,99;IF(I)99,99,99;IF(J)99,99,99;IF(K)99,99!999999999999999
       3        3,99;IF(L)99,99,99;IF(M)99,99,99;IF(N)99,99,99;IF(O!999999999999999
       3        4)99,99,99;IF(P)99,99,99;IF(Q)99,99,99;IF(R)99,99,9!999999999999999
       3        59;IF(S)99,99,99;IF(T)99,99,99;IF(U)99,99,99;IF(V)9!999999999999999
       3        69,99,99;IF(W)99,99,99;IF(X)99,99,99;IF(Y)99,99,99;!999999999999999
       3        7IF(Z)99,99,99;IF(A)99,99,99;IF(B)99,99,99;IF(C)99,!999999999999999
       3        899,99!       COMMENT9999999999999999999999999999999999999999999999
       4         IF(AA)99,99,99;IF(BB)99,99,99;IF(CC)99,99,99;IF(DD!999999999999999
       4        1)99,99,99;IF(EE)99,99,99;IF(FF)99,99,99;IF(GG)99,9!999999999999999
       4        29,99;IF(HH)99,99,99;IF(II)99,99,99;IF(JJ)99,99,99;!999999999999999
       4        3IF(KK)99,99,99;IF(LL)99,99,99;IF(MM)99,99,99;IF(NN!999999999999999
       4        4)99,99,99;IF(OO)99,99,99;IF(PP)99,99,99;IF(QQ)99,9!999999999999999
       4        59,99;IF(RR)99,99,99;IF(SS)99,99,99;IF(TT)99,99,99;!999999999999999
       4        6IF(UU)99,99,99;IF(VV)99,99,99;IF(WW)99,99,99;IF(XX!999999999999999
       4        7)99,99,99;IF(YY)99,99,99;IF(ZZ)99,99,99;IF(AA)99,9!999999999999999
       4        89,99;IF(BB)99,99,99!OMMENT9999999999999999999999999999999999999999
       5         GOTO99;GOTO99;GOTO99;GOTO99;GOTO99;GOTO99;GOTO99;G!T99999999999999
       5        1OTO99;GOTO99;GOTO99;GOTO99;GOTO99;GOTO99;GOTO99;GO!T99999999999999
       5        2TO99;GOTO99;GOTO99;GOTO99;GOTO99;GOTO99;GOTO99;GOT!T99999999999999
       5        3O99;GOTO99;GOTO99;GOTO99;GOTO99;GOTO99;GOTO99;GOTO!T99999999999999
       5        499;GOTO99;GOTO99;GOTO99;GOTO99;GOTO99;GOTO99;GOTO9!999999999999999
       5        59;GOTO99;GOTO99;GOTO99;GOTO99;GOTO99;GOTO99;GOTO99!T99999999999999
       5        6;GOTO99;GOTO99;GOTO99;GOTO99;GOTO99;GOTO99;GOTO99;!T99999999999999
       5        7GOTO99;GOTO99;GOTO99;GOTO99;GOTO99;GOTO99;GOTO99;G!T99999999999999
       5        8OTO99;GOTO99;GOTO99;GOTO99;GOTO99;GOTO99;GOTO99!MENT99999999999999
       6         GOTO 99;GOTO 99;GOTO 99;GOTO 99;GOTO 99;GOTO 99;GO!ENT999999999999
       6        1TO 99;GOTO 99;GOTO 99;GOTO 99;GOTO 99;GOTO 99;GOTO!ENT999999999999
       6        2 99;GOTO 99;GOTO 99;GOTO 99;GOTO 99;GOTO 99;GOTO 9!T99999999999999
       6        39;GOTO 99;GOTO 99;GOTO 99;GOTO 99;GOTO 99;GOTO 99;!ENT999999999999
       6        4GOTO 99;GOTO 99;GOTO 99;GOTO 99;GOTO 99;GOTO 99;GO!ENT999999999999
       6        5TO 99;GOTO 99;GOTO 99;GOTO 99;GOTO 99;GOTO 99;GOTO!ENT999999999999
       6        6 99;GOTO 99;GOTO 99;GOTO 99;GOTO 99;GOTO 99;GOTO 9!T99999999999999
       6        79;GOTO 99;GOTO 99;GOTO 99;GOTO 99;GOTO 99;GOTO 99;!ENT999999999999
       6        8GOTO 99;GOTO 99;GOTO 99;GOTO 99;GOTO 99;GOTO 99!OMMENT999999999999
       7         DO9999A=1,2,3;DO9999B=1,2,3;DO9999C=1,2,3;DO9999D=1,2,3;DO!COMMENT
       7        19999E=1,2,3;DO9999F=1,2,3;DO9999G=1,2,3;DO9999H=1,2,3;DO9999!MMENT
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page   72
       STATEMENTS WHICH EXPAND                     EXPAND MAIN PROGRAM

       7        2I=1,2,3;DO9999J=1,2,3;DO9999K=1,2,3;DO9999L=1,2,3;DO9999M=!COMMENT
       7        31,2,3;DO9999N=1,2,3;DO9999O=1,2,3;DO9999P=1,2,3;DO9999Q=1,!COMMENT
       7        42,3;DO9999R=1,2,3;DO9999S=1,2,3;DO9999T=1,2,3;DO9999U=1,2,!COMMENT
       7        53;DO9999V=1,2,3;DO9999W=1,2,3;DO9999X=1,2,3;DO9999Y=1,2,3;!COMMENT
       7        6DO9999Z=1,2,3;DO9999A=1,2,3;DO9999B=1,2,3;DO9999C=1,2,3;DO!COMMENT
       7        79999D=1,2,3;DO9999E=1,2,3;DO9999F=1,2,3;DO9999G=1,2,3;DO9999!MMENT
       7        8H=1,2,3;DO9999I=1,2,3;DO9999J=1,2,3;DO9999K=1,2,3!         COMMENT
       8         DO9999AA=1,2,3;DO9999BB=1,2,3;DO9999CC=1,2,3;DO9999DD=1,2,!COMMENT
       8        13;DO9999EE=1,2,3;DO9999FF=1,2,3;DO9999GG=1,2,3;DO9999HH=1,!COMMENT
       8        22,3;DO9999II=1,2,3;DO9999JJ=1,2,3;DO9999KK=1,2,3;DO9999LL=!COMMENT
       8        31,2,3;DO9999MM=1,2,3;DO9999NN=1,2,3;DO9999OO=1,2,3;DO9999P!COMMENT
       8        4P=1,2,3;DO9999QQ=1,2,3;DO9999RR=1,2,3;DO9999SS=1,2,3;DO9999
       8        5 TT=1,2,3;DO9999UU=1,2,3;DO9999VV=1,2,3;DO9999WW=1,2,3;D!  COMMENT
       8        6O9999XX=1,2,3;DO9999YY=1,2,3;DO9999ZZ=1,2,3;DO9999AA=1,2,3!COMMENT
       8        7;DO9999BB=1,2,3;DO9999CC=1,2,3;DO9999DD=1,2,3;DO9999EE=1,2!COMMENT
       8        8,3;DO9999FF=1,2,3;DO9999GG=1,2,3;DO9999HH=1,2,3!           COMMENT
       9         IF(A)9999,9999,9999;IF(B)9999,9999,9999;IF(C)9999,9999,9999;IF(D)9
       9        1999,9999,9999;IF(E)9999,9999,9999;IF(F)9999,9999,9999;IF(G)9999,99
       9        299,9999;IF(H)9999,9999,9999;IF(I)9999,9999,9999;IF(J)9999,9999,999
       9        39;IF(K)9999,9999,9999;IF(L)9999,9999,9999;IF(M)9999,9999,9999;IF(N
       9        4)9999,9999,9999;IF(O)9999,9999,9999;IF(P)9999,9999,9999;IF(Q)9999,
       9        59999,9999;IF(R)9999,9999,9999;IF(S)9999,9999,9999;IF(T)9999,9999,9
       9        6999;IF(U)9999,9999,9999;IF(V)9999,9999,9999;IF(W)9999,9999,9999;IF
       9        7(X)9999,9999,9999;IF(Y)9999,9999,9999;IF(Z)9999,9999,9999;IF(A)999
       9        89,9999,9999;IF(B)9999,9999,9999;IF(C)9999,9999,9999!       COMMENT
       10        IF(AA)9999,9999,9999;IF(BB)9999,9999,9999;IF(CC)9999,9999,9999;IF(
       10       1DD)9999,9999,9999;IF(EE)9999,9999,9999;IF(FF)9999,9999,9999;IF(GG)
       10       29999,9999,9999;IF(HH)9999,9999,9999;IF(II)9999,9999,9999;IF(JJ)999
       10       39,9999,9999;IF(KK)9999,9999,9999;IF(LL)9999,9999,9999;IF(MM)9999,9
       10       4999,9999;IF(NN)9999,9999,9999;IF(OO)9999,9999,9999;IF(PP)9999,9999
       10       5,9999;IF(QQ)9999,9999,9999;IF(RR)9999,9999,9999;IF(SS)9999,9999,99
       10       699;IF(TT)9999,9999,9999;IF(UU)9999,9999,9999;IF(VV)9999,9999,9999;
       10       7IF(WW)9999,9999,9999;IF(XX)9999,9999,9999;IF(YY)9999,9999,9999;IF(
       10       8ZZ)9999,9999,9999;IF(AA)9999,9999,9999;IF(BB)9999,9999,9999!OMMENT
       11        GOTO9999;GOTO9999;GOTO9999;GOTO9999;GOTO9999;GOTO9999;GOTO9999;G!T
       11       1OTO9999;GOTO9999;GOTO9999;GOTO9999;GOTO9999;GOTO9999;GOTO9999;GO!T
       11       2TO9999;GOTO9999;GOTO9999;GOTO9999;GOTO9999;GOTO9999;GOTO9999;GOT!T
       11       3O9999;GOTO9999;GOTO9999;GOTO9999;GOTO9999;GOTO9999;GOTO9999;GOTO!T
       11       49999;GOTO9999;GOTO9999;GOTO9999;GOTO9999;GOTO9999;GOTO9999;GOTO999
       11       59;GOTO9999;GOTO9999;GOTO9999;GOTO9999;GOTO9999;GOTO9999;GOTO9999!T
       11       6;GOTO9999;GOTO9999;GOTO9999;GOTO9999;GOTO9999;GOTO9999;GOTO9999;!T
       11       7GOTO9999;GOTO9999;GOTO9999;GOTO9999;GOTO9999;GOTO9999;GOTO9999;G!T
       11       8OTO9999;GOTO9999;GOTO9999;GOTO9999;GOTO9999;GOTO9999;GOTO9999!MENT
       12        GOTO 9999;GOTO 9999;GOTO 9999;GOTO 9999;GOTO 9999;GOTO 9999;GO!ENT
       12       1TO 9999;GOTO 9999;GOTO 9999;GOTO 9999;GOTO 9999;GOTO 9999;GOTO!ENT
       12       2 9999;GOTO 9999;GOTO 9999;GOTO 9999;GOTO 9999;GOTO 9999;GOTO 9999
       12       3 ;GOTO 9999;GOTO 9999;GOTO 9999;GOTO 9999;GOTO 9999;GOTO 9999;!ENT
       12       4GOTO 9999;GOTO 9999;GOTO 9999;GOTO 9999;GOTO 9999;GOTO 9999;GO!ENT
       12       5TO 9999;GOTO 9999;GOTO 9999;GOTO 9999;GOTO 9999;GOTO 9999;GOTO!ENT
       12       6 9999;GOTO 9999;GOTO 9999;GOTO 9999;GOTO 9999;GOTO 9999;GOTO 9999
       12       7 ;GOTO 9999;GOTO 9999;GOTO 9999;GOTO 9999;GOTO 9999;GOTO 9999;!ENT
       12       8GOTO 9999;GOTO 9999;GOTO 9999;GOTO 9999;GOTO 9999;GOTO 9999!OMMENT
       13   9999 CONTINUE
       14     99 CONTINUE
       15        END
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page   73
       STATEMENTS WHICH EXPAND                     EXPAND MAIN PROGRAM

       Statement
       Number        Referenced by

           99        1     2     3     4     5     6   -14
         9999        7     8     9    10    11    12   -13
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page   74
       STATEMENTS WHICH EXPAND                     EXPAND MAIN PROGRAM

       Word          Contained in

       A            -1     3    -7     9
       AA           -2     4    -8    10
       B            -1     3    -7     9
       BB           -2     4    -8    10
       C            -1     3    -7     9
       CC           -2     4    -8    10
       CONTINUE     13    14
       D            -1     3    -7     9
       DD           -2     4    -8    10
       DO            1     2     7     8
       E            -1     3    -7     9
       EE           -2     4    -8    10
       END          15
       F            -1     3    -7     9
       FF           -2     4    -8    10
       G            -1     3    -7     9
       GG           -2     4    -8    10
       H            -1     3    -7     9
       HH           -2     4    -8    10
       I            -1     3    -7     9
       II           -2     4    -8    10
       J            -1     3    -7     9
       JJ           -2     4    -8    10
       K            -1     3    -7     9
       KK           -2     4    -8    10
       L            -1     3    -7     9
       LL           -2     4    -8    10
       M            -1     3    -7     9
       MM           -2     4    -8    10
       N            -1     3    -7     9
       NN           -2     4    -8    10
       O            -1     3    -7     9
       OO           -2     4    -8    10
       P            -1     3    -7     9
       PP           -2     4    -8    10
       Q            -1     3    -7     9
       QQ           -2     4    -8    10
       R            -1     3    -7     9
       RR           -2     4    -8    10
       S            -1     3    -7     9
       SS           -2     4    -8    10
       T            -1     3    -7     9
       TT           -2     4    -8    10
       U            -1     3    -7     9
       UU           -2     4    -8    10
       V            -1     3    -7     9
       VV           -2     4    -8    10
       W            -1     3    -7     9
       WW           -2     4    -8    10
       X            -1     3    -7     9
       XX           -2     4    -8    10
       Y            -1     3    -7     9
       YY           -2     4    -8    10
       Z            -1     3    -7     9
       ZZ           -2     4    -8    10
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page   75
       STATEMENTS WHICH EXPAND                     EXPAND MAIN PROGRAM

       Word          Contained in

       1             1     2     7     8
       2             1     2     7     8
       3             1     2     7     8
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page   76
       DEMONSTRATE FORTRAN 77 STATEMENTS             FTRN77 SUBROUTINE

       1         SUBROUTINE FTRN77
           C     RENBR(/DEMONSTRATE FORTRAN 77 STATEMENTS)
           C
           C     *********************************************
           C     *                                           *
           C     *  SHORT TEST OF STATEMENTS WHICH USE ERR=  *
           C     *                                           *
           C     *********************************************
           C
           C     STATEMENTS IN WHICH UNIT NUMBER IS RIGHT OF WORD
       2         BACKFILE 48;BACKFILE(ERR=90);BACKFILE(48,ERR=90)
       3         BACKSPACE 48;BACKSPACE(ERR=90);BACKSPACE(48,ERR=90)
       4         ENDFILE 48;ENDFILE(ERR=90);ENDFILE(48,ERR=90)
       5         REWIND 48;REWIND(ERR=90);REWIND(48,ERR=90)
       6         SKIPFILE 48;SKIPFILE(ERR=90);SKIPFILE(48,ERR=90)
       7         SKIPRECORD 48;SKIPRECORD(ERR=90);SKIPRECORD(48,ERR=90)
       8         UNLOAD 48;UNLOAD(ERR=90);UNLOAD(48,ERR=90)
           C
           C     STATEMENTS IN WHICH FORMAT NUMBER IS RIGHT OF WORD
       9         ACCEPT 90;ACCEPT 90,48;ACCEPT(ERR=90)48
       10        PRINT 90;PRINT 90,48;PRINT(ERR=90)48
       11        PUNCH 90;PUNCH 90,48;PUNCH(ERR=90)48
       12        REREAD 90;REREAD 90,48;REREAD(ERR=90)48
       13        TYPE 90;TYPE 90,48;TYPE(ERR=90)48
           C
           C     STATEMENTS IN WHICH (NUMBER,NUMBER CAN FOLLOW WORD
       14        READ 90;READ 90,48;READ(ERR=90)48;READ(48,90,ERR=90)
       15        WRITE 90;WRITE 90,48;WRITE(ERR=90)48;WRITE(48,90,ERR=90)
           C
           C     STATEMENTS IN WHICH PARENTHESIS MUST FOLLOW WORD
       16        CLOSE(ERR=90)
       17        DECODE(48,90,48,ERR=90)48
       18        ENCODE(48,90,48,ERR=90)48
       19        FIND(ERR=90)
       20        INQUIRE(ERR=90)
       21        OPEN(ERR=90)
           C
           C     ALL POSSIBLE CLAUSES WHICH USE STATEMENT NUMBER
       22        READ(FMT=90,ERR=90,END=90,UNIT=48,IOSTAT=48)48
       23        READ(IOSTAT=48,UNIT=48,END=90,ERR=90,FMT=90)48
           C
           C     **************************************
           C     *                                    *
           C     *  TRY VARIATIONS OF EACH STATEMENT  *
           C     *                                    *
           C     **************************************
           C
           C     ACCEPT STATEMENTS
       24        ACCEPT(FMT=90,END=90,ERR=90,IOSTAT=48)
       25        ACCEPT(FMT=90,END=90,ERR=90,IOSTAT=48)48
       26        ACCEPT(FMT=*,END=90,ERR=90,IOSTAT=48)
       27        ACCEPT(FMT=*,END=90,ERR=90,IOSTAT=48)48
       28        ACCEPT 90
       29        ACCEPT 90,48
       30        ACCEPT *
       31        ACCEPT *,48
           C
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page   77
       DEMONSTRATE FORTRAN 77 STATEMENTS             FTRN77 SUBROUTINE

           C     ASSIGN STATEMENT
       32        ASSIGN 90 TO 48
           C
           C     BACKFILE STATEMENTS
       33        BACKFILE 48
       34        BACKFILE(UNIT=48)
       35        BACKFILE(ERR=90)
       36        BACKFILE(UNIT=48,ERR=90)
       37        BACKFILE(ERR=90,UNIT=48)
       38        BACKFILE(UNIT=48,ERR=90,IOSTAT=48)
       39        BACKFILE(ERR=90,UNIT=48,IOSTAT=48)
       40        BACKFILE(UNIT=48,IOSTAT=48,ERR=90)
       41        BACKFILE(48,ERR=90)
       42        BACKFILE(48,IOSTAT=48)
       43        BACKFILE(48,IOSTAT=48,ERR=90)
       44        BACKFILE(48,ERR=90,IOSTAT=48)
           C
           C     BACKSPACE STATEMENTS
       45        BACKSPACE 48
       46        BACKSPACE(UNIT=48)
       47        BACKSPACE(ERR=90)
       48        BACKSPACE(UNIT=48,ERR=90)
       49        BACKSPACE(ERR=90,UNIT=48)
       50        BACKSPACE(UNIT=48,ERR=90,IOSTAT=48)
       51        BACKSPACE(ERR=90,UNIT=48,IOSTAT=48)
       52        BACKSPACE(UNIT=48,IOSTAT=48,ERR=90)
       53        BACKSPACE(48,ERR=90)
       54        BACKSPACE(48,IOSTAT=48)
       55        BACKSPACE(48,IOSTAT=48,ERR=90)
       56        BACKSPACE(48,ERR=90,IOSTAT=48)
           C
           C     CLOSE STATEMENTS
       57        CLOSE(UNIT=48,ERR=90)
       58        CLOSE(ERR=90,UNIT=48)
       59        CLOSE(48,ERR=90)
           C
           C     DECODE STATEMENTS
       60        DECODE(48,90,48)48
       61        DECODE(48,90,48)48
       62        DECODE(48,90,48,ERR=90)48
       63        DECODE(48,90,48,IOSTAT=48)48
       64        DECODE(48,90,48,ERR=90,IOSTAT=48)48
       65        DECODE(48,90,48,IOSTAT=48,ERR=90)48
           C
           C     DO STATEMENTS
       66        DO 90 I=48,48,48
       67        DO 90,I=48,48,48
           C
           C     ENCODE STATEMENTS
       68        ENCODE(48,90,48)48
       69        ENCODE(48,90,48)48
       70        ENCODE(48,90,48,ERR=90)48
       71        ENCODE(48,90,48,IOSTAT=48)48
       72        ENCODE(48,90,48,ERR=90,IOSTAT=48)48
       73        ENCODE(48,90,48,IOSTAT=48,ERR=90)48
           C
           C     ENDFILE STATEMENTS
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page   78
       DEMONSTRATE FORTRAN 77 STATEMENTS             FTRN77 SUBROUTINE

       74        ENDFILE 48
       75        ENDFILE(UNIT=48,ERR=90,IOSTAT=48)
       76        ENDFILE(ERR=90,UNIT=48,IOSTAT=48)
       77        ENDFILE(48,ERR=90)
       78        ENDFILE(48,IOSTAT=48)
       79        ENDFILE(48,ERR=90,IOSTAT=48)
       80        ENDFILE(48,IOSTAT=48,ERR=90)
           C
           C     FIND STATEMENTS
       81        FIND(UNIT=48,REC=48,ERR=90,IOSTAT=48)
       82        FIND(IOSTAT=48,ERR=90,REC=48,UNIT=48)
       83        FIND(48,REC=48,ERR=90,IOSTAT=48)
       84        FIND(48,IOSTAT=48,ERR=90,REC=48)
       85        FIND(48'48,ERR=90,IOSTAT=48)
       86        FIND(48'48,IOSTAT=48,ERR=90)
           C
           C     INQUIRE STATEMENTS
       87        INQUIRE(UNIT=48,ERR=90,IOSTAT=48)
       88        INQUIRE(IOSTAT=48,ERR=90,UNIT=48)
           C
           C     OPEN STATEMENTS
       89        OPEN(UNIT=48,ERR=90)
       90        OPEN(ERR=90,UNIT=48)
       91        OPEN(48,ERR=90)
           C
           C     PRINT STATEMENTS
       92        PRINT(FMT=90,ERR=90,IOSTAT=48)48
       93        PRINT(ERR=90,FMT=90,IOSTAT=48)48
       94        PRINT(IOSTAT=48,ERR=90,FMT=90)48
       95        PRINT(IOSTAT=48,FMT=90,ERR=90)48
       96        PRINT(FMT=*,ERR=90,IOSTAT=48)48
       97        PRINT(IOSTAT=48,ERR=90,FMT=*)48
       98        PRINT(FMT=90)
       99        PRINT(ERR=90)
       100       PRINT(FMT=90,ERR=90)
       101       PRINT(ERR=90,FMT=90)
       102       PRINT 90,48
       103       PRINT *,48
       104       PRINT 90
           C
           C     PUNCH STATEMENTS
       105       PUNCH(FMT=90,ERR=90,IOSTAT=48)48
       106       PUNCH(ERR=90,FMT=90,IOSTAT=48)48
       107       PUNCH(IOSTAT=48,ERR=90,FMT=90)48
       108       PUNCH(IOSTAT=48,FMT=90,ERR=90)48
       109       PUNCH(FMT=*,ERR=90,IOSTAT=48)48
       110       PUNCH(IOSTAT=48,ERR=90,FMT=*)48
       111       PUNCH(FMT=90)
       112       PUNCH(ERR=90)
       113       PUNCH(FMT=90,ERR=90)
       114       PUNCH(ERR=90,FMT=90)
       115       PUNCH 90,48
       116       PUNCH *,48
       117       PUNCH 90
           C
           C     READ STATEMENTS
       118       READ(UNIT=48,FMT=90,REC=48,ERR=90,END=90,IOSTAT=48)48
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page   79
       DEMONSTRATE FORTRAN 77 STATEMENTS             FTRN77 SUBROUTINE

       119       READ(IOSTAT=48,END=90,ERR=90,REC=48,FMT=90,UNIT=48)48
       120       READ(UNIT=*,FMT=90,REC=48,ERR=90,END=90,IOSTAT=48)48
       121       READ(IOSTAT=48,END=90,ERR=90,REC=48,FMT=90,UNIT=*)48
       122       READ(UNIT=48,FMT=*,REC=48,ERR=90,END=90,IOSTAT=48)48
       123       READ(IOSTAT=48,END=90,ERR=90,REC=48,FMT=*,UNIT=48)48
       124       READ(UNIT=*,FMT=*,REC=48,ERR=90,END=90,IOSTAT=48)48
       125       READ(IOSTAT=48,END=90,ERR=90,REC=48,FMT=*,UNIT=*)48
       126       READ(48,FMT=90,REC=48,ERR=90,END=90,IOSTAT=48)48
       127       READ(48,IOSTAT=48,END=90,ERR=90,REC=48,FMT=90)48
       128       READ(48,FMT=*,REC=48,ERR=90,END=90,IOSTAT=48)48
       129       READ(48,IOSTAT=48,END=90,ERR=90,REC=48,FMT=*)48
       130       READ(48,90,REC=48,ERR=90,END=90,IOSTAT=48)48
       131       READ(48,90,IOSTAT=48,END=90,ERR=90,REC=48)48
       132       READ(48'48,FMT=90,ERR=90,END=90,IOSTAT=48)48
       133       READ(48'48,IOSTAT=48,END=90,ERR=90,FMT=90)48
       134       READ(48'48,90,ERR=90,END=90,IOSTAT=48)48
       135       READ(48'48,90,IOSTAT=48,END=90,ERR=90)48
       136       READ 90,48
       137       READ *,48
       138       READ 90
           C
           C     REREAD STATEMENTS
       139       REREAD(FMT=90,ERR=90,IOSTAT=48)48
       140       REREAD(ERR=90,FMT=90,IOSTAT=48)48
       141       REREAD(IOSTAT=48,ERR=90,FMT=90)48
       142       REREAD(IOSTAT=48,FMT=90,ERR=90)48
       143       REREAD(FMT=*,ERR=90,IOSTAT=48)48
       144       REREAD(IOSTAT=48,ERR=90,FMT=*)48
       145       REREAD(FMT=90)
       146       REREAD(ERR=90)
       147       REREAD(FMT=90,ERR=90)
       148       REREAD(ERR=90,FMT=90)
       149       REREAD 90,48
       150       REREAD *,48
       151       REREAD 90
           C
           C     REWIND STATEMENTS
       152       REWIND 48
       153       REWIND(UNIT=48)
       154       REWIND(ERR=90)
       155       REWIND(UNIT=48,ERR=90)
       156       REWIND(ERR=90,UNIT=48)
       157       REWIND(UNIT=48,ERR=90,IOSTAT=48)
       158       REWIND(ERR=90,UNIT=48,IOSTAT=48)
       159       REWIND(UNIT=48,IOSTAT=48,ERR=90)
       160       REWIND(48,ERR=90)
       161       REWIND(48,IOSTAT=48)
       162       REWIND(48,IOSTAT=48,ERR=90)
       163       REWIND(48,ERR=90,IOSTAT=48)
           C
           C     SKIPFILE STATEMENTS
       164       SKIPFILE 48
       165       SKIPFILE(UNIT=48)
       166       SKIPFILE(ERR=90)
       167       SKIPFILE(UNIT=48,ERR=90)
       168       SKIPFILE(ERR=90,UNIT=48)
       169       SKIPFILE(UNIT=48,ERR=90,IOSTAT=48)
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page   80
       DEMONSTRATE FORTRAN 77 STATEMENTS             FTRN77 SUBROUTINE

       170       SKIPFILE(ERR=90,UNIT=48,IOSTAT=48)
       171       SKIPFILE(UNIT=48,IOSTAT=48,ERR=90)
       172       SKIPFILE(48,ERR=90)
       173       SKIPFILE(48,IOSTAT=48)
       174       SKIPFILE(48,IOSTAT=48,ERR=90)
       175       SKIPFILE(48,ERR=90,IOSTAT=48)
           C
           C     SKIPRECORD STATEMENTS
       176       SKIPRECORD 48
       177       SKIPRECORD(UNIT=48)
       178       SKIPRECORD(ERR=90)
       179       SKIPRECORD(UNIT=48,ERR=90)
       180       SKIPRECORD(ERR=90,UNIT=48)
       181       SKIPRECORD(UNIT=48,ERR=90,IOSTAT=48)
       182       SKIPRECORD(ERR=90,UNIT=48,IOSTAT=48)
       183       SKIPRECORD(UNIT=48,IOSTAT=48,ERR=90)
       184       SKIPRECORD(48,ERR=90)
       185       SKIPRECORD(48,IOSTAT=48)
       186       SKIPRECORD(48,IOSTAT=48,ERR=90)
       187       SKIPRECORD(48,ERR=90,IOSTAT=48)
           C
           C     TYPE STATEMENTS
       188       TYPE(FMT=90,ERR=90,IOSTAT=48)48
       189       TYPE(ERR=90,FMT=90,IOSTAT=48)48
       190       TYPE(IOSTAT=48,ERR=90,FMT=90)48
       191       TYPE(IOSTAT=48,FMT=90,ERR=90)48
       192       TYPE(FMT=*,ERR=90,IOSTAT=48)48
       193       TYPE(IOSTAT=48,ERR=90,FMT=*)48
       194       TYPE(FMT=90)
       195       TYPE(ERR=90)
       196       TYPE(FMT=90,ERR=90)
       197       TYPE(ERR=90,FMT=90)
       198       TYPE 90,48
       199       TYPE *,48
       200       TYPE 90
           C
           C     UNLOAD STATEMENTS
       201       UNLOAD 48
       202       UNLOAD(UNIT=48)
       203       UNLOAD(ERR=90)
       204       UNLOAD(UNIT=48,ERR=90)
       205       UNLOAD(ERR=90,UNIT=48)
       206       UNLOAD(UNIT=48,ERR=90,IOSTAT=48)
       207       UNLOAD(ERR=90,UNIT=48,IOSTAT=48)
       208       UNLOAD(UNIT=48,IOSTAT=48,ERR=90)
       209       UNLOAD(48,ERR=90)
       210       UNLOAD(48,IOSTAT=48)
       211       UNLOAD(48,IOSTAT=48,ERR=90)
       212       UNLOAD(48,ERR=90,IOSTAT=48)
           C
           C     WRITE STATEMENTS
       213       WRITE(UNIT=48,FMT=90,REC=48,ERR=90,END=90,IOSTAT=48)48
       214       WRITE(IOSTAT=48,END=90,ERR=90,REC=48,FMT=90,UNIT=48)48
       215       WRITE(UNIT=*,FMT=90,REC=48,ERR=90,END=90,IOSTAT=48)48
       216       WRITE(IOSTAT=48,END=90,ERR=90,REC=48,FMT=90,UNIT=*)48
       217       WRITE(UNIT=48,FMT=*,REC=48,ERR=90,END=90,IOSTAT=48)48
       218       WRITE(IOSTAT=48,END=90,ERR=90,REC=48,FMT=*,UNIT=48)48
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page   81
       DEMONSTRATE FORTRAN 77 STATEMENTS             FTRN77 SUBROUTINE

       219       WRITE(UNIT=*,FMT=*,REC=48,ERR=90,END=90,IOSTAT=48)48
       220       WRITE(IOSTAT=48,END=90,ERR=90,REC=48,FMT=*,UNIT=*)48
       221       WRITE(48,FMT=90,REC=48,ERR=90,END=90,IOSTAT=48)48
       222       WRITE(48,IOSTAT=48,END=90,ERR=90,REC=48,FMT=90)48
       223       WRITE(48,FMT=*,REC=48,ERR=90,END=90,IOSTAT=48)48
       224       WRITE(48,IOSTAT=48,END=90,ERR=90,REC=48,FMT=*)48
       225       WRITE(48,90,REC=48,ERR=90,END=90,IOSTAT=48)48
       226       WRITE(48,90,IOSTAT=48,END=90,ERR=90,REC=48)48
       227       WRITE(48'48,FMT=90,ERR=90,END=90,IOSTAT=48)48
       228       WRITE(48'48,IOSTAT=48,END=90,ERR=90,FMT=90)48
       229       WRITE(48'48,90,ERR=90,END=90,IOSTAT=48)48
       230       WRITE(48'48,90,IOSTAT=48,END=90,ERR=90)48
       231       WRITE 90,48
       232       WRITE *,48
       233       WRITE 90
           C
           C     NUMBERED STATEMENTS
       234   100 CONTINUE
       235    90 CONTINUE
       236    81 CONTINUE
       237    73 CONTINUE
       238    66 CONTINUE
       239    60 CONTINUE
       240    55 CONTINUE
       241    51 CONTINUE
       242    48 CONTINUE
       243    46 CONTINUE
       244    45 CONTINUE
       245       END
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page   82
       DEMONSTRATE FORTRAN 77 STATEMENTS             FTRN77 SUBROUTINE

       Statement
       Number        Referenced by

           45     -244
           46     -243
           48     -242
           51     -241
           55     -240
           60     -239
           66     -238
           73     -237
           81     -236
           90        2     3     4     5     6     7     8     9    10
                    11    12    13    14    15    16    17    18    19
                    20    21    22    23    24    25    26    27    28
                    29    32    35    36    37    38    39    40    41
                    43    44    47    48    49    50    51    52    53
                    55    56    57    58    59    60    61    62    63
                    64    65    66    67    68    69    70    71    72
                    73    75    76    77    79    80    81    82    83
                    84    85    86    87    88    89    90    91    92
                    93    94    95    96    97    98    99   100   101
                   102   104   105   106   107   108   109   110   111
                   112   113   114   115   117   118   119   120   121
                   122   123   124   125   126   127   128   129   130
                   131   132   133   134   135   136   138   139   140
                   141   142   143   144   145   146   147   148   149
                   151   154   155   156   157   158   159   160   162
                   163   166   167   168   169   170   171   172   174
                   175   178   179   180   181   182   183   184   186
                   187   188   189   190   191   192   193   194   195
                   196   197   198   200   203   204   205   206   207
                   208   209   211   212   213   214   215   216   217
                   218   219   220   221   222   223   224   225   226
                   227   228   229   230   231   233  -235
          100     -234
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page   83
       DEMONSTRATE FORTRAN 77 STATEMENTS             FTRN77 SUBROUTINE

       Word          Contained in

       ACCEPT        9    24    25    26    27    28    29    30    31
       ASSIGN       32
       BACKFILE      2    33    34    35    36    37    38    39    40
                    41    42    43    44
       BACKSPACE     3    45    46    47    48    49    50    51    52
                    53    54    55    56
       CLOSE        16    57    58    59
       CONTINUE    234   235   236   237   238   239   240   241   242
                   243   244
       DECODE       17    60    61    62    63    64    65
       DO           66    67
       ENCODE       18    68    69    70    71    72    73
       END         -22   -23   -24   -25   -26   -27  -118  -119  -120
                  -121  -122  -123  -124  -125  -126  -127  -128  -129
                  -130  -131  -132  -133  -134  -135  -213  -214  -215
                  -216  -217  -218  -219  -220  -221  -222  -223  -224
                  -225  -226  -227  -228  -229  -230   245
       ENDFILE       4    74    75    76    77    78    79    80
       ERR          -2    -3    -4    -5    -6    -7    -8    -9   -10
                   -11   -12   -13   -14   -15   -16   -17   -18   -19
                   -20   -21   -22   -23   -24   -25   -26   -27   -35
                   -36   -37   -38   -39   -40   -41   -43   -44   -47
                   -48   -49   -50   -51   -52   -53   -55   -56   -57
                   -58   -59   -62   -64   -65   -70   -72   -73   -75
                   -76   -77   -79   -80   -81   -82   -83   -84   -85
                   -86   -87   -88   -89   -90   -91   -92   -93   -94
                   -95   -96   -97   -99  -100  -101  -105  -106  -107
                  -108  -109  -110  -112  -113  -114  -118  -119  -120
                  -121  -122  -123  -124  -125  -126  -127  -128  -129
                  -130  -131  -132  -133  -134  -135  -139  -140  -141
                  -142  -143  -144  -146  -147  -148  -154  -155  -156
                  -157  -158  -159  -160  -162  -163  -166  -167  -168
                  -169  -170  -171  -172  -174  -175  -178  -179  -180
                  -181  -182  -183  -184  -186  -187  -188  -189  -190
                  -191  -192  -193  -195  -196  -197  -203  -204  -205
                  -206  -207  -208  -209  -211  -212  -213  -214  -215
                  -216  -217  -218  -219  -220  -221  -222  -223  -224
                  -225  -226  -227  -228  -229  -230
       FIND         19    81    82    83    84    85    86
       FMT         -22   -23   -24   -25   -26   -27   -92   -93   -94
                   -95   -96   -97   -98  -100  -101  -105  -106  -107
                  -108  -109  -110  -111  -113  -114  -118  -119  -120
                  -121  -122  -123  -124  -125  -126  -127  -128  -129
                  -132  -133  -139  -140  -141  -142  -143  -144  -145
                  -147  -148  -188  -189  -190  -191  -192  -193  -194
                  -196  -197  -213  -214  -215  -216  -217  -218  -219
                  -220  -221  -222  -223  -224  -227  -228
       FTRN77        1
       I           -66   -67
       INQUIRE      20    87    88
       IOSTAT      -22   -23   -24   -25   -26   -27   -38   -39   -40
                   -42   -43   -44   -50   -51   -52   -54   -55   -56
                   -63   -64   -65   -71   -72   -73   -75   -76   -78
                   -79   -80   -81   -82   -83   -84   -85   -86   -87
                   -88   -92   -93   -94   -95   -96   -97  -105  -106
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page   84
       DEMONSTRATE FORTRAN 77 STATEMENTS             FTRN77 SUBROUTINE

       Word          Contained in

       IOSTAT     -107  -108  -109  -110  -118  -119  -120  -121  -122
                  -123  -124  -125  -126  -127  -128  -129  -130  -131
                  -132  -133  -134  -135  -139  -140  -141  -142  -143
                  -144  -157  -158  -159  -161  -162  -163  -169  -170
                  -171  -173  -174  -175  -181  -182  -183  -185  -186
                  -187  -188  -189  -190  -191  -192  -193  -206  -207
                  -208  -210  -211  -212  -213  -214  -215  -216  -217
                  -218  -219  -220  -221  -222  -223  -224  -225  -226
                  -227  -228  -229  -230
       OPEN         21    89    90    91
       PRINT        10    92    93    94    95    96    97    98    99
                   100   101   102   103   104
       PUNCH        11   105   106   107   108   109   110   111   112
                   113   114   115   116   117
       READ         14    22    23   118   119   120   121   122   123
                   124   125   126   127   128   129   130   131   132
                   133   134   135   136   137   138
       REC         -81   -82   -83   -84  -118  -119  -120  -121  -122
                  -123  -124  -125  -126  -127  -128  -129  -130  -131
                  -213  -214  -215  -216  -217  -218  -219  -220  -221
                  -222  -223  -224  -225  -226
       REREAD       12   139   140   141   142   143   144   145   146
                   147   148   149   150   151
       REWIND        5   152   153   154   155   156   157   158   159
                   160   161   162   163
       SKIPFILE      6   164   165   166   167   168   169   170   171
                   172   173   174   175
       SKIPRECORD    7   176   177   178   179   180   181   182   183
                   184   185   186   187
       SUBROUTINE    1
       TO           32
       TYPE         13   188   189   190   191   192   193   194   195
                   196   197   198   199   200
       UNIT        -22   -23   -34   -36   -37   -38   -39   -40   -46
                   -48   -49   -50   -51   -52   -57   -58   -75   -76
                   -81   -82   -87   -88   -89   -90  -118  -119  -120
                  -121  -122  -123  -124  -125  -153  -155  -156  -157
                  -158  -159  -165  -167  -168  -169  -170  -171  -177
                  -179  -180  -181  -182  -183  -202  -204  -205  -206
                  -207  -208  -213  -214  -215  -216  -217  -218  -219
                  -220
       UNLOAD        8   201   202   203   204   205   206   207   208
                   209   210   211   212
       WRITE        15   213   214   215   216   217   218   219   220
                   221   222   223   224   225   226   227   228   229
                   230   231   232   233
       48            2     3     4     5     6     7     8     9    10
                    11    12    13    14    15    17    18    22    23
                    24    25    26    27    29    31    32    33    34
                    36    37    38    39    40    41    42    43    44
                    45    46    48    49    50    51    52    53    54
                    55    56    57    58    59    60    61    62    63
                    64    65    66    67    68    69    70    71    72
                    73    74    75    76    77    78    79    80    81
                    82    83    84    85    86    87    88    89    90
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page   85
       DEMONSTRATE FORTRAN 77 STATEMENTS             FTRN77 SUBROUTINE

       Word          Contained in

       48           91    92    93    94    95    96    97   102   103
                   105   106   107   108   109   110   115   116   118
                   119   120   121   122   123   124   125   126   127
                   128   129   130   131   132   133   134   135   136
                   137   139   140   141   142   143   144   149   150
                   152   153   155   156   157   158   159   160   161
                   162   163   164   165   167   168   169   170   171
                   172   173   174   175   176   177   179   180   181
                   182   183   184   185   186   187   188   189   190
                   191   192   193   198   199   201   202   204   205
                   206   207   208   209   210   211   212   213   214
                   215   216   217   218   219   220   221   222   223
                   224   225   226   227   228   229   230   231   232
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page   86
       CHECK RECOGNITION OF OPERATORS AND PUNCTUATI              PUNCT

           C     RENBR(PUNCT/CHECK RECOGNITION OF OPERATORS AND PUNCTUATION
       1         IF(I.GT.20H)GO TO 48;)GO TO 48;)GO TO 90;GO TO 90
       2         IF(I.GE.20H)GO TO 48;)GO TO 48;)GO TO 90;GO TO 90
       3         IF(I.LT.20H)GO TO 48;)GO TO 48;)GO TO 90;GO TO 90
       4         IF(I.LE.20H)GO TO 48;)GO TO 48;)GO TO 90;GO TO 90
       5         IF(I.EQ.20H)GO TO 48;)GO TO 48;)GO TO 90;GO TO 90
       6         IF(I.NE.20H)GO TO 48;)GO TO 48;)GO TO 90;GO TO 90
       7         IF(I.NOT.20H)GO TO 48;)GO TO 48;)GO TO 90;GO TO 90
       8         IF(I.AND.20H)GO TO 48;)GO TO 48;)GO TO 90;GO TO 90
       9         IF(I.OR.20H)GO TO 48;)GO TO 48;)GO TO 90;GO TO 90
       10        IF(I.XOR.20H)GO TO 48;)GO TO 48;)GO TO 90;GO TO 90
       11        IF(I.EQV.20H)GO TO 48;)GO TO 48;)GO TO 90;GO TO 90
       12        IF(I.NEQV.20H)GO TO 48;)GO TO 48;)GO TO 90;GO TO 90
           C
       13        J.GT.17HGO TO 48;GO TO 48;GO TO 90;GO TO 90
       14        J.GE.17HGO TO 48;GO TO 48;GO TO 90;GO TO 90
       15        J.LT.17HGO TO 48;GO TO 48;GO TO 90;GO TO 90
       16        J.LE.17HGO TO 48;GO TO 48;GO TO 90;GO TO 90
       17        J.EQ.17HGO TO 48;GO TO 48;GO TO 90;GO TO 90
       18        J.NE.17HGO TO 48;GO TO 48;GO TO 90;GO TO 90
       19        J.NOT.17HGO TO 48;GO TO 48;GO TO 90;GO TO 90
       20        J.AND.17HGO TO 48;GO TO 48;GO TO 90;GO TO 90
       21        J.OR.17HGO TO 48;GO TO 48;GO TO 90;GO TO 90
       22        J.XOR.17HGO TO 48;GO TO 48;GO TO 90;GO TO 90
       23        J.EQV.17HGO TO 48;GO TO 48;GO TO 90;GO TO 90
       24        J.NEQV.17HGO TO 48;GO TO 48;GO TO 90;GO TO 90
           C
           C     OPERATORS REPRESENTED BY PUNCTUATION MARKS
       25        IF(I**20H)GO TO 48;)GO TO 48;)GO TO 90;GO TO 90
       26        IF(I^20H)GO TO 48;)GO TO 48;)GO TO 90;GO TO 90
       27        IF(I-20H)GO TO 48;)GO TO 48;)GO TO 90;GO TO 90
       28        IF(I+20H)GO TO 48;)GO TO 48;)GO TO 90;GO TO 90
       29        IF(I*20H)GO TO 48;)GO TO 48;)GO TO 90;GO TO 90
       30        IF(I/20H)GO TO 48;)GO TO 48;)GO TO 90;GO TO 90
       31        IF(I>20H)GO TO 48;)GO TO 48;)GO TO 90;GO TO 90
       32        IF(I>=20H)GO TO 48;)GO TO 48;)GO TO 90;GO TO 90
       33        IF(I<20H)GO TO 48;)GO TO 48;)GO TO 90;GO TO 90
       34        IF(I<=20H)GO TO 48;)GO TO 48;)GO TO 90;GO TO 90
       35        IF(I==20H)GO TO 48;)GO TO 48;)GO TO 90;GO TO 90
       36        IF(I#20H)GO TO 48;)GO TO 48;)GO TO 90;GO TO 90
           C
       37        J**17HGO TO 48;GO TO 48;GO TO 90;GO TO 90
       38        J^17HGO TO 48;GO TO 48;GO TO 90;GO TO 90
       39        J-17HGO TO 48;GO TO 48;GO TO 90;GO TO 90
       40        J+17HGO TO 48;GO TO 48;GO TO 90;GO TO 90
       41        J*17HGO TO 48;GO TO 48;GO TO 90;GO TO 90
       42        J/17HGO TO 48;GO TO 48;GO TO 90;GO TO 90
       43        J>17HGO TO 48;GO TO 48;GO TO 90;GO TO 90
       44        J>=17HGO TO 48;GO TO 48;GO TO 90;GO TO 90
       45        J<17HGO TO 48;GO TO 48;GO TO 90;GO TO 90
       46        J<=17HGO TO 48;GO TO 48;GO TO 90;GO TO 90
       47        J==17HGO TO 48;GO TO 48;GO TO 90;GO TO 90
       48        J#17HGO TO 48;GO TO 48;GO TO 90;GO TO 90
           C
           C     OTHER PUNCTUATION MARKS THAT MUST BE RECOGNIZED
       49        IF(I=20H)GO TO 48;)GO TO 48;)GO TO 90;GO TO 90
       50        IF(I:20H)GO TO 48;)GO TO 48;)GO TO 90;GO TO 90
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page   87
       CHECK RECOGNITION OF OPERATORS AND PUNCTUATI PUNCT MAIN PROGRAM

       51        IF(I,20H)GO TO 48;)GO TO 48;)GO TO 90;GO TO 90
       52        J=17HGO TO 48;GO TO 48;GO TO 90;GO TO 90
       53        J:17HGO TO 48;GO TO 48;GO TO 90;GO TO 90
       54        J,17HGO TO 48;GO TO 48;GO TO 90;GO TO 90
           C
           C     THE PARENTHESES THEMSELVES
       55        J(17HGO TO 48;GO TO 48;GO TO 90;GO TO 90
       56        J)17HGO TO 48;GO TO 48;GO TO 90;GO TO 90
           C
           C     NUMBERED STATEMENTS
       57    100 CONTINUE
       58     90 CONTINUE
       59     81 CONTINUE
       60     73 CONTINUE
       61     66 CONTINUE
       62     60 CONTINUE
       63     55 CONTINUE
       64     51 CONTINUE
       65     48 CONTINUE
       66     46 CONTINUE
       67     45 CONTINUE
       68        END
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page   88
       CHECK RECOGNITION OF OPERATORS AND PUNCTUATI PUNCT MAIN PROGRAM

       Statement
       Number        Referenced by

           45      -67
           46      -66
           48      -65
           51      -64
           55      -63
           60      -62
           66      -61
           73      -60
           81      -59
           90        1     2     3     4     5     6     7     8     9
                    10    11    12    13    14    15    16    17    18
                    19    20    21    22    23    24    25    26    27
                    28    29    30    31    32    33    34    35    36
                    37    38    39    40    41    42    43    44    45
                    46    47    48    49    50    51    52    53    54
                    55    56   -58
          100      -57
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page   89
       CHECK RECOGNITION OF OPERATORS AND PUNCTUATI PUNCT MAIN PROGRAM

       Word          Contained in

       CONTINUE     57    58    59    60    61    62    63    64    65
                    66    67
       END          68
       I             1     2     3     4     5     6     7     8     9
                    10    11    12    25    26    27    28    29    30
                    31   -32    33   -34   -35    36   -49    50    51
       J            13    14    15    16    17    18    19    20    21
                    22    23    24    37    38    39    40    41    42
                    43   -44    45   -46   -47    48   -52    53    54
                    55    56
       17HGO TO 4   13    14    15    16    17    18    19    20    21
                    22    23    24    37    38    39    40    41    42
                    43    44    45    46    47    48    52    53    54
                    55    56
       20H)GO TO     1     2     3     4     5     6     7     8     9
                    10    11    12    25    26    27    28    29    30
                    31    32    33    34    35    36    49    50    51
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page   90
       TEST COMMENT CHARACTERS FOR FORTRAN10       NEWCOM MAIN PROGRAM

       1         PROGRAM NEWCOM
           C     RENBR(/TEST COMMENT CHARACTERS FOR FORTRAN10)
           C
       2         GO TO 90
       3   D     GO TO 90
       4   d     GO TO 90
           C     GO TO 48
           c     GO TO 48
           *     GO TO 48
           !     GO TO 48
           $     GO TO 48
           /     GO TO 48
           C
           C     NUMBERED STATEMENTS
       5     100 CONTINUE
       6      90 CONTINUE
       7      81 CONTINUE
       8      73 CONTINUE
       9      66 CONTINUE
       10     60 CONTINUE
       11     55 CONTINUE
       12     51 CONTINUE
       13     48 CONTINUE
       14     46 CONTINUE
       15     45 CONTINUE
       16        END
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page   91
       TEST COMMENT CHARACTERS FOR FORTRAN10       NEWCOM MAIN PROGRAM

       Statement
       Number        Referenced by

           45      -15
           46      -14
           48      -13
           51      -12
           55      -11
           60      -10
           66       -9
           73       -8
           81       -7
           90        2     3     4    -6
          100       -5
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page   92
       TEST COMMENT CHARACTERS FOR FORTRAN10       NEWCOM MAIN PROGRAM

       Word          Contained in

       CONTINUE      5     6     7     8     9    10    11    12    13
                    14    15
       END          16
       NEWCOM        1
       PROGRAM       1
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page   93
       TEST FORTRAN 77 VARIATIONS OF ACCEPT          ACCEP1 SUBROUTINE

       1         SUBROUTINE ACCEP1
           C     RENBR(/TEST FORTRAN 77 VARIATIONS OF ACCEPT)
           C
           C     ALL VERSIONS OF ACCEPT STATEMENT WITH FMT=NUMBER
           C
       2         ACCEPT(FMT=90)48
       3         ACCEPT(ERR=90)48
       4         ACCEPT(END=90)48
       5         ACCEPT(IOSTAT=48)48
       6         ACCEPT(FMT=90,ERR=90)48
       7         ACCEPT(FMT=90,END=90)48
       8         ACCEPT(FMT=90,IOSTAT=48)48
       9         ACCEPT(ERR=90,FMT=90)48
       10        ACCEPT(ERR=90,END=90)48
       11        ACCEPT(ERR=90,IOSTAT=48)48
       12        ACCEPT(END=90,FMT=90)48
       13        ACCEPT(END=90,ERR=90)48
       14        ACCEPT(END=90,IOSTAT=48)48
       15        ACCEPT(IOSTAT=48,FMT=90)48
       16        ACCEPT(IOSTAT=48,ERR=90)48
       17        ACCEPT(IOSTAT=48,END=90)48
       18        ACCEPT(FMT=90,ERR=90,END=90)48
       19        ACCEPT(FMT=90,ERR=90,IOSTAT=48)48
       20        ACCEPT(FMT=90,END=90,ERR=90)48
       21        ACCEPT(FMT=90,END=90,IOSTAT=48)48
       22        ACCEPT(FMT=90,IOSTAT=48,ERR=90)48
       23        ACCEPT(FMT=90,IOSTAT=48,END=90)48
       24        ACCEPT(ERR=90,FMT=90,END=90)48
       25        ACCEPT(ERR=90,FMT=90,IOSTAT=48)48
       26        ACCEPT(ERR=90,END=90,FMT=90)48
       27        ACCEPT(ERR=90,END=90,IOSTAT=48)48
       28        ACCEPT(ERR=90,IOSTAT=48,FMT=90)48
       29        ACCEPT(ERR=90,IOSTAT=48,END=90)48
       30        ACCEPT(END=90,FMT=90,ERR=90)48
       31        ACCEPT(END=90,FMT=90,IOSTAT=48)48
       32        ACCEPT(END=90,ERR=90,FMT=90)48
       33        ACCEPT(END=90,ERR=90,IOSTAT=48)48
       34        ACCEPT(END=90,IOSTAT=48,FMT=90)48
       35        ACCEPT(END=90,IOSTAT=48,ERR=90)48
       36        ACCEPT(IOSTAT=48,FMT=90,ERR=90)48
       37        ACCEPT(IOSTAT=48,FMT=90,END=90)48
       38        ACCEPT(IOSTAT=48,ERR=90,FMT=90)48
       39        ACCEPT(IOSTAT=48,ERR=90,END=90)48
       40        ACCEPT(IOSTAT=48,END=90,FMT=90)48
       41        ACCEPT(IOSTAT=48,END=90,ERR=90)48
       42        ACCEPT(FMT=90,ERR=90,END=90,IOSTAT=48)48
       43        ACCEPT(FMT=90,ERR=90,IOSTAT=48,END=90)48
       44        ACCEPT(FMT=90,END=90,ERR=90,IOSTAT=48)48
       45        ACCEPT(FMT=90,END=90,IOSTAT=48,ERR=90)48
       46        ACCEPT(FMT=90,IOSTAT=48,ERR=90,END=90)48
       47        ACCEPT(FMT=90,IOSTAT=48,END=90,ERR=90)48
       48        ACCEPT(ERR=90,FMT=90,END=90,IOSTAT=48)48
       49        ACCEPT(ERR=90,FMT=90,IOSTAT=48,END=90)48
       50        ACCEPT(ERR=90,END=90,FMT=90,IOSTAT=48)48
       51        ACCEPT(ERR=90,END=90,IOSTAT=48,FMT=90)48
       52        ACCEPT(ERR=90,IOSTAT=48,FMT=90,END=90)48
       53        ACCEPT(ERR=90,IOSTAT=48,END=90,FMT=90)48
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page   94
       TEST FORTRAN 77 VARIATIONS OF ACCEPT          ACCEP1 SUBROUTINE

       54        ACCEPT(END=90,FMT=90,ERR=90,IOSTAT=48)48
       55        ACCEPT(END=90,FMT=90,IOSTAT=48,ERR=90)48
       56        ACCEPT(END=90,ERR=90,FMT=90,IOSTAT=48)48
       57        ACCEPT(END=90,ERR=90,IOSTAT=48,FMT=90)48
       58        ACCEPT(END=90,IOSTAT=48,FMT=90,ERR=90)48
       59        ACCEPT(END=90,IOSTAT=48,ERR=90,FMT=90)48
       60        ACCEPT(IOSTAT=48,FMT=90,ERR=90,END=90)48
       61        ACCEPT(IOSTAT=48,FMT=90,END=90,ERR=90)48
       62        ACCEPT(IOSTAT=48,ERR=90,FMT=90,END=90)48
       63        ACCEPT(IOSTAT=48,ERR=90,END=90,FMT=90)48
       64        ACCEPT(IOSTAT=48,END=90,FMT=90,ERR=90)48
       65        ACCEPT(IOSTAT=48,END=90,ERR=90,FMT=90)48
           C
           C     NUMBERED STATEMENTS
       66    100 CONTINUE
       67     90 CONTINUE
       68     81 CONTINUE
       69     73 CONTINUE
       70     66 CONTINUE
       71     60 CONTINUE
       72     55 CONTINUE
       73     51 CONTINUE
       74     48 CONTINUE
       75     46 CONTINUE
       76     45 CONTINUE
       77        END
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page   95
       TEST FORTRAN 77 VARIATIONS OF ACCEPT          ACCEP1 SUBROUTINE

       Statement
       Number        Referenced by

           45      -76
           46      -75
           48      -74
           51      -73
           55      -72
           60      -71
           66      -70
           73      -69
           81      -68
           90        2     3     4     6     7     8     9    10    11
                    12    13    14    15    16    17    18    19    20
                    21    22    23    24    25    26    27    28    29
                    30    31    32    33    34    35    36    37    38
                    39    40    41    42    43    44    45    46    47
                    48    49    50    51    52    53    54    55    56
                    57    58    59    60    61    62    63    64    65
                   -67
          100      -66
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page   96
       TEST FORTRAN 77 VARIATIONS OF ACCEPT          ACCEP1 SUBROUTINE

       Word          Contained in

       ACCEPT        2     3     4     5     6     7     8     9    10
                    11    12    13    14    15    16    17    18    19
                    20    21    22    23    24    25    26    27    28
                    29    30    31    32    33    34    35    36    37
                    38    39    40    41    42    43    44    45    46
                    47    48    49    50    51    52    53    54    55
                    56    57    58    59    60    61    62    63    64
                    65
       ACCEP1        1
       CONTINUE     66    67    68    69    70    71    72    73    74
                    75    76
       END          -4    -7   -10   -12   -13   -14   -17   -18   -20
                   -21   -23   -24   -26   -27   -29   -30   -31   -32
                   -33   -34   -35   -37   -39   -40   -41   -42   -43
                   -44   -45   -46   -47   -48   -49   -50   -51   -52
                   -53   -54   -55   -56   -57   -58   -59   -60   -61
                   -62   -63   -64   -65    77
       ERR          -3    -6    -9   -10   -11   -13   -16   -18   -19
                   -20   -22   -24   -25   -26   -27   -28   -29   -30
                   -32   -33   -35   -36   -38   -39   -41   -42   -43
                   -44   -45   -46   -47   -48   -49   -50   -51   -52
                   -53   -54   -55   -56   -57   -58   -59   -60   -61
                   -62   -63   -64   -65
       FMT          -2    -6    -7    -8    -9   -12   -15   -18   -19
                   -20   -21   -22   -23   -24   -25   -26   -28   -30
                   -31   -32   -34   -36   -37   -38   -40   -42   -43
                   -44   -45   -46   -47   -48   -49   -50   -51   -52
                   -53   -54   -55   -56   -57   -58   -59   -60   -61
                   -62   -63   -64   -65
       IOSTAT       -5    -8   -11   -14   -15   -16   -17   -19   -21
                   -22   -23   -25   -27   -28   -29   -31   -33   -34
                   -35   -36   -37   -38   -39   -40   -41   -42   -43
                   -44   -45   -46   -47   -48   -49   -50   -51   -52
                   -53   -54   -55   -56   -57   -58   -59   -60   -61
                   -62   -63   -64   -65
       SUBROUTINE    1
       48            2     3     4     5     6     7     8     9    10
                    11    12    13    14    15    16    17    18    19
                    20    21    22    23    24    25    26    27    28
                    29    30    31    32    33    34    35    36    37
                    38    39    40    41    42    43    44    45    46
                    47    48    49    50    51    52    53    54    55
                    56    57    58    59    60    61    62    63    64
                    65
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page   97
       TEST FORTRAN 77 VARIATIONS OF ACCEPT          ACCEP2 SUBROUTINE

       1         SUBROUTINE ACCEP2
           C     RENBR(/TEST FORTRAN 77 VARIATIONS OF ACCEPT)
           C
           C     ACCEPT STATEMENTS WITH FMT=* RATHER THAN FMT=NUMBER
           C
       2         ACCEPT(FMT=*)48
       3         ACCEPT(ERR=90)48
       4         ACCEPT(END=90)48
       5         ACCEPT(IOSTAT=48)48
       6         ACCEPT(FMT=*,ERR=90)48
       7         ACCEPT(FMT=*,END=90)48
       8         ACCEPT(FMT=*,IOSTAT=48)48
       9         ACCEPT(ERR=90,FMT=*)48
       10        ACCEPT(ERR=90,END=90)48
       11        ACCEPT(ERR=90,IOSTAT=48)48
       12        ACCEPT(END=90,FMT=*)48
       13        ACCEPT(END=90,ERR=90)48
       14        ACCEPT(END=90,IOSTAT=48)48
       15        ACCEPT(IOSTAT=48,FMT=*)48
       16        ACCEPT(IOSTAT=48,ERR=90)48
       17        ACCEPT(IOSTAT=48,END=90)48
       18        ACCEPT(FMT=*,ERR=90,END=90)48
       19        ACCEPT(FMT=*,ERR=90,IOSTAT=48)48
       20        ACCEPT(FMT=*,END=90,ERR=90)48
       21        ACCEPT(FMT=*,END=90,IOSTAT=48)48
       22        ACCEPT(FMT=*,IOSTAT=48,ERR=90)48
       23        ACCEPT(FMT=*,IOSTAT=48,END=90)48
       24        ACCEPT(ERR=90,FMT=*,END=90)48
       25        ACCEPT(ERR=90,FMT=*,IOSTAT=48)48
       26        ACCEPT(ERR=90,END=90,FMT=*)48
       27        ACCEPT(ERR=90,END=90,IOSTAT=48)48
       28        ACCEPT(ERR=90,IOSTAT=48,FMT=*)48
       29        ACCEPT(ERR=90,IOSTAT=48,END=90)48
       30        ACCEPT(END=90,FMT=*,ERR=90)48
       31        ACCEPT(END=90,FMT=*,IOSTAT=48)48
       32        ACCEPT(END=90,ERR=90,FMT=*)48
       33        ACCEPT(END=90,ERR=90,IOSTAT=48)48
       34        ACCEPT(END=90,IOSTAT=48,FMT=*)48
       35        ACCEPT(END=90,IOSTAT=48,ERR=90)48
       36        ACCEPT(IOSTAT=48,FMT=*,ERR=90)48
       37        ACCEPT(IOSTAT=48,FMT=*,END=90)48
       38        ACCEPT(IOSTAT=48,ERR=90,FMT=*)48
       39        ACCEPT(IOSTAT=48,ERR=90,END=90)48
       40        ACCEPT(IOSTAT=48,END=90,FMT=*)48
       41        ACCEPT(IOSTAT=48,END=90,ERR=90)48
       42        ACCEPT(FMT=*,ERR=90,END=90,IOSTAT=48)48
       43        ACCEPT(FMT=*,ERR=90,IOSTAT=48,END=90)48
       44        ACCEPT(FMT=*,END=90,ERR=90,IOSTAT=48)48
       45        ACCEPT(FMT=*,END=90,IOSTAT=48,ERR=90)48
       46        ACCEPT(FMT=*,IOSTAT=48,ERR=90,END=90)48
       47        ACCEPT(FMT=*,IOSTAT=48,END=90,ERR=90)48
       48        ACCEPT(ERR=90,FMT=*,END=90,IOSTAT=48)48
       49        ACCEPT(ERR=90,FMT=*,IOSTAT=48,END=90)48
       50        ACCEPT(ERR=90,END=90,FMT=*,IOSTAT=48)48
       51        ACCEPT(ERR=90,END=90,IOSTAT=48,FMT=*)48
       52        ACCEPT(ERR=90,IOSTAT=48,FMT=*,END=90)48
       53        ACCEPT(ERR=90,IOSTAT=48,END=90,FMT=*)48
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page   98
       TEST FORTRAN 77 VARIATIONS OF ACCEPT          ACCEP2 SUBROUTINE

       54        ACCEPT(END=90,FMT=*,ERR=90,IOSTAT=48)48
       55        ACCEPT(END=90,FMT=*,IOSTAT=48,ERR=90)48
       56        ACCEPT(END=90,ERR=90,FMT=*,IOSTAT=48)48
       57        ACCEPT(END=90,ERR=90,IOSTAT=48,FMT=*)48
       58        ACCEPT(END=90,IOSTAT=48,FMT=*,ERR=90)48
       59        ACCEPT(END=90,IOSTAT=48,ERR=90,FMT=*)48
       60        ACCEPT(IOSTAT=48,FMT=*,ERR=90,END=90)48
       61        ACCEPT(IOSTAT=48,FMT=*,END=90,ERR=90)48
       62        ACCEPT(IOSTAT=48,ERR=90,FMT=*,END=90)48
       63        ACCEPT(IOSTAT=48,ERR=90,END=90,FMT=*)48
       64        ACCEPT(IOSTAT=48,END=90,FMT=*,ERR=90)48
       65        ACCEPT(IOSTAT=48,END=90,ERR=90,FMT=*)48
           C
           C     NUMBERED STATEMENTS
       66    100 CONTINUE
       67     90 CONTINUE
       68     81 CONTINUE
       69     73 CONTINUE
       70     66 CONTINUE
       71     60 CONTINUE
       72     55 CONTINUE
       73     51 CONTINUE
       74     48 CONTINUE
       75     46 CONTINUE
       76     45 CONTINUE
       77        END
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page   99
       TEST FORTRAN 77 VARIATIONS OF ACCEPT          ACCEP2 SUBROUTINE

       Statement
       Number        Referenced by

           45      -76
           46      -75
           48      -74
           51      -73
           55      -72
           60      -71
           66      -70
           73      -69
           81      -68
           90        3     4     6     7     9    10    11    12    13
                    14    16    17    18    19    20    21    22    23
                    24    25    26    27    28    29    30    31    32
                    33    34    35    36    37    38    39    40    41
                    42    43    44    45    46    47    48    49    50
                    51    52    53    54    55    56    57    58    59
                    60    61    62    63    64    65   -67
          100      -66
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page  100
       TEST FORTRAN 77 VARIATIONS OF ACCEPT          ACCEP2 SUBROUTINE

       Word          Contained in

       ACCEPT        2     3     4     5     6     7     8     9    10
                    11    12    13    14    15    16    17    18    19
                    20    21    22    23    24    25    26    27    28
                    29    30    31    32    33    34    35    36    37
                    38    39    40    41    42    43    44    45    46
                    47    48    49    50    51    52    53    54    55
                    56    57    58    59    60    61    62    63    64
                    65
       ACCEP2        1
       CONTINUE     66    67    68    69    70    71    72    73    74
                    75    76
       END          -4    -7   -10   -12   -13   -14   -17   -18   -20
                   -21   -23   -24   -26   -27   -29   -30   -31   -32
                   -33   -34   -35   -37   -39   -40   -41   -42   -43
                   -44   -45   -46   -47   -48   -49   -50   -51   -52
                   -53   -54   -55   -56   -57   -58   -59   -60   -61
                   -62   -63   -64   -65    77
       ERR          -3    -6    -9   -10   -11   -13   -16   -18   -19
                   -20   -22   -24   -25   -26   -27   -28   -29   -30
                   -32   -33   -35   -36   -38   -39   -41   -42   -43
                   -44   -45   -46   -47   -48   -49   -50   -51   -52
                   -53   -54   -55   -56   -57   -58   -59   -60   -61
                   -62   -63   -64   -65
       FMT          -2    -6    -7    -8    -9   -12   -15   -18   -19
                   -20   -21   -22   -23   -24   -25   -26   -28   -30
                   -31   -32   -34   -36   -37   -38   -40   -42   -43
                   -44   -45   -46   -47   -48   -49   -50   -51   -52
                   -53   -54   -55   -56   -57   -58   -59   -60   -61
                   -62   -63   -64   -65
       IOSTAT       -5    -8   -11   -14   -15   -16   -17   -19   -21
                   -22   -23   -25   -27   -28   -29   -31   -33   -34
                   -35   -36   -37   -38   -39   -40   -41   -42   -43
                   -44   -45   -46   -47   -48   -49   -50   -51   -52
                   -53   -54   -55   -56   -57   -58   -59   -60   -61
                   -62   -63   -64   -65
       SUBROUTINE    1
       48            2     3     4     5     6     7     8     9    10
                    11    12    13    14    15    16    17    18    19
                    20    21    22    23    24    25    26    27    28
                    29    30    31    32    33    34    35    36    37
                    38    39    40    41    42    43    44    45    46
                    47    48    49    50    51    52    53    54    55
                    56    57    58    59    60    61    62    63    64
                    65
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page  101
       TEST INDENTATION OF IF BLOCKS                            SINGLE

           CRENBR/A:2(SINGLE/TEST INDENTATION OF IF BLOCKS)
       1         I=1
       2         IF (I) THEN
       3           J=1
       4           J=1
       5           DO 1 I=1,2
       6             K=1
       7             K=1
       8             IF(K)THEN
       9               L=1
       10              L=1
       11            END IF
       12            K=1
       13      1   CONTINUE
       14          J=1
       15          J=1
       16        ELSE IF (J) THEN
       17          J=1
       18          J=1
       19          IF(J) THEN
       20            K=1
       21            K=1
       22            DO 2 WHILE (K)
       23              L=1
       24              L=1
       25              DO WHILE (L)
       26                M=1
       27                M=1
       28                IF(M)THEN
       29                  N=1
       30                  N=1
       31                ELSE
       32                  N=1
       33                  N=1
       34                END IF
       35                M=1
       36                M=1
       37              END DO
       38              L=1
       39      2     CONTINUE
       40            K=1
       41            K=1
       42          ELSE IF
       43            K=1
       44            K=1
       45            DO WHILE (K)
       46              L=1
       47              L=1
       48              DO 3 WHILE (L)
       49                M=1
       50                M=1
       51                IF(I)THEN
       52                END IF
       53                M=1
       54                M=1
       55                DO WHILE (M)
       56                END DO
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page  102
       TEST INDENTATION OF IF BLOCKS               SINGLE MAIN PROGRAM

       57                M=1
       58      3       CONTINUE
       59              L=1
       60              L=1
       61              DO 4 WHILE (L)
       62                M=1
       63                M=1
       64                IF(I)THEN
       65                END IF
       66                M=1
       67                M=1
       68                DO 4 WHILE (M)
       69                  N=1
       70                  N=1
       71                  IF(I)THEN
       72                  END IF
       73                  N=1
       74      4       CONTINUE
       75              L=1
       76              L=1
       77            END DO
       78            K=1
       79            K=1
       80          ELSE
       81            K=1
       82            K=1
       83          END IF
       84          J=1
       85          J=1
       86        ELSE
       87          J=1
       88          J=1
       89        END IF
       90        I=1
       91        I=1
       92        END
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page  103
       TEST INDENTATION OF IF BLOCKS               SINGLE MAIN PROGRAM

       Statement
       Number        Referenced by

            1        5   -13
            2       22   -39
            3       48   -58
            4       61    68   -74
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page  104
       TEST INDENTATION OF IF BLOCKS               SINGLE MAIN PROGRAM

       Word          Contained in

       CONTINUE     13    39    58    74
       DO            5    22    48    61    68
       DOWHILE      25    45    55
       ELSE         31    80    86
       ELSEIF       16    42
       END          92
       ENDDO        37    56    77
       ENDIF        11    34    52    65    72    83    89
       I            -1     2    -5    51    64    71   -90   -91
       J            -3    -4   -14   -15    16   -17   -18    19   -84
                   -85   -87   -88
       K            -6    -7     8   -12   -20   -21    22   -40   -41
                   -43   -44    45   -78   -79   -81   -82
       L            -9   -10   -23   -24    25   -38   -46   -47    48
                   -59   -60    61   -75   -76
       M           -26   -27    28   -35   -36   -49   -50   -53   -54
                    55   -57   -62   -63   -66   -67    68
       N           -29   -30   -32   -33   -69   -70   -73
       THEN          2     8    16    19    28    51    64    71
       WHILE        22    48    61    68
       1             1     3     4     5     6     7     9    10    12
                    14    15    17    18    20    21    23    24    26
                    27    29    30    32    33    35    36    38    40
                    41    43    44    46    47    49    50    53    54
                    57    59    60    62    63    66    67    69    70
                    73    75    76    78    79    81    82    84    85
                    87    88    90    91
       2             5
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING              Table of
                                                              Contents

                              Page                       Length   Page

              BLOCK DATA        19         GOTO SUBROUTINE   34      1

              MAIN PROGRAM      27           DO SUBROUTINE   55      4

              SUBROUTINE        40           READ FUNCTION   69      8

              MAIN PROGRAM      44          WRITE FUNCTION   42     12

       ACCEP1 SUBROUTINE        93          BLANK FUNCTION   69     15

       ACCEP2 SUBROUTINE        97              BLOCK DATA   22     19

       ALPHAM FUNCTION          31             IF FUNCTION   23     21

       BLANK  FUNCTION          15           TABS FUNCTION   15     24

       COMENT FUNCTION          68            MAIN PROGRAM   63     27

       DO     SUBROUTINE         4         ALPHAM FUNCTION   50     31

       EXPAND MAIN PROGRAM      71       WRAPAR SUBROUTINE   23     35

       FOR-II FUNCTION          50              SUBROUTINE   61     40

       FOR-IV FUNCTION          53            MAIN PROGRAM   18     44

       FTRN77 SUBROUTINE        76          ONE SUBROUTINE   17     47

       GOTO   SUBROUTINE         1         FOR-II FUNCTION   37     50

       IF     FUNCTION          21         FOR-IV FUNCTION   47     53

       MIDDLE SUBROUTINE        59         STEPNU FUNCTION   18     56

       MULTPL FUNCTION          65       MIDDLE SUBROUTINE   18     59

       NEWCOM MAIN PROGRAM      90       REVERS SUBROUTINE   17     62

       ONE    SUBROUTINE        47         MULTPL FUNCTION   15     65

       PUNCT  MAIN PROGRAM      86         COMENT FUNCTION   17     68

       READ   FUNCTION           8     EXPAND MAIN PROGRAM   15     71

       REVERS SUBROUTINE        62       FTRN77 SUBROUTINE  245     76

       SINGLE MAIN PROGRAM     101      PUNCT MAIN PROGRAM   68     86

       STEPNU FUNCTION          56     NEWCOM MAIN PROGRAM   16     90

       TABS   FUNCTION          24       ACCEP1 SUBROUTINE   77     93

       WRAPAR SUBROUTINE        35       ACCEP2 SUBROUTINE   77     97

       WRITE  FUNCTION          12     SINGLE MAIN PROGRAM   92    101
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page  105
       TEST INDENTATION OF IF BLOCKS                            TRIPLE

           CRENBR/A:2(TRIPLE/TEST INDENTATION OF IF BLOCKS)
       1         I=1
       2         IF (I) THEN;J=1
       3           J=1;DO 1 I=1,2;K=1
       4             K=1;IF(K)THEN;L=1
       5               L=1;END IF;K=1
       6       1   CONTINUE;J=1
       7           J=1;ELSE IF (J) THEN;J=1
       8           J=1;IF(J) THEN;K=1
       9             K=1;DO 2 WHILE (K);L=1
       10              L=1;DO WHILE (L);M=1
       11                M=1;IF(M)THEN;N=1
       12                  N=1;ELSE;N=1
       13                  N=1;END IF;M=1
       14                M=1;END DO;L=1
       15      2     CONTINUE;K=1
       16            K=1;ELSE IF;K=1
       17            K=1;DO WHILE (K);L=1
       18              L=1;DO 3 WHILE (L);M=1
       19                M=1;IF(I)THEN;END IF;M=1
       20                M=1;DO WHILE (M);END DO;M=1
       21      3       CONTINUE;L=1
       22              L=1;DO 4 WHILE (L);M=1
       23                M=1;IF(I)THEN;END IF;M=1
       24                M=1;DO 4 WHILE (M);N=1
       25                  N=1;IF(I)THEN;END IF;N=1
       26      4       CONTINUE;L=1
       27              L=1;END DO;K=1
       28            K=1;ELSE;K=1
       29            K=1;END IF;J=1
       30          J=1;ELSE;J=1
       31          J=1;END IF;I=1
       32        I=1
       33        END
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page  106
       TEST INDENTATION OF IF BLOCKS               TRIPLE MAIN PROGRAM

       Statement
       Number        Referenced by

            1        3    -6
            2        9   -15
            3       18   -21
            4       22    24   -26
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page  107
       TEST INDENTATION OF IF BLOCKS               TRIPLE MAIN PROGRAM

       Word          Contained in

       CONTINUE      6    15    21    26
       DO            3     9    18    22    24
       DOWHILE      10    17    20
       ELSE         12    28    30
       ELSEIF        7    16
       END          33
       ENDDO        14    20    27
       ENDIF         5    13    19    23    25    29    31
       I            -1     2    -3    19    23    25   -31   -32
       J            -2    -3    -6    -7    -8   -29   -30   -31
       K            -3    -4    -5    -8    -9   -15   -16   -17   -27
                   -28   -29
       L            -4    -5    -9   -10   -14   -17   -18   -21   -22
                   -26   -27
       M           -10   -11   -13   -14   -18   -19   -20   -22   -23
                   -24
       N           -11   -12   -13   -24   -25
       THEN          2     4     7     8    11    19    23    25
       WHILE         9    18    22    24
       1             1     2     3     4     5     6     7     8     9
                    10    11    12    13    14    15    16    17    18
                    19    20    21    22    23    24    25    26    27
                    28    29    30    31    32
       2             3
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page  108
       TEST OPEN DO BLOCK                                         OPEN

           CRENBR(OPEN/TEST OPEN DO BLOCK)A5
           C     3 DO LOOPS TERMINATING ON SAME STATEMENT
       1         I=1
       2         DO 1 I=1,2
       3              J=1
       4              J=1
       5              DO 1 I=1,2
       6                   K=1
       7                   K=1
       8                   DO 1 I=1,2
       9                        L=1
       10                       L=1
       11      1 I=1
       12        I=1
           C     3 DO LOOPS STARTING ON SAME LINE
       13        I=1
       14        DO 4 I=1,2;DO 3 I=1,2;DO 2,I=1,2
       15                       L=1
       16                       L=1
       17      2           K=1
       18                  K=1
       19      3      J=1
       20             J=1
       21      4 I=1
       22        I=1
           C     UNTERMINATED LOGICAL BLOCKS
       23        I=1
       24        DO WHILE (L)
       25             J=1
       26             DO WHILE (L)
       27                  K=1
       28                  DO WHILE (L)
       29                       L=1
       30                       L=1
       31                       END
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page  109
       TEST OPEN DO BLOCK                            OPEN MAIN PROGRAM

       Statement
       Number        Referenced by

            1        2     5     8   -11
            2       14   -17
            3       14   -19
            4       14   -21
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page  110
       TEST OPEN DO BLOCK                            OPEN MAIN PROGRAM

       Word          Contained in

       DO            2     5     8    14
       DOWHILE      24    26    28
       END          31
       I            -1    -2    -5    -8   -11   -12   -13   -14   -21
                   -22   -23
       J            -3    -4   -19   -20   -25
       K            -6    -7   -17   -18   -27
       L            -9   -10   -15   -16    24    26    28   -29   -30
       1             1     2     3     4     5     6     7     8     9
                    10    11    12    13    14    15    16    17    18
                    19    20    21    22    23    25    27    29    30
       2             2     5     8    14
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page  111
       MAKE SURE FORMER LOGICAL BLOCK CLOSED                          

           CRENBR/A5(/MAKE SURE FORMER LOGICAL BLOCK CLOSED)
       1         PROGRAM NONOPN
       2         DO WHILE(L)
       3              J=1
       4              DOWHILE(L)
       5                   K=1
       6              ENDDO
       7              J=1
       8         ENDDO
       9         I=1
       10        DO WHILE(L)
       11             J=1;DO WHILE(L);K=1;ENDDO;J=1
       12             J=1
       13        ENDDO
       14        I=1
       15        DO WHILE(L)
       16             J=1;DO WHILE(L);K=1
       17                  K=1;ENDDO;J=1
       18             J=1
       19        ENDDO
       20        I=1
       21        DO WHILE(L)
       22             J=1;DO WHILE(L);K=1
       23             ENDDO;J=1
       24             J=1
       25        ENDDO
       26        I=1
       27        END
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page  112
       MAKE SURE FORMER LOGICAL BLOCK CLOSED       NONOPN MAIN PROGRAM

       Word          Contained in

       DOWHILE       2     4    10    11    15    16    21    22
       END          27
       ENDDO         6     8    11    13    17    19    23    25
       I            -9   -14   -20   -26
       J            -3    -7   -11   -12   -16   -17   -18   -22   -23
                   -24
       K            -5   -11   -16   -17   -22
       L             2     4    10    11    15    16    21    22
       NONOPN        1
       PROGRAM       1
       1             3     5     7     9    11    12    14    16    17
                    18    20    22    23    24    26
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page  113
                                                       AAAA SUBROUTINE

       1         SUBROUTINE AAAA
           C     FOLLOWING ROUTINES TEST FIX OF A BUG IN THE LISTING
           C     TABLE OF CONTENTS.  THIS BUG CAUSED THE NAME ASSIGNED
           C     BY A CRENBR LINE TO NOT BE ALPHABETICALLY ORDERED.
           C     COMMENT BETWEEN START AND RENBR
           C     RENBR(ZZZZ)
       2         END
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page  114
                                                       ZZZZ SUBROUTINE

       Word          Contained in

       AAAA          1
       END           2
       SUBROUTINE    1
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page  115
                                                       CCCC SUBROUTINE

       1         SUBROUTINE CCCC
           C     COMMENT BETWEEN START AND RENBR
           C     RENBR(XXXX)
       2         END
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page  116
                                                       XXXX SUBROUTINE

       Word          Contained in

       CCCC          1
       END           2
       SUBROUTINE    1
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page  117
                                                       EEEE SUBROUTINE

       1         SUBROUTINE EEEE
           C     COMMENT BETWEEN START AND RENBR
           C     RENBR(VVVV)
       2         END
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page  118
                                                       VVVV SUBROUTINE

       Word          Contained in

       EEEE          1
       END           2
       SUBROUTINE    1
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page  119
                                                       GGGG SUBROUTINE

       1         SUBROUTINE GGGG
           C     COMMENT BETWEEN START AND RENBR
           C     RENBR(TTTT)
       2         END
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page  120
                                                       TTTT SUBROUTINE

       Word          Contained in

       END           2
       GGGG          1
       SUBROUTINE    1
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page  121
                                                       IIII SUBROUTINE

       1         SUBROUTINE IIII
           C     COMMENT BETWEEN START AND RENBR
           C     RENBR(RRRR)
       2         END
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page  122
                                                       RRRR SUBROUTINE

       Word          Contained in

       END           2
       IIII          1
       SUBROUTINE    1
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page  123
                                                       AAAA SUBROUTINE

       1         SUBROUTINE AAAA
           C     COMMENT BETWEEN START AND RENBR
           C     RENBR(RRRR)
       2         END
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page  124
                                                       RRRR SUBROUTINE

       Word          Contained in

       AAAA          1
       END           2
       SUBROUTINE    1
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page  125
                                                       CCCC SUBROUTINE

       1         SUBROUTINE CCCC
           C     COMMENT BETWEEN START AND RENBR
           C     RENBR(TTTT)
       2         END
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page  126
                                                       TTTT SUBROUTINE

       Word          Contained in

       CCCC          1
       END           2
       SUBROUTINE    1
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page  127
                                                       EEEE SUBROUTINE

       1         SUBROUTINE EEEE
           C     COMMENT BETWEEN START AND RENBR
           C     RENBR(VVVV)
       2         END
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page  128
                                                       VVVV SUBROUTINE

       Word          Contained in

       EEEE          1
       END           2
       SUBROUTINE    1
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page  129
                                                       GGGG SUBROUTINE

       1         SUBROUTINE GGGG
           C     COMMENT BETWEEN START AND RENBR
           C     RENBR(XXXX)
       2         END
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page  130
                                                       XXXX SUBROUTINE

       Word          Contained in

       END           2
       GGGG          1
       SUBROUTINE    1
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page  131
                                                       IIII SUBROUTINE

       1         SUBROUTINE IIII
           C     COMMENT BETWEEN START AND RENBR
           C     RENBR(ZZZZ)
       2         END
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page  132
                                                       ZZZZ SUBROUTINE

       Word          Contained in

       END           2
       IIII          1
       SUBROUTINE    1
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page  133
       IF(EXPRES)THEN= INDENTATION                              IFERRS

           C     RENBR(IFERRS/IF(EXPRES)THEN= INDENTATION)/A5
           C
           C     THE RENBR PROGRAM USED TO INDENT EXTRA LEVEL AFTER
           C     IF(EXPRESSION)THEN= STATEMENT ALTHOUGH THIS
           C     REALLY SHOULD NOT HAVE STARTED ANOTHER LEVEL
           C
           C     TEST IF THEN CAN BE USED AS VARIABLE NAME
       1         I=0
       2         IF(A.EQ.B)THEN
       3              J=1
       4              IF(A.EQ.B)THEN=2
       5              J=1
       6              IF(A.EQ.B)THENA=2
       7              J=1
       8              IF(A.EQ.B)THEN
       9                   K=2
       10                  END IF=2
       11                  K=2
       12             END IF
       13             J=1
       14        END IF
       15        I=0
           C
           C     TEST WHETHER DO WHILE CAN BE USED AS ARRAY ELEMENT
       16        I=0
       17        DO WHILE (I.EQ.J)
       18             J=1
       19             DO WHILE (I)=2
       20             J=1
       21             DO WHILE =2
       22             J=1
       23             DO WHILE (I.EQ.J)
       24                  K=2
       25                  END DO=2
       26                  K=2
       27             END DO
       28             J=1
       29        END DO
       30        I=0
           C
           C     TEST WHETHER DO 10 WHILE CAN BE USED AS ARRAY ELEMENT
       31        I=0
       32        DO 20 WHILE (I.EQ.J)
       33             J=1
       34             DO 10 WHILE (I)=2
       35             J=1
       36             DO 10 WHILE =2
       37             J=1
       38             DO 10 WHILE (I.EQ.J)
       39                  K=2
       40                  DO 30 WHILE =2,3
       41                       L=3
       42                       DO 40 WHILE (I)=2,3
       43                            M=4
       44     40                CONTINUE
       45                       L=3
       46     30           CONTINUE
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page  134
       IF(EXPRES)THEN= INDENTATION                 IFERRS MAIN PROGRAM

       47                  K=2
       48                  END DO=2
       49                  K=2
       50     10      CONTINUE
       51             J=1
       52     20 CONTINUE
       53        I=0
       54        END
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page  135
       IF(EXPRES)THEN= INDENTATION                 IFERRS MAIN PROGRAM

       Statement
       Number        Referenced by

           10       38   -50
           20       32   -52
           30       40   -46
           40       42   -44
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page  136
       IF(EXPRES)THEN= INDENTATION                 IFERRS MAIN PROGRAM

       Word          Contained in

       A             2     4     6     8
       B             2     4     6     8
       CONTINUE     44    46    50    52
       DO           19    21   -25    32    34    36    38    40    42
                   -48
       DOWHILE      17    23
       END          10    25    48    54
       ENDDO        27    29
       ENDIF        12    14
       I            -1   -15   -16    17    19    23   -30   -31    32
                    34    38    42   -53
       IF          -10
       J            -3    -5    -7   -13    17   -18   -20   -22    23
                   -28    32   -33   -35   -37    38   -51
       K            -9   -11   -24   -26   -39   -47   -49
       L           -41   -45
       M           -43
       THEN          2    -4     8
       THENA        -6
       WHILE       -19   -21    32   -34   -36    38   -40   -42
       0             1    15    16    30    31    53
       1             3     5     7    13    18    20    22    28    33
                    35    37    51
       10           34    36
       2             4     6     9    10    11    19    21    24    25
                    26    34    36    39    40    42    47    48    49
       3            40    41    42    45
       4            43
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page  137
       MORE IF(EXPRES)THEN TESTS                                   IF2

           C     RENBR(IF2/MORE IF(EXPRES)THEN TESTS)/A5
           C
           C     TEST IF THEN CAN BE USED AS VARIABLE NAME
       1         I=0
       2         IF(A.EQ.B)THEN    !THIS IS A COMMENT
       2        1    !THIS ALSO IS A COMMENT
       2        2       ;J=1
       3              J=1
       4              IF(A.EQ.B)THEN   !THIS IS A COMMENT
       4        1       A
       4        2  ;J=1
       5              J=1
       6              IF(A.EQ.B)THEN!THIS IS A COMMENT
       6        1    !THIS ALSO IS A COMMENT
       6        22;J=1
       7              J=1
       8              IF(A.EQ.B)THEN!THIS IS A COMMENT
       8        1    !THIS ALSO IS A COMMENT
       8        2;K=2
       9                   K=2;END IF=2;K=2;END IF;J=1
       10             J=1
       11        END IF
       12        I=0
           C
           C     TEST WHETHER DO WHILE CAN BE USED AS ARRAY ELEMENT
       13        I=0
       14        DO WHILE (I.EQ.J);J=1;DO WHILE (I)=2;J=1;DO
       14       1WHILE =2;J=1;DO
       14       2WHILE (I.EQ.J)!THIS COMMENT HAS AN = SIGN IN IT
       15                  K=2;END DO=2;K=2;EN
       15       1D DO;J=1
       16             J=2;END DO
       17        I=0
           C
           C     TEST WHETHER DO 10 WHILE CAN BE USED AS ARRAY ELEMENT
       18        I=0
       19        DO 20 WHILE (I.EQ.J);J=1;DO 10 WHILE (I)=2;J=1;
       19       1DO 10 WHILE =2;J=1;DO 10 WHILE (I.EQ.J);K=2
       20                  K=2
       21                  DO 30 WHILE =2,3;L=3;DO 40 WHILE (I)=2,3;M=4
       22                            M=4
       23     40                CONTINUE
       24                       L=3
       25     30           CONTINUE;K=2;END DO!THIS IS A COMMENT
       25       1=2
       26                  K=2
       27     10      CONTINUE
       28             J=1
       29     20 CONTINUE
       30        I=0
       31        END
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page  138
       MORE IF(EXPRES)THEN TESTS                      IF2 MAIN PROGRAM

       Statement
       Number        Referenced by

           10       19   -27
           20       19   -29
           30       21   -25
           40       21   -23
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING             Page  139
       MORE IF(EXPRES)THEN TESTS                      IF2 MAIN PROGRAM

       Word          Contained in

       A             2     4     6     8
       B             2     4     6     8
       CONTINUE     23    25    27    29
       DO           14   -15    19    21   -25
       DOWHILE      14
       END           9    15    25    31
       ENDDO        15    16
       ENDIF         9    11
       I            -1   -12   -13    14   -17   -18    19    21   -30
       IF           -9
       J            -2    -3    -4    -5    -6    -7    -9   -10   -14
                   -15   -16   -19   -28
       K            -8    -9   -15   -19   -20   -25   -26
       L           -21   -24
       M           -21   -22
       THEN          2     4     6     8
       WHILE       -14   -19   -21
       0             1    12    13    17    18    30
       1             2     3     4     5     6     7     9    10    14
                    15    19    28
       10           19
       2             6     8     9    14    15    16    19    20    21
                    25    26
       3            21    24
       4            21    22
1      LISTING OF NOTABS.TRY WITHOUT RENUMBERING              Table of
       Statements  1516, Comments   353, NonFORTRAN     0     Contents
       (Avg Group)    9,              2
                              Page                       Length   Page

       IFERRS MAIN PROGRAM     133     TRIPLE MAIN PROGRAM   33    105

       IF2    MAIN PROGRAM     137       OPEN MAIN PROGRAM   31    108

       NONOPN MAIN PROGRAM     111     NONOPN MAIN PROGRAM   27    111

       OPEN   MAIN PROGRAM     108         ZZZZ SUBROUTINE    2    113

       RRRR   SUBROUTINE       121         XXXX SUBROUTINE    2    115

       RRRR   SUBROUTINE       123         VVVV SUBROUTINE    2    117

       TRIPLE MAIN PROGRAM     105         TTTT SUBROUTINE    2    119

       TTTT   SUBROUTINE       119         RRRR SUBROUTINE    2    121

       TTTT   SUBROUTINE       125         RRRR SUBROUTINE    2    123

       VVVV   SUBROUTINE       117         TTTT SUBROUTINE    2    125

       VVVV   SUBROUTINE       127         VVVV SUBROUTINE    2    127

       XXXX   SUBROUTINE       115         XXXX SUBROUTINE    2    129

       XXXX   SUBROUTINE       129         ZZZZ SUBROUTINE    2    131

       ZZZZ   SUBROUTINE       113     IFERRS MAIN PROGRAM   54    133

       ZZZZ   SUBROUTINE       131        IF2 MAIN PROGRAM   31    137
1