2.9BSD/usr/src/lib/libI77/read.f

      read(5,1)i
1     format(i3)
      call printn("read: %d\n",i)
      end