1	SUB SMG_CHANGE_PASTEBOARD(BYTE PB_Size_flag,BYTE Background_flag)

	!---------------------------------------------------------------&
	!								&
	!		     SMG_CHANGE_PASTEBOARD			&
	!								&
	!		Creation Date:  3-July-1985			&
	!		Author:		Ken Messer			&
	! 		Purpose:        Alter a pasteboard's size	&
	!				and/or background color		&
	!								&
	!		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,				&
					Rows,				&
					Background

	EXTERNAL LONG FUNCTION		SMG$Change_PBD_Characteristics

	EXTERNAL LONG CONSTANT		SS$_Normal,			&
					SMG$C_Color_White,		&
					SMG$C_Color_Black

	EXTERNAL STRING FUNCTION	Get_Error_Message(LONG)

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

	! Pasteboard can be normal (80 x 24) or wide (132 x 24)

	SELECT PB_Size_flag
	   CASE 0		! Normal
		  Columns = 80
	   CASE ELSE		! Wide
		  Columns = 132
	END SELECT

	! Background can be light or dark

	SELECT Background_flag
	   CASE 0
		  Background = SMG$C_Color_Black
	   CASE ELSE
		  Background = SMG$C_Color_White
	END SELECT
		
100	! Make the change - don't bother checking the resulting characterisitics

	RS = SMG$Change_PBD_Characteristics(Current_pasteboard_id,	&
		Columns,,,,Background,)

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

32767	SUBEXIT

	END SUB