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

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