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 @(#)actst.f 5.2 (Berkeley) 04/12/91 8*47946SbosticC 9*47946Sbostic 1043985Sbostic integer access 1143985Sbostic write(*,*) "exist?", access("actst.f", " ") 1243985Sbostic write(*,*) "execute?", access("actst.f", "x") 1343985Sbostic write(*,*) "read?", access("actst.f", "r") 1443985Sbostic write(*,*) "write?", access("actst.f", "w") 1543985Sbostic write(*,*) "read/write?", access("actst.f", "rw") 1643985Sbostic write(*,*) "read/write/exec?", access("actst.f", "rwx") 1743985Sbostic write(*,*) "null name?", access(" ", "w") 1843985Sbostic write(*,*) "bad arg?", access("actst.f", "zzz") 1943985Sbostic write(*,*) "not exist?", access("XQIT%0XGE", " ") 2043985Sbostic end 21