1C 2C Copyright (c) 1980 The Regents of the University of California. 3C All rights reserved. 4C 5C %sccs.include.proprietary.f% 6C 7C @(#)actst.f 5.2 (Berkeley) 04/12/91 8C 9 10 integer access 11 write(*,*) "exist?", access("actst.f", " ") 12 write(*,*) "execute?", access("actst.f", "x") 13 write(*,*) "read?", access("actst.f", "r") 14 write(*,*) "write?", access("actst.f", "w") 15 write(*,*) "read/write?", access("actst.f", "rw") 16 write(*,*) "read/write/exec?", access("actst.f", "rwx") 17 write(*,*) "null name?", access(" ", "w") 18 write(*,*) "bad arg?", access("actst.f", "zzz") 19 write(*,*) "not exist?", access("XQIT%0XGE", " ") 20 end 21