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

   1:         program systst
   2:         integer system
   3:         write(*,*) "date", system("date")
   4:         write(*,*) "rm xxx", system("rm xxx")
   5:         end