Form and Meaning: Similar form with multiple meanings is not readable
C STATUS MAY HAVE A VALUE OF 1, 2, 3 OR 4 INTEGER STATUS GO TO (10, 15, 20, 30), STATUS PRINT*, 'VALUE OF STATUS IS INCORRECT' GO TO 100 10 PRINT*, 'FRESHMAN' GO TO 100 15 PRINT*, 'SOPHOMORE' GO TO 100 20 PRINT*, 'JUNIOR' GO TO 100 30 PRINT*, 'SENIOR' 100
C STATUS MAY HAVE A VALUE OF 1, 2, 3 OR 4 INTEGER STATUS C LABEL HOLDS ONLY STATEMENT REFERENCES IF(STATUS .EQ. 1) ASSIGN 10 TO LABEL IF(STATUS .EQ. 2) ASSIGN 15 TO LABEL IF(STATUS .EQ. 3) ASSIGN 20 TO LABEL IF(STATUS .EQ. 4) ASSIGN 30 TO LABEL C EXECUTION ERROR OCCURS IF LABEL'S VALUE IS NOT IN PARENTHESIS GO TO LABEL, (10, 15, 20, 30) 10 PRINT*, 'FRESHMAN' GO TO 100 15 PRINT*, 'SOPHOMORE' GO TO 100 20 PRINT*, 'JUNIOR' GO TO 100 30 PRINT*, 'SENIOR' 100