2.9BSD - /usr/src/lib/libU77/test/argtst.f

   1:         character*20 arg, env
   2:         integer iargc
   3:         n = iargc()
   4:         call getarg(0, arg)
   5:         write(*,*) "name:", arg
   6:         if (n .gt. 0) then
   7:           do 100 i=1, n
   8:           call getarg(i, arg)
   9:           call getenv(arg, env)
  10:   100     write(*,*) i, arg, env
  11:         endif
  12:         end