!
!  Test VT mode:  Returns "100" for Vt100 mode
!                 Returns "200" for Vt200 mode
!
!
PROCEDURE fred$test_vt_mode

! The following code is from SYS$LIBRARY:EVESECINI.TPU (V4.2 of VMS)
!
! Try to determine if terminal is VT100 or VT200 on VMS V3 and V4.
! If terminal is eight-bit, edit-mode, ansi crt, then assume it
! is a VT200 series terminal.  

   if GET_INFO (screen, "vt200") then	! Works only on VMS V4
      RETURN ("200");
   else
      if GET_INFO (screen, "vk100") then
         RETURN ("100");
      else
	 if (GET_INFO (screen, "eightbit")) and
	    	(GET_INFO (screen, "ansi_crt")) and
	    	(GET_INFO (screen, "edit_mode")) then
            RETURN ("200");
	 else
            RETURN ("100");
	 endif;
      endif;
   endif;
ENDPROCEDURE;