DATIME
* /---   FILE TYPE = E
* /---   BLOCK      DATIME     00 000   76/10/24  01.02 
          IDENT  DATIME 
          TITLE  /DATIME/ 
*         'SET THE DATE AND TIME OF LAST EDIT.
* 
          USE    /DATIME/ 
* 
 YR.      MICRO  2,2,*"DATE"* 
 MODA.    MICRO  5,5,*"DATE"* 
 EDDATE   VFD    6/1R ,30/5R"MODA.",6/1R/,12/2R"YR.",6/1R 
 EDTIME   DATA   10H"TIME"
* 
* 
          END