4.3BSD - /usr/src/usr.lib/libI77/test/try_env.f

   1: c		test overriding file names from program with
   2: c			environment variables
   3: c		formatted, seq
   4:         write(8,8000) 8
   5: 8000    format('sample line ',i5)
   6:         open(9,file='subdir/frmt.d')
   7:         write(9,8000) 9
   8: c		unform, seq
   9:         open(10,form='unformatted')
  10:         write(10) 10
  11:         open(11,file='unfr.dat',form='unformatted')
  12:         write(11) 11
  13: c		direct
  14:         open(12,access='direct',form='formatted',recl=20)
  15:         write(12,8000,rec=3) 12
  16:         open(13,file='dirct',access='direct',form='unformatted',recl=8)
  17:         write(13,rec=3) 127, 16*127
  18:         end