1	SUB SMG_CURSOR_ON_OFF(STRING Cursor_mode)

	!---------------------------------------------------------------&
	!								&
	!		       SMG_CURSOR_ON_OFF			&
	!								&
	!		Creation Date:  4-June-1985			&
	!		Author:		Ken Messer			&
	! 		Purpose:        Turn the physical cursor on/off	&
	!								&
	!		Modification history				&
	!								&
	!	Date	Description of change(s)			&
	!								&
	!---------------------------------------------------------------&
	!								&
	! Copyright (c) 1986 -	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			Cursor_flag,			&
					Return_status

	EXTERNAL LONG FUNCTION		SMG$Set_cursor_mode

	EXTERNAL LONG CONSTANT		SS$_Normal

	EXTERNAL STRING FUNCTION	Get_Error_Message(LONG)

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

	! "ON" = 0
	! "OFF" = 1
	! anything else - assume "ON"

	SELECT EDIT$(Cursor_mode,38)
	  CASE "ON"
		Cursor_flag = 0
	  CASE "OFF"
		Cursor_flag = 1
	  CASE ELSE
		Cursor_flag = 0
	END SELECT

	Return_status = SMG$Set_cursor_mode(Current_pasteboard_id,Cursor_flag)

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

	SUBEXIT

	END SUB