1*47949SbosticC 2*47949SbosticC Copyright (c) 1980 The Regents of the University of California. 3*47949SbosticC All rights reserved. 4*47949SbosticC 5*47949SbosticC %sccs.include.proprietary.f% 6*47949SbosticC 7*47949SbosticC @(#)try_env.f 5.2 (Berkeley) 04/12/91 8*47949SbosticC 9*47949Sbostic 1043979Sbosticc test overriding file names from program with 1143979Sbosticc environment variables 1243979Sbosticc formatted, seq 1343979Sbostic write(8,8000) 8 1443979Sbostic8000 format('sample line ',i5) 1543979Sbostic open(9,file='subdir/frmt.d') 1643979Sbostic write(9,8000) 9 1743979Sbosticc unform, seq 1843979Sbostic open(10,form='unformatted') 1943979Sbostic write(10) 10 2043979Sbostic open(11,file='unfr.dat',form='unformatted') 2143979Sbostic write(11) 11 2243979Sbosticc direct 2343979Sbostic open(12,access='direct',form='formatted',recl=20) 2443979Sbostic write(12,8000,rec=3) 12 2543979Sbostic open(13,file='dirct',access='direct',form='unformatted',recl=8) 2643979Sbostic write(13,rec=3) 127, 16*127 2743979Sbostic end 28