1:         logical bit
   2:         i = 0
   3:         call bis(30, i)
   4:         write(*,*) i, bit(30, i), bit(4, i)
   5:         call bic(30, i)
   6:         write(*,*) i, bit(0, i)
   7:         call bis(0, i)
   8:         write(*,*) i
   9:         end
Last modified: 1987-02-18
Generated: 2016-12-26
Generated by src2html V0.67
page hit count: 1054
Valid CSS Valid XHTML 1.0 Strict