1	SUB SMG_DISP_SCROLL(STRING Text,BYTE Direction,WORD Rendition,	&
		BYTE Vir_disp_num)

	!---------------------------------------------------------------&
	!								&
	!		   	SMG_DISP_SCROLL				&
	!								&
	!		Creation Date:  3-July-1985			&
	!		Author:		Ken Messer			&
	! 		Purpose:        Write a line to the top or	&
	!				bottom of a virtual display	&
	!				and scroll the display up or	&
	!				down				&
	!								&
	!		Modification history				&
	!								&
	!	Date	Description of change(s)			&
	!								&
	!---------------------------------------------------------------&
	!								&
	! Copyright (c) 1985 -	Ken Messer, Allied Electronics, Inc.,	&
	!			401 E. 8th St., Ft. Worth, TX  76102	&
	!								&
	! This software may be copied and distributed freely to anyone	&
	! for non-commerical use provided that this copyright notice is &
	! included.							&
	!---------------------------------------------------------------&

	OPTION TYPE = INTEGER, SIZE = INTEGER LONG

	%include "SMG$LIBRARY:SMG.DFN"


	DECLARE LONG 				RS,			&
						Rendition_set,		&
						Rendition_comp,		&
						Scroll_direction

	EXTERNAL LONG FUNCTION			SMG$Put_with_scroll

	EXTERNAL LONG CONSTANT			SS$_Normal,		&
						SMG$M_Blink,		&
						SMG$M_Bold,		&
						SMG$M_Reverse,		&
						SMG$M_Underline,	&
						SMG$M_Up,		&
						SMG$M_Down

	EXTERNAL STRING FUNCTION	Get_Error_Message(LONG)

	!---------------------------------------------------------------&
	!								&
	!		M a i n   P r o g r a m   L o g i c		&
	!								&
	!---------------------------------------------------------------&

	! Set scroll direction

	SELECT Direction
	   CASE 0
		Scroll_direction = SMG$M_Up
	   CASE ELSE
		Scroll_direction = SMG$M_Down
	END SELECT


	Rendition_set, Rendition_comp = 0

	! Test rendition mask and set specified video attributes

	Rendition_set = Rendition_set OR SMG$M_Blink	 IF Rendition AND 1
	Rendition_set = Rendition_set OR SMG$M_Bold	 IF Rendition AND 2
	Rendition_set = Rendition_set OR SMG$M_Reverse	 IF Rendition AND 4
	Rendition_set = Rendition_set OR SMG$M_Underline IF Rendition AND 8

	Rendition_comp = Rendition_comp OR SMG$M_Blink	   IF Rendition AND 16
	Rendition_comp = Rendition_comp OR SMG$M_Bold	   IF Rendition AND 32
	Rendition_comp = Rendition_comp OR SMG$M_Reverse   IF Rendition AND 64
	Rendition_comp = Rendition_comp OR SMG$M_Underline IF Rendition AND 128

	! Scroll the display

100	RS = SMG$put_with_scroll(display_id(vir_disp_num),Text,		&
		Scroll_direction,Rendition_set,Rendition_comp,,)

	IF RS AND SS$_Normal = 0   THEN
		PRINT Get_Error_Message(RS)
		STOP
	END IF

32767	SUBEXIT

	END SUB