PROCEDURE	cjc_insert_date

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!  TPU procedure to nsert current system date in a reasonable format
!  at the current cursor location.
!  Adapted from D. Ray's DECUS enhanced EDT-emulator
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

LOCAL	day , month , year ;

copy_text(fao("!%D",0));	! copy current system date & time to buffer
erase_character ( - 12 ) ;
year  :=  erase_character ( - 4 ) ;
erase_character ( - 1 ) ;
month :=  erase_character ( - 3 ) ;
erase_character ( - 1 ) ;
day   :=  erase_character ( - 2 ) ;
eve$capitalize_string ( month ) ;
copy_text
     &		 ( month + '. ' + day + ', ' + year )

ENDPROCEDURE ;