2.9BSD - /usr/src/lib/libU77/test/bitst.f

   1:         logical bit
   2:         integer i
   3:         i = 0
   4:         call bis(30, i)
   5:         write(*,*) i, bit(30, i), bit(4, i)
   6:         call bic(30, i)
   7:         write(*,*) i, bit(0, i)
   8:         call bis(0, i)
   9:         write(*,*) i
  10:         end