1*47946SbosticC 2*47946SbosticC Copyright (c) 1980 The Regents of the University of California. 3*47946SbosticC All rights reserved. 4*47946SbosticC 5*47946SbosticC %sccs.include.proprietary.f% 6*47946SbosticC 7*47946SbosticC @(#)bitst.f 5.2 (Berkeley) 04/12/91 8*47946SbosticC 9*47946Sbostic 1043987Sbostic logical bit 1143987Sbostic i = 0 1243987Sbostic call bis(30, i) 1343987Sbostic write(*,*) i, bit(30, i), bit(4, i) 1443987Sbostic call bic(30, i) 1543987Sbostic write(*,*) i, bit(0, i) 1643987Sbostic call bis(0, i) 1743987Sbostic write(*,*) i 1843987Sbostic end 19