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