1C 2C Copyright (c) 1980 The Regents of the University of California. 3C All rights reserved. 4C 5C %sccs.include.proprietary.f% 6C 7C @(#)bitst.f 5.2 (Berkeley) 04/12/91 8C 9 10 logical bit 11 i = 0 12 call bis(30, i) 13 write(*,*) i, bit(30, i), bit(4, i) 14 call bic(30, i) 15 write(*,*) i, bit(0, i) 16 call bis(0, i) 17 write(*,*) i 18 end 19