C
C     FORTRAN-II VERSION OF 99 BOTTLES OF BEER
C     DAVE PITTS, DPITTS AT COZX.COM
C
      DO 30 J = 1, 98
      I = 100 - J
      PRINT 100, I, I
      PRINT 110
      I = I - 1
      IF (I - 1) 10, 10, 20
10    PRINT 125, I
      GO TO 30
20    PRINT 120, I
30    CONTINUE
      I = 1
      PRINT 105, I, I
      PRINT 110
      PRINT 130
      STOP
C
100   FORMAT (1H0,I2,30H BOTTLES OF BEER ON THE WALL, 
     1,I2,16H BOTTLES OF BEER)
105   FORMAT (1H0,I2,29H BOTTLE OF BEER ON THE WALL, 
     1,I2,15H BOTTLE OF BEER)
110   FORMAT (33H TAKE ONE DOWN AND PASS IT AROUND)
120   FORMAT (1H ,I2,17H BOTTLES OF BEER.)
125   FORMAT (1H ,I2,16H BOTTLE OF BEER.)
130   FORMAT (20H NO BOTTLES OF BEER.)
      END
