2.11BSD#431 - /usr/src/usr.lib/libI77/test/fmtst.f

   1:         real x(8)
   2:         do 10 i=1,8
   3:    10   x(i) = i
   4:         write(*,1000) (i,x(i),i=1,8)
   5:  1000   format (2("x(",i,")= ",f3.0," feet, "), "ta da")
   6:         end