INTEGER*4	ARG_VECTOR(0:2)
	INTEGER*4	SYS_STATUS
	INTEGER*4	CHAN
	INTEGER*4	TERM_TYPE
	INTEGER*4	TERM_TABLE_ADDR
	INTEGER*4	RET_LEN
	INTEGER*4	EVENT_FLAG

	EXTERNAL	SMG$K_BEGIN_ALTERNATE_CHAR
	EXTERNAL	SMG$K_BEGIN_BLINK
	EXTERNAL	SMG$K_BEGIN_BOLD
	EXTERNAL	SMG$K_BEGIN_DELETE_MODE
	EXTERNAL	SMG$K_BEGIN_INSERT_MODE
	EXTERNAL	SMG$K_BEGIN_LINE_DRAWING_CHAR
	EXTERNAL	SMG$K_BEGIN_REVERSE
	EXTERNAL	SMG$K_BEGIN_UNDERSCORE
	EXTERNAL	SMG$K_BOTTOM_T_CHAR
	EXTERNAL	SMG$K_CLEAR_TAB
	EXTERNAL	SMG$K_CROSS_CHAR
	EXTERNAL	SMG$K_CURSOR_DOWN
	EXTERNAL	SMG$K_CURSOR_LEFT
	EXTERNAL	SMG$K_CURSOR_RIGHT
	EXTERNAL	SMG$K_CURSOR_UP
	EXTERNAL	SMG$K_DARK_SCREEN
	EXTERNAL	SMG$K_DELETE_CHAR
	EXTERNAL	SMG$K_DELETE_LINE
	EXTERNAL	SMG$K_DEVICE_ATTRIBUTES
	EXTERNAL	SMG$K_DOUBLE_HIGH_BOTTOM
	EXTERNAL	SMG$K_DOUBLE_HIGH_TOP
	EXTERNAL	SMG$K_DOUBLE_WIDE
	EXTERNAL	SMG$K_DUPLICATE
	EXTERNAL	SMG$K_END_ALTERNATE_CHAR
	EXTERNAL	SMG$K_END_BLINK
	EXTERNAL	SMG$K_END_BOLD
	EXTERNAL	SMG$K_END_DELETE_MODE
	EXTERNAL	SMG$K_END_INSERT_MODE
	EXTERNAL	SMG$K_END_LINE_DRAWING_CHAR
	EXTERNAL	SMG$K_END_REVERSE
	EXTERNAL	SMG$K_END_UNDERSCORE
	EXTERNAL	SMG$K_ERASE_TO_END_DISPLAY
	EXTERNAL	SMG$K_ERASE_TO_END_LINE
	EXTERNAL	SMG$K_ERASE_WHOLE_DISPLAY
	EXTERNAL	SMG$K_ERASE_WHOLE_LINE
	EXTERNAL	SMG$K_HOME
	EXTERNAL	SMG$K_HORIZONTAL_BAR
	EXTERNAL	SMG$K_INIT_STRING
	EXTERNAL	SMG$K_INSERT_CHAR
	EXTERNAL	SMG$K_INSERT_LINE
	EXTERNAL	SMG$K_INSERT_PAD
	EXTERNAL	SMG$K_LEFT_T_CHAR
	EXTERNAL	SMG$K_LIGHT_SCREEN
	EXTERNAL	SMG$K_LOWER_LEFT_CORNER
	EXTERNAL	SMG$K_LOWER_RIGHT_CORNER
	EXTERNAL	SMG$K_NAME
	EXTERNAL	SMG$K_NEWLINE_CHAR
	EXTERNAL	SMG$K_PAD_CHAR
	EXTERNAL	SMG$K_RESTORE_CURSOR
	EXTERNAL	SMG$K_RIGHT_T_CHAR
	EXTERNAL	SMG$K_SAVE_CURSOR
	EXTERNAL	SMG$K_SCROLL_FORWARD
	EXTERNAL	SMG$K_SCROLL_REVERSE
	EXTERNAL	SMG$K_SEL_ERASE_TO_END_DISPLAY
	EXTERNAL	SMG$K_SEL_ERASE_TO_END_LINE
	EXTERNAL	SMG$K_SEL_ERASE_WHOLE_DISPLAY
	EXTERNAL	SMG$K_SEL_ERASE_WHOLE_LINE
	EXTERNAL	SMG$K_SET_APPLICATION_KEYPAD
	EXTERNAL	SMG$K_SET_CHAR_NOT_SEL_ERASE
	EXTERNAL	SMG$K_SET_CHAR_SEL_ERASE
	EXTERNAL	SMG$K_SET_CURSOR_ABS
	EXTERNAL	SMG$K_SET_NUMERIC_KEYPAD
	EXTERNAL	SMG$K_SET_SCROLL_REGION
	EXTERNAL	SMG$K_SET_TAB
	EXTERNAL	SMG$K_SINGLE_HIGH
	EXTERNAL	SMG$K_TAB_CHAR
	EXTERNAL	SMG$K_TOP_T_CHAR
	EXTERNAL	SMG$K_UNDERLINE_CHAR
	EXTERNAL	SMG$K_UPPER_LEFT_CORNER
	EXTERNAL	SMG$K_UPPER_RIGHT_CORNER
	EXTERNAL	SMG$K_VERTICAL_BAR
	EXTERNAL	SMG$K_WIDTH_NARROW
	EXTERNAL	SMG$K_WIDTH_WIDE
	EXTERNAL	SMG$K_CURSOR_POSITION_REPORT
	EXTERNAL	SMG$K_REQUEST_CURSOR_POSITION
	EXTERNAL	SMG$K_CR_GRAPHIC
	EXTERNAL	SMG$K_FF_GRAPHIC
	EXTERNAL	SMG$K_LF_GRAPHIC
	EXTERNAL	SMG$K_HT_GRAPHIC
	EXTERNAL	SMG$K_VT_GRAPHIC
	EXTERNAL	SMG$K_TRUNCATION_ICON
	EXTERNAL	SMG$K_CURSOR_NEXT_LINE
	EXTERNAL	SMG$K_CURSOR_PRECEDING_LINE
	EXTERNAL	SMG$K_INDEX
	EXTERNAL	SMG$K_REVERSE_INDEX
	EXTERNAL	SMG$K_BEGIN_NORMAL_RENDITION
	EXTERNAL	SMG$K_BEGIN_AUTOWRAP_MODE
	EXTERNAL	SMG$K_END_AUTOWRAP_MODE
	EXTERNAL	SMG$K_BEGIN_AUTOREPEAT_MODE
	EXTERNAL	SMG$K_END_AUTOREPEAT_MODE
	EXTERNAL	SMG$K_SET_ORIGIN_RELATIVE
	EXTERNAL	SMG$K_SET_ORIGIN_ABSOLUTE
	EXTERNAL	SMG$K_ERASE_LINE_TO_CURSOR
	EXTERNAL	SMG$K_NEXT_LINE
	EXTERNAL	SMG$K_BEGIN_AUTOPRINT_MODE
	EXTERNAL	SMG$K_END_AUTOPRINT_MODE
	EXTERNAL	SMG$K_PRINT_SCREEN
	EXTERNAL	SMG$K_SET_CURSOR_ON
	EXTERNAL	SMG$K_SET_CURSOR_OFF
	EXTERNAL	SMG$K_SET_PRINTER_OUTPUT
	EXTERNAL	SMG$K_SET_SCREEN_OUTPUT
	EXTERNAL	SMG$K_ERASE_DISPLAY_TO_CURSOR

	CHARACTER*20	DATA_BUFFER
	COMMON /SMGBUF/	DATA_BUFFER,CHAN,TERM_TYPE,
	2		TERM_TABLE_ADDR