1*43989Sbostic character*24 fdate 2*43989Sbostic integer id(3), it(3) 3*43989Sbostic write(*,*) fdate() 4*43989Sbostic call itime(it) 5*43989Sbostic call idate(id) 6*43989Sbostic write(*,*) id, it 7*43989Sbostic end 8