Retro1.org codex

          IDENT  VERMSGC     VERSION MESSAGE 
          ENTRY  VERMSGC
 
 
***  VERMSGC - VERSION MESSAGE
*              WRITE THE DATE AND TIME OF COMPILATION TO
*              RUN TIME DAYFILE.
*
*   VERMSGC.
*
*   ENTRY  NONE
*
*   EXIT  MESSAGE TO DAYFILE.
*
*   USES
*
 
VERMSGC   SUBR   =
          MESSAGE  WHENMSG,0
          EQ     VERMSGC     RETURN
WHENMSG   DIS    30, VERSION "DATE" "TIME"
          END