[Inherit('sys$library:rtl')]
Module VT100_definitions;

  CONST
   Length_Screen = 24 {ROWS OR LINES} ;
   Narrow_Screen = 80 {COLUMNS} ;
   Wide_Screen = 132 {COLUMNS} ;

  TYPE
   { NOTE -- DEFINITION AND ANY USE OF Bold_Underbar_Blink_Reverse_Video }
   {         WILL CAUSE WARNINGS IN VAX/VMS PASCAL (VARIABLE LONGER THAN }
   {         31 CHARACTERS)						  }
   Video_Mode = (Normal_Video, Bold_Video, Underbar_Video, Bold_Underbar_Video,
		 Blink_Video, Bold_Blink_Video, Underbar_Blink_Video,
		 Bold_Underbar_Blink_Video, Reverse_Video, Bold_Reverse_Video,
		 Underbar_Reverse_Video, Bold_Underbar_Reverse_Video, 
		 Blink_Reverse_Video, Bold_Blink_Reverse_Video, 
		 Underbar_Blink_Reverse_Video, BoldUnderbarBlinkReverseVideo);

   VT100_Characteristics = (Screen_80_Columns, Screen_132_Columns,
			    Auto_Wrap_Enabled, Auto_Wrap_Disabled,
			    Smooth_Scroll, Jump_Scroll, Key_Pad_Numeric, 
			    Key_Pad_Application, CR_Carriage_Return, CR_NewLine, 
			    Black_Screen, White_Screen, Screen_Absolute_Origin, 
			    Margin_Relative_Origin, Auto_Repeat_Enabled,
			    Auto_Repeat_Disabled, ANSI_Cursor_Sequence,
			    Applications_Cursor_Sequence,
			    ANSI_Compatible_Escape_Sequence,
			    VT52_Compatible_Escape_Sequence);

  [asynchronous] procedure VT100_Control;
    EXTERN;


  [asynchronous] procedure VT100_Reset;
    EXTERN;


  [asynchronous] procedure Set_VT100_Characteristic (New_Characteristic : VT100_Characteristics);
    EXTERN;


  [asynchronous] procedure Initialize_Sequence_Buffer (VAR Sequence_Buffer_Byte_Count : Integer);
    EXTERN;


  [asynchronous] procedure Sink_Sequence_Commands;
    EXTERN;


  [asynchronous] procedure Send_Sequence_Commands;
    EXTERN;


  [asynchronous] procedure Archive_Sequence_Commands;
    EXTERN;


  [asynchronous] procedure Forget_Sequence_Commands;
    EXTERN;


  [asynchronous] procedure Flush_Accumulated_Sequences;
    EXTERN;


  [asynchronous] procedure Accumulate_Control_Sequences;
    EXTERN;


  [asynchronous] procedure Release_Control_Sequences;
    EXTERN;


  [asynchronous] procedure Force_Control_Sequences;
    EXTERN;


  [asynchronous] procedure Save_Terminal_Status;
    EXTERN;


  [asynchronous] procedure Restore_Terminal_Status;
    EXTERN;


  [asynchronous] procedure Push_VT100_Screen_Image;
    EXTERN;


  [asynchronous] procedure Pop_VT100_Screen_Image;
    EXTERN;


  [asynchronous] procedure Home_Cursor;
    EXTERN;


  [asynchronous] procedure New_Line;
    EXTERN;


  [asynchronous] procedure Line_Feed;
    EXTERN;


  [asynchronous] procedure Reverse_Line_Feed;
    EXTERN;


  [asynchronous] procedure Set_Tab_Stop;
    EXTERN;


  [asynchronous] procedure Clear_All_Tab_Stops;
    EXTERN;


  [asynchronous] procedure Clear_Tab_Stop;
    EXTERN;


  [asynchronous] procedure Line_Erase;
    EXTERN;


  [asynchronous] procedure Erase_Entire_Line;
    EXTERN;


  [asynchronous] procedure Erase_Line_To_Cursor;
    EXTERN;


  [asynchronous] procedure Clear_Entire_Screen;
    EXTERN;


  [asynchronous] procedure Clear_Screen (Start_Clear_Row, Start_Clear_Column : Integer);
    EXTERN;


  [asynchronous] procedure Clear_From_Start_Screen_To (Clear_To_Row, Clear_To_Column : Integer);
    EXTERN;


  [asynchronous] procedure Init_Special_Graphics;
    EXTERN;


  [asynchronous] procedure Enable_ASCII_Characters;
    EXTERN;


  [asynchronous] procedure Enable_Special_Graphics;
    EXTERN;


  [asynchronous] procedure Disable_Special_Graphics;
    EXTERN;


  [asynchronous] procedure Enable_Alternate_Characters_1;
    EXTERN;


  [asynchronous] procedure Enable_Alternate_Characters_2;
    EXTERN;


  [asynchronous] procedure Disable_Alternate_Characters;
    EXTERN;


  [asynchronous] procedure Clear_Leds;
    EXTERN;


  [asynchronous] procedure Light_Led (Led_Number : Integer);
    EXTERN;


  [asynchronous] procedure Up_Cursor (Cursor_Steps : Integer);
    EXTERN;


  [asynchronous] procedure Down_Cursor (Cursor_Steps : Integer);
    EXTERN;


  [asynchronous] procedure Left_Cursor (Cursor_Steps : Integer);
    EXTERN;


  [asynchronous] procedure Right_Cursor (Cursor_Steps : Integer);
    EXTERN;


  [asynchronous] procedure Forward_Cursor;
    EXTERN;


  [asynchronous] procedure Erase_Previous_Character;
    EXTERN;


  [asynchronous] procedure Position_Cursor (Row, Column : Integer);
    EXTERN;


  [asynchronous] procedure Init_Scroll_Region (Top_Scroll, Bottom_Scroll : Integer);
    EXTERN;


  [asynchronous] procedure Define_Scroll_Region (Top_Region, Bottom_Region : Integer);
    EXTERN;


  [asynchronous] procedure Line_Insert (Row, Scroll_Sink : Integer);
    EXTERN;


  [asynchronous] procedure Line_Delete (Row, Scroll_Source : Integer);
    EXTERN;


  [asynchronous] procedure Video_Attribute (Attribute : Video_Mode);
    EXTERN;


  [asynchronous] procedure Double_Height_Substring (Start_Top_Row,Start_Top_Column: Integer;
				     %STDESCR Character_String:
                                     packed array[l1..u1: integer] of char;
				     First_Byte_Index, Last_Byte_Index : Integer);
    EXTERN;


  [asynchronous] procedure Double_Height (Start_Top_Row, Start_Top_Column : Integer;
			   %STDESCR Character_String :
                           packed array[l1..u1: integer] of char);
    EXTERN;


  [asynchronous] procedure Double_Width_Substring (Start_Row, Start_Column : Integer;
				    %STDESCR Character_String :
                                    packed array[l1..u1: integer] of char;
				    First_Byte_Index, Last_Byte_Index : Integer);
    EXTERN;


  [asynchronous] procedure Double_Width (Start_Row, Start_Column : Integer;
			  %STDESCR Character_String :
                          packed array[l1..u1: integer] of char);
    EXTERN;


  [asynchronous] procedure Single_Width_Line (Row : Integer);
    EXTERN;


  [asynchronous] procedure Screen_Write_Substring (%STDESCR Character_String:
                                    packed array[l1..u1: integer] of char;
				    First_Byte_Index, Last_Byte_Index: Integer);
    EXTERN;


  [asynchronous] procedure Screen_Write (%STDESCR Character_String:
                            packed array[l1..u1: integer] of char);
    EXTERN;


  [asynchronous] procedure Screen_Integer_In_Radix (Integer_Value, Radix, Display_Width : Integer;
				     Fill_Character : Char);
    EXTERN;


  [asynchronous] procedure Screen_Integer (Integer_Value, Display_Width : Integer;
			    Fill_Character : Char);
    EXTERN;


  [asynchronous] procedure Screen_Single_Precision_Float (Real_Value : Real;
					   Field_Width, Precision : Integer;
					   Fill_Character : Char);
    EXTERN;


  [asynchronous] procedure Screen_Character (Single_Character : Char);
    EXTERN;


  [asynchronous] procedure Transmit (Character : Char);
    EXTERN;


  [asynchronous] procedure Refresh_VT100_Screen (Top_Line_To_Refresh,
				  Bottom_Line_To_Refresh : Integer);
    EXTERN;


  [asynchronous] procedure Receive (VAR Character : Char);
    EXTERN;


  [asynchronous] procedure Collect_Type_Ahead_Substring (%STDESCR Type_Ahead_Buffer :
                                          packed array[l1..u1: integer] of char;
					  First_Byte_Index : Integer;
					  VAR Last_Byte_Index : Integer;
					  Delay_Quad_Word : quadword);
    EXTERN;


  [asynchronous] procedure Collect_Type_Ahead (%STDESCR Type_Ahead_Buffer :
                                packed array[l1..u1: integer] of char;
				VAR Byte_Count : Integer;
				Delay_Quad_Word : quadword);
    EXTERN;


  [asynchronous] procedure User_Request_Substring (%STDESCR Type_Ahead_Buffer :
                                    packed array[l1..u1: integer] of char;
				    First_Byte_Index : Integer;
				    VAR Last_Byte_Index : Integer);
    EXTERN;


  [asynchronous] procedure User_Request (%STDESCR Type_Ahead_Buffer :
                          packed array[l1..u1: integer] of char;
			  VAR Byte_Count : Integer);
    EXTERN;

  END. { DUMMY }