1*47946SbosticC 2*47946SbosticC Copyright (c) 1980 The Regents of the University of California. 3*47946SbosticC All rights reserved. 4*47946SbosticC 5*47946SbosticC %sccs.include.proprietary.f% 6*47946SbosticC 7*47946SbosticC @(#)datst.f 5.2 (Berkeley) 04/12/91 8*47946SbosticC 9*47946Sbostic 1043989Sbostic character*24 fdate 1143989Sbostic integer id(3), it(3) 1243989Sbostic write(*,*) fdate() 1343989Sbostic call itime(it) 1443989Sbostic call idate(id) 1543989Sbostic write(*,*) id, it 1643989Sbostic end 17