PROCEDURE eve_edt_special_insert	

!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!  emulates EDT gold kp3 (special insert): insert character with specified
!  ASCII value at current cursor location.
!  adapted from DECUS source submitted by
!			Scott E. Smith
!			Sperry Marine Inc.
!			Charlottesville, VA  22906
!			(804) 973-0186
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!


 copy_text(ascii(int(read_line("Decimal value of character:  "))));

ENDPROCEDURE ;