99 Bottles of beer in FORTRAN 77
 
     real count 
       count = 99 
       do while (count .gt. 0) 
       write (*,*) count,"bottles of beer on the wall," 
       write (*,*) count,"bottles of beer," 
       write (*,*) "Take one down, pass it around,"
       count = count - 1
       write (*,*) count,"bottles of beer on the wall"
       write (*,*) " "
       end do
       
       stop
       end