

PROCEDURE Draw_Just ( x, y : INTEGER; just : VDI_Just;
                      output_string : STR255 );
   EXTERNAL;
PROCEDURE Set_Char_Height ( info_flag : INTEGER );
   EXTERNAL;
PROCEDURE Create_User_Line_Type ( linetype : INTEGER );
   EXTERNAL;
PROCEDURE User_Line_Style;
   EXTERNAL;
PROCEDURE VQ_Mouse ( VAR x,y,button : INTEGER );
   EXTERNAL;
PROCEDURE Extended_Inquire ( info_flag : INTEGER );
   EXTERNAL;
PROCEDURE Blit ( src,dst : Mfdb;
                 from_x,from_y,to_x,to_y,width,height : INTEGER );
   EXTERNAL;
PROCEDURE Write_Message (     ap_id,n_bytes : INTEGER;
                          VAR msg_area      : Message_Buffer );
   EXTERNAL;
PROCEDURE Read_Message (     ap_id,n_bytes : INTEGER;
                         VAR msg_area      : Message_Buffer );
   EXTERNAL;
PROCEDURE Get_Text (     tree  : Generic_Ptr;
                         index : INTEGER;
                     VAR s     : P_EdText );
   EXTERNAL;
PROCEDURE Set_Text (     tree       : Generic_Ptr; { dialog ptr }
                         index      : INTEGER;     { which item }
                         p_str      : STR255;      { a pascal string to show }
                     VAR c_str      : C_EdText;    { C string }
                         text_len   : INTEGER );   { max length of the text }
   EXTERNAL;
FUNCTION Map_Tree ( tree                  : Generic_Ptr;
                    start_index,end_index : Tree_Index;
                    action                : MapAction    ) : Tree_Index;
   EXTERNAL;
PROCEDURE Form_Anywhere ( box     : Dialog_Ptr;
                          x,y     : INTEGER;
                          VAR w,h : INTEGER  );
   EXTERNAL;
PROCEDURE Form_Center ( box : Dialog_Ptr;
                        VAR fo_x,fo_y,fo_w,fo_h : INTEGER );
   EXTERNAL;
PROCEDURE Form_Dial ( fn,little_x,little_y,little_w,little_h,
                         big_x,big_y,big_w,big_h : INTEGER );
   EXTERNAL;
FUNCTION Form_Do ( box : Dialog_Ptr; index : Tree_Index ) : Tree_Index;
   EXTERNAL;
FUNCTION Obj_Find ( tree          : Dialog_Ptr; 
                    firstob,depth : Tree_Index;
                    x,y           : INTEGER;
                    VAR result    : Tree_Index ) : BOOLEAN;
   EXTERNAL;
   
FUNCTION Wind_Find ( x,y : INTEGER ) : INTEGER;
   EXTERNAL;
   
PROCEDURE Rubber_Box (     x,y,sm_w,sm_h     : INTEGER;
                       VAR last_width,last_height : INTEGER );
   EXTERNAL;


PROCEDURE Form_Error ( tos_error_num : INTEGER );
   EXTERNAL;
PROCEDURE Grow_Shrink( cmd, small_x, small_y, small_w, small_h,
                       big_x, big_y, big_w, big_h : INTEGER );
   EXTERNAL;
PROCEDURE Grow_Box ( small_x, small_y, small_w, small_h,
                       big_x, big_y, big_w, big_h : INTEGER );
   EXTERNAL;
PROCEDURE Shrink_Box ( big_x, big_y, big_w, big_h,
                         small_x, small_y, small_w, small_h : INTEGER );
   EXTERNAL;
FUNCTION Menu_Register ( ap_id : INTEGER; VAR acc_name : STR255 ) : INTEGER;
   EXTERNAL;
PROCEDURE Text_Alignment ( horizontal,vertical : INTEGER );
   EXTERNAL;
PROCEDURE Rotate_Baseline ( angle : INTEGER );
   EXTERNAL;

PROCEDURE Set_Resource_Address ( res_type,res_index : INTEGER;
                                 VAR res_addr : Generic_Ptr );
   EXTERNAL;

PROCEDURE Move_Box ( o_x,o_y,w,h,n_x,n_y : INTEGER );
   EXTERNAL;
PROCEDURE Drag_Box ( inner_x,inner_y,
                     inner_w,inner_h,
                     outer_x,outer_y,
                     outer_w,outer_h         : INTEGER;
                     VAR n_inner_x,n_inner_y : INTEGER );
   EXTERNAL;

PROCEDURE Graf_MKState ( VAR x,y,btn_state,key_state : INTEGER );
   EXTERNAL;





